Visual Basic

13-Oct-06 10:07

Next time, specify what the error is and on what line you're getting it.

I'm assuming you're using VB6. You can't set the PaperSize with two numbers like this. It only accepts a single number.

' vbPRPSUser is a constant that represents the number 256.
Printer.PaperSize = vbPRPSUser
' Height and Width are specified in twips.  There are approximatly
' 1440 twips per inch.  So, for an 8.5" by 8.5" inch page:
Printer.Height = (8.5 * 1440)
Printer.Width = (8.5 * 1440)

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: How set paper size

Tomic13-Oct-06 10:29

Tomic

13-Oct-06 10:29

Dave thank you.
Is printer.height same thing as paper height.
Also will the suggested coding do for continuous printing.
That is if I putan a4 sheet in the printer will it print 2 copies on the paper that is double the size specified in the printer.

Fikunmi Feyijin
Hicad Systems
Nigeria

Re: How set paper size

Dave Kreskowiak13-Oct-06 13:04

Download in Internet Explorer

13-Oct-06 13:04

OK. I haven't touched VB6 in about 6 years and I haven't written an application for continous forms in twice that time. How about checking out the documentation[^] on the Printer object and looking up the properties yourself? How about trying it to see what happens?

Dave Kreskowiak
Microsoft MVP - Visual Basic

Zaegra13-Oct-06 6:50

Zaegra

13-Oct-06 6:50

How can i retrieve the name of an active download in IE?
And how can i abort it? Can anyone help me out? Smile | :)

--Zaegra--

Re: Download in Internet Explorer

Dave Kreskowiak13-Oct-06 7:29

Re: Download in Internet Explorer

13-Oct-06 7:29

You can't. The download window is a seperate instance of IE and isn't exposed as a COM object.

Why would you want to abort a file download anyway? The best method is stopping it is to not let it happen in the first place!

Dave Kreskowiak
Microsoft MVP - Visual Basic

Zaegra13-Oct-06 20:37

Zaegra

13-Oct-06 20:37

:-DOk, but how can i stop the download before its downloading then? And how can i retrieve the name of the download?

--Zaegra--

Re: Download in Internet Explorer

Dave Kreskowiak14-Oct-06 4:07

Project referencing DLL that may not be there

14-Oct-06 4:07

Write your own proxy server. Then configure IE to use that server and you'll get every request with all the details you're looking for. Since the proxy is the "man in the middle" making the requests for IE, you have complete control over which requests get filled and which don't.

Dave Kreskowiak
Microsoft MVP - Visual Basic

rahvyn613-Oct-06 4:48

rahvyn6

13-Oct-06 4:48

I am developing an app in VS2005. I need to put in a reference to an existing dll. The issue is, that dll may or may not exist on the machines that the app gets installed on. The app will have branching code depending on if the machine uses the dll or not, but I am unsure if this will work. I have read that the CLR will not invoke the dll unless it is called. So if I have the dll on my dev machine, have it referenced in the project, have a Try / Catch block around the call to NEW of the dll, but have the dll dimensioned in the class, install the app on another machine without the dll, will it blow up on me? Or will the Try / Catch block stop it from blowing up?

Simple code Example:

Public Class myClass

Private dll as dllMayNotExist

Public Function Execute()
Try
dll = New dllMayNotExist
Catch
'do nothing here, if dll does not exist, it is not needed
End Try
End Function

Re: Project referencing DLL that may not be there

Dave Kreskowiak13-Oct-06 5:31

Re: Project referencing DLL that may not be there

13-Oct-06 5:31

That won't work. The .DLL has to be there otherwise your app will fail when the JIT compiler goes to compile the METHOD that tried to call that library. Using a Try/Catch block will have no effect because that method that contains it will never run. All external references are resolved upon JIT compile, not at execution of a class' constructor.

You'll have to check for the existance of the .DLL at the start of your code and set a flag as to whether or not it's there. Then, you'll need to write a wrapper around your two methods, one that uses the .DLL and one that doesn't, plus a dispatcher method to choose between the two methods. The Dispatcher will be the function that your outside call actually calls. The dispatcher will check this flag to see if the .DLL exists, then pass the parameters to the version that's appropriate and pass any return values back to the caller.

                 Caller
                   ^ |
                   | |
                   | v
