[Resolvido] VB - Resolução da tela

[terra.jr 0]

Amigos, como eu faço para obter a resolução de tela usada pelo usuário.

 

Tenho que fazer um serviço em VB e não sou especialista nisso, pois sempre andei junto com as soluções de software livre.

 

Gostaria de capturar a resolução da tela em uma variável.

 

É possível?

[Marcio Soares 0]

Segue abaixo uma forma de descobrir a resolução da tela.

 

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

xTwips = Screen.TwipsPerPixelX

yTwips = Screen.TwipsPerPixelY

YPixels = Screen.Height / yTwips

xPixels = Screen.Width / xTwips

 

If xPixels = "800" And YPixels = "600" Then

Frame2.Left = 8700

End If

If xPixels = "640" And YPixels = "480" Then

Frame2.Left = 6800

End If

[Claudio Neto 3]

Amigos, como eu faço para obter a resolução de tela usada pelo usuário.

 

Tenho que fazer um serviço em VB e não sou especialista nisso, pois sempre andei junto com as soluções de software livre.

 

Gostaria de capturar a resolução da tela em uma variável.

 

É possível?

Antes de postar qualquer coisa, procure no fórum. A resposta para sua dúvida já existe postada, assim evitamos um monte de tópicos iguais.

 

Abraço.