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]

On Sat, 26 May 2007 20:30:40 -0400, " active"
<ac**********@a-znet.comwrote:

>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
"redear" <re****@nowhere.com.invalidwrote in message
news:8q********************************@4ax.com...

>>

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/micro...d04b502e5ca565

Cor

" active" <ac**********@a-znet.comschreef in bericht
news:e7**************@TK2MSFTNGP03.phx.gbl...

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

[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

"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:OV**************@TK2MSFTNGP02.phx.gbl...

For those who wants a more standard way

http://groups.google.com/group/micro...d04b502e5ca565

Cor

" active" <ac**********@a-znet.comschreef in bericht
news:e7**************@TK2MSFTNGP03.phx.gbl...

>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