how to find the screen resolution

[active]

I've been looking for a way to determine the DPI (PPI) of the screen.

I've found often the suggestion to use:

Dim height As Integer = My.Computer.Screen.Bounds.Height

Dim width As Integer = My.Computer.Screen.Bounds.Width

but that gives the total number of pixels not the DPI (which is usually 96
for pc's).



Can you tell me how to the DPIX and DPIY?





Thanks

 

[redear]

I've been looking for a way to determine the DPI (PPI) of the screen.

I've found often the suggestion to use:

Dim height As Integer = My.Computer.Screen.Bounds.Height

Dim width As Integer = My.Computer.Screen.Bounds.Width

but that gives the total number of pixels not the DPI (which is usually 96
for pc's).

Can you tell me how to the DPIX and DPIY?

Thanks

Try this:

Dim dspGraphics As Graphics
dspGraphics = Me.CreateGraphics ' Graphics for user's display
MsgBox(dspGraphics.DpiY)
MsgBox(dspGraphics.DpiX)
dspGraphics.Dispose()

 

[active]

Works for me!

Thanks

Try this:

Dim dspGraphics As Graphics
dspGraphics = Me.CreateGraphics ' Graphics for user's display
MsgBox(dspGraphics.DpiY)
MsgBox(dspGraphics.DpiX)
dspGraphics.Dispose()

 

[Cor Ligthert [MVP]]

For those who wants a more standard way

http://groups.google.com/group/micr...reen+resolution&rnum=4&hl=en#58d04b502e5ca565

Cor

 

[active]

I had seen that before I posted but as far as I could tell it only showed
how to get the screen bounds (which is the size) not the DPI.

thanks