.DLL flag------>Dispatcher
                ^ |    ^ |
                | |    | |
                | v    | v
              Method  Method

Dave Kreskowiak
Microsoft MVP - Visual Basic

rahvyn613-Oct-06 5:35

rahvyn6

13-Oct-06 5:35

So the dll will not be declared in one function, and declared in the other?

Re: Project referencing DLL that may not be there

Dave Kreskowiak13-Oct-06 5:44

13-Oct-06 5:44

Yes.

Dave Kreskowiak
Microsoft MVP - Visual Basic

scanners

deepak02613-Oct-06 4:09

deepak026

13-Oct-06 4:09

how to use scanners utility in VB

Re: scanners

Dave Kreskowiak13-Oct-06 4:23

Key press for individual comboboxes

13-Oct-06 4:23

That's nowhere near enough information to tell you anything useful.

What are you trying to do? What scanner utility? Are you talking about a flatbed scanner? Fingerprinter scanner? Document scanner??? What?

Dave Kreskowiak
Microsoft MVP - Visual Basic

Racos13-Oct-06 2:59

13-Oct-06 2:59

Hi,

USING VB 6.0

I have several comboboxes named cboField(1),cboField(2),cboField(3) etc. in other words they have been created this way (indexed) for the purpose of using loops whenever necessary.

Now when I use

Private Sub cboField_keyPress(Index as Integer, Key ascii As Integer)

to produce some action on the comboboxes I only get a global action (not individual to each combobox) How can I get this as I would like to produce different actions on different comboxes on keypress on the respective fields

I tried...

Private Sub cboField(2)_keyPress(Index as Integer, Key ascii As Integer) for example gives me an EXPECTED IDENTIFIER error

Thanks for your help

Augusto

Augusto

Dave Kreskowiak13-Oct-06 4:21

13-Oct-06 4:21

It's been about 6 years since I've touched VB6... but what's that Index parameter in your function header for? I'm will to bet that's the index of the control that fired the event.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Racos13-Oct-06 7:41

13-Oct-06 7:41

Hi Dave,

I guess you mean this..

Private Sub cboField_KeyPress(Index As Integer, KeyAscii As Integer)

End Sub

That parameter I did not choose. VB puts it by default when I choose cboField and keypress from the menu. And it works fine only that it is not specific to any combobox but to all of them...
As I said I tried substituting cboField_KeyPress by

Private Sub cboField(1)_KeyPress(Index As Integer, KeyAscii As Integer)

Private Sub cboField(2)_KeyPress(Index As Integer, KeyAscii As Integer)

Private Sub cboField(3_)_KeyPress(Index As Integer, KeyAscii As Integer)

etc.

but then I get the said compilation error
Please suggest something..

Thanks

Augusto

Dave Kreskowiak13-Oct-06 7:45

13-Oct-06 7:45

OK, let's try this again... HAVE YOU LOOKED AT THE VALUE OF THE INDEX PARAMETER WHEN A KEY IS PRESSED??? This should tell you which ComboBox raised the event.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Racos13-Oct-06 8:05

13-Oct-06 8:05

Dave, I think you have not understood my problem... If I writte;

Private Sub cboField_KeyPress(Index As Integer, KeyAscii As Integer)<br />
MsgBox ("Please use the drop down buttons and select an item from the list")<br />
End sub

everything functions and I get the message poped up as soon as I press a key IN ANY OF THE COMBOBOXES i.e cboField(1),cboField(2),cboField(3),cboField(4) etc.

My problem is that I want to have a specific message for each one of this combo SEPARATELY

How do I do that???

Augusto

Dave Kreskowiak13-Oct-06 8:16

13-Oct-06 8:16

And I think your missing the purpose of that Index parameter.

Private Sub cboField_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case Index
        Case 1:
            ' The first combobox fired KeyPress
            MsgBox "Hi from ComboBox 1!"

        Case 2:
            ' The second combobox
            MsgBox "Hi from ComboBox 2!"

        Case 3:
            MsgBox "Hi from ComboBox 3!"
    End Select

All you had to do was check the value of Index...

Dave Kreskowiak
Microsoft MVP - Visual Basic

Racos13-Oct-06 8:49