Visual Basic

How to get the default printer?

3-Jun-04 3:30

Sound is a major component of a game. You should've had this integrated into your project a long time ago. Just slapping it in at the end... man...

Boggahutt87 wrote:
One of the options in the properties is "ui"

One of the properties of what? You didn't say what the class was that your looking at.

It is possible to play a wave file, but you'll have to use the Multimedia SDK, or DirectX DirectSound. I seriously doubt you want to use the MediaPlayer COM control to do this. Also, your getting into more complicated audio methods that REQUIRE a sound card to work. Just using the normal PC speaker, like you've been using with Beep, won't work.

Same as before. Declare the API function you want to call first:

Private Declare Function PlaySound Lib "Winmm" Alias "PlaySound" _
    (ByVal pszSound As String, ByVal hModule As Long, fdwSound As Long) As Long

Now, when you call this function, you have to supply it with 3 parameters:

1. pszSound will be the filename of the sound you want to play, like "SOUND.WAV". The .WAV file must be in the same directory as your compiled .EXE to work.
2. hModule must be 0.
3. fdwSound must be 0.

You'll call PlaySound like this:

PlaySound "SOUND.WAV", 0, 0

And remember! If you get smacked down by the teacher for using code he didn't tell you about, and therefore you couldn't possibly write Big Grin | :-D

, it's not my fault! Poke tongue | ;-P

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous2-Jun-04 11:45

2-Jun-04 11:45

Does anyone know how to get default printer using VB.NET?

I want to print the crystal report directly to the printer, but the problem is i need to specify the default printer inorder to print the report.

Dave Kreskowiak3-Jun-04 3:08

3-Jun-04 3:08

I haven't tried this out but...

You might want to try playing with the PrinterSettings class. You can instantiate a PrinterSettings object and see what its PrinterName property says. It might be the name of the default printer. If it's blank, trying getting the InstalledPrinters property. This will be a collection of Strings that represent the printer names. You could then set the PrinterName property of the PrinterSettings object to each one of the printer names returned by InstalledPrinters and check the IsDefault property to see if it is the default printer.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous3-Jun-04 4:02

3-Jun-04 4:02

Hey! thanks for the reply. How do you get each printer name? Does printersettings give the printer? if so, what is that property name? I could not see any printer name property in the installed printers.

Dave Kreskowiak3-Jun-04 4:32

3-Jun-04 4:32

InstalledPrinters returns an array of Strings. Those are your printer names. You then take each one of those and, one at a time, set the PrinterName property to them, then check the IsDefaultPrinter property to see if the name you set PrinterName to is the default printer. If it is, then you have then printer name you need to send to CrystalReports.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dave Kreskowiak3-Jun-04 4:46

3-Jun-04 4:46

You might want to try playing with the PrinterSettings class. You can instantiate a PrinterSettings object and see what its PrinterName property says. It might be the name of the default printer. If it's blank, trying getting the InstalledPrinters property. This will be a collection of Strings that represent the printer names. You could then set the PrinterName property of the PrinterSettings object to each one of the printer names returned by InstalledPrinters and check the IsDefault property to see if it is the default printer. Warning: The following code has not been tested and is not guaranteed to even compile! That's what I get for using Notepad...

Dim myPrinterSettings As New PrinterSettings
If myPrinterSettings.PrinterName = "" Then
    ' The PrinterSettings object doesn't come prepackaged with
    ' the DefaultPrinter name.
    ' Start checking the list of InstalledPrinters.
Else
    ' The PrinterSettings object DID come with the DefaultPrinter!
End If
 
 
' InstalledPrinters check
Dim Index As Integer
Dim myPrinterSettings As New PrinterSettings
Dim listInstalledPrinters As String()
Dim DefaultPrinterName As String = ""
 
listInstalledPrinters = PrinterSettings.InstalledPrinters
For Index = 0 To UBound(listInstalledPrinters, 0)
    myPrinterSettings.PrinterName = listInstalledPrinters(Index)
    If myPrinterSettings.IsDefaultPrinter Then
        ' We found the DefaultPrinter!
        DefaultPrinterName = listInstalledPrinters(Index)
        Exit For
    End If
Next
' DefaultPrinterName should now contain the name of the DefaultPrinter.
' If it's empty, then this logic didn't work...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous3-Jun-04 4:41

3-Jun-04 4:41

Hi,

I am getting the default printers, but do you know how to get the network printer aswell?

Thanks

Dave Kreskowiak3-Jun-04 4:47

3-Jun-04 4:47

The InstalledPrinters list should contain ALL the printers installed, even the network printers...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous3-Jun-04 5:14

3-Jun-04 5:14

No! its not giving those names. It displays only the installed printers on the local system.

I have personally checked.

Dave Kreskowiak3-Jun-04 5:44

3-Jun-04 5:44

Are you saying that you want the printers that another machine is sharing out, like a File/Print server?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous3-Jun-04 6:37

3-Jun-04 6:37

I am talking about the shared network printer.

BTW, i got the work around solution for this. Instead of showing it in the crystal report viewer, I am exporting to the pdf format.

This solves the problem, as i need not to bother about the printer settings.

Anyways, thanks for your help.

Let's make more simple.

Anonymous2-Jun-04 10:34

Re: Let's make more simple.

2-Jun-04 10:34

Good morning.

Maybe i asking for too much. Let's have it like to know every key the user types. Then how can i proceed.

Thank you for your link, but the process is difficult, and they don't have exemple for vb code use.

I don't know what you can do for me

Dave Kreskowiak3-Jun-04 2:52

