[Resolvido] Resolução da tela

[Claudio Neto 3]

Dá para eu pegar pelo VB as resolução da tela do computador?

 

Se sim, como?

 

Obrigado.

[Knigth Rider 0]

Dica retirada do site http://www.macoratti.net

 

Exibir resolução de vídeo

MsgBox("A resolução é: " & My.Computer.Screen.Bounds.Width.ToString & "x" & _

My.Computer.Screen.Bounds.Height.ToString & " Pixels")

 

 

 

nova materia: Dicas Rapidas de VB.Net acesse: http://www.macoratti.net/08/02/vbn5_dr1.htm

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Claudio Neto 3]

Dica retirada do site http://www.macoratti.net

 

Exibir resolução de vídeo

MsgBox("A resolução é: " & My.Computer.Screen.Bounds.Width.ToString & "x" & _

My.Computer.Screen.Bounds.Height.ToString & " Pixels")

 

 

 

nova materia: Dicas Rapidas de VB.Net acesse: http://www.macoratti.net/08/02/vbn5_dr1.htm

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Obrigado, já tinha conseguido resolver.

 

Eu achei um outro jeito de fazer também, assim:

 

CODE

Dim xTwips%, yTwips%, xPixels#, YPixels#

xTwips = Screen.TwipsPerPixelX

yTwips = Screen.TwipsPerPixelY

YPixels = Screen.Height / yTwips

xPixels = Screen.Width / xTwips

MsgBox "A Resolução é: " & Str$(xPixels) + _

" por " + Str$(YPixels)

 

O legal é que, a partir disso, achei uma maneira fácil do vb se auto ajustar na tela de acordo com a resolução, assim:

 

Dim ctlControle As Control

 

For Each ctlControle In Controls

 

ctlControle.FontSize = ctlControle.FontSize * (Int(xPixels) / 1024)

ctlControle.Height = ctlControle.Height * (Int(YPixels) / 768)

ctlControle.Width = ctlControle.Width * (Int(xPixels) / 1024)

ctlControle.Top = ctlControle.Top * (Int(YPixels) / 768)

ctlControle.Left = ctlControle.Left * (Int(xPixels) / 1024)

 

Next

Exit Sub

 

Valeu, abraços...