|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Monitores)
|
|
 |
Título da Dica: Obter a resolução de tela
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Private Sub Obtem()
Dim xTwips%, yTwips%, xPixels#, YPixels#
xTwips = Screen.TwipsPerPixelX
yTwips = Screen.TwipsPerPixelY
YPixels = Screen.Height / yTwips
xPixels = Screen.Width / xTwips
Debug.print "A Resolução é: " & Str$(xPixels) + _
" por " + Str$(YPixels)
End Sub
|
|
|
|
|