Modifying Selected EAP Type

3-Jun-04 2:52

Please don't post the same question twice. I already responded to you in your other thread.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

^eleK2-Jun-04 9:21

^eleK

2-Jun-04 9:21

I've been assigned a project to write a program that will change the EAP type that is set in windows. I then need to alter advanced settings under the changed EAP type but frankly i dont know if anyone here can help with that part ( it's called "SecureW2" http://securew2.com/uk/ ) I can't seem to find anywhere how i can either manipulate this through a windows script or a program.

For further clarification: The pulldown that i need to choose/change an item in is in Network Connections -> Right Click on correct network connection -> Properties -> Authentication Tab -> EAP Type. By default this usually says "Smart Card or other Certificate" and i need to change that to something else.

I've dabbled in the registry a little bit but i can't seem to figure anything out there either. Thanks to any one who can give me help on this.

-Ryan

-------------------
I Am A Closet Geek

Re: Modifying Selected EAP Type

Dave Kreskowiak3-Jun-04 2:51

Help needed - making vb6 LoadPicture faster

3-Jun-04 2:51

I have no idea on this one. You might want to try the Networking newsgroup on MSDN here[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

steff kamush2-Jun-04 5:58

steff kamush

2-Jun-04 5:58

v6 LoadPicture method is slow.
I need to load quite a number of bmps onto an array of pictureboxes for an imaging app. Is there a quicker way to load images into picboxes?

instead of:

for i= 1 to totalimages
load picturebox1(i)
picturebox1(i).picture = LoadPicture(Path + cstr(i))
next i

i need to do this faster. pls help

Rose | [Rose]

1fm1fu

Re: Help needed - making vb6 LoadPicture faster

Dave Kreskowiak2-Jun-04 12:31

Re: Help needed - making vb6 LoadPicture faster

2-Jun-04 12:31

There is no way to make it go faster, but you could load your images into an ImageList in Design mode, IIRC, and they will be compiled into your app as resources. You could then get all of your images into your PictureBoxes by fetching them from the ImageList.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

steff kamush3-Jun-04 0:42

steff kamush

3-Jun-04 0:42

Thanks RageInTheMachine9532.

This works if i have a few images. But i have 3MB of gifs (in harddisk), so i load them in groups of about 14(about 45kb in harddisk - translates to 3MB in memory). Problem is that LoadPicture is slow here.

If i load them into an imagelist at design (all 3MB), they could chew 100MB of memory!

Rose | [Rose]

1fm1fu

Re: Help needed - making vb6 LoadPicture faster

Dave Kreskowiak3-Jun-04 1:21

How can I print text in Landscape?

3-Jun-04 1:21

Are you saying that the images you are using are small on disk (3MB total) but take up a LARGE amount of memory when loaded and rendered into a screen format bitmap (100MB)? If this is the case, no wonder it takes forever to load these. Without caching them in memory some how or expanding the images to a more native format (like .BMP), it looks like your going to have to put up with this problem.

I don't see how your going to get around this problem. You can't have speed and high compression at the same time. Generally, it's one or the other. This is because the LoadPicture function has to take a small amount of information and "draw" a large amount of graphics with it to create the bitmap image in memory.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

ATC2-Jun-04 5:25

ATC

2-Jun-04 5:25

I have used the following codes to print out text in Portrait

<br />
       Dim mFont As New Font("Courier New", 12)<br />
        Dim xPos As Single = e.MarginBounds.Left<br />
        Dim yPos As Single = e.MarginBounds.Top<br />
        Dim lineHeight As Single = mFont.GetHeight(e.Graphics)<br />
        Dim str As String<br />
<br />
        '--------------------->  Start to print  <---------------------<br />
        With e.Graphics<br />
            str = "SALE  SUMMARY  From Date1 To Date2 ..............."<br />
            .DrawString(str, mFont, Brushes.Black, xPos, yPos)<br />
            ..................................................<br />
            .DrawString(str, mFont, Brushes.Black, xPos, yPos)<br />
            ..................................................<br />
        End With<br />

- How can I set this to print in Landscape?

Thanks to all help

Re: How can I print text in Landscape?

Dave Kreskowiak2-Jun-04 12:29

Re: ADODB Connection events

2-Jun-04 12:29

You might want to try setting the DefaultPageSettings on the PrintDocument object that gave you the Graphics object your using.

Dim myPrintDocumentObject As New PrintDocument()
myPrintDocumentObject.DefaultPageSettings.Landscape = True

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

ADODB Connection events

RichardGrimmer2-Jun-04 3:33

RichardGrimmer

2-Jun-04 3:33

Hi there,

Have an app that parses a .sql file, and executes on a connection object.

Have declared my conn object With Events, and am trapping various events so that I can log them.

When I run the following:

<br />
INSERT INTO Table VALUES (1,1)<br />
INSERT INTO Table VALUES (2,2)<br />
INSERT INTO Table VALUES (3,3)<br />
INSERT INTO Table VALUES (4,4)<br />
GO<br />
<br />

I am only getting my event handler triggered once, with RecordsAffected coming back as 1. What I need is for it either to tell me that 4 records have been affected, or hit the handler 4 times so that I can keep track myself, but there doesn't seem to be any way to do this - anyone know? Have tried trapping both the InfoMessage and ExecuteComplete events.

As an aside, when I do a DELETE FROM Table, am getting RecordsAffected back as 4, and am reading the file by LineInput & vbcrlf until I hit a GO, then conn.Execute strSQL

This is REALLY starting to annoy me!

"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox

Dave Kreskowiak2-Jun-04 12:25