USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Monitores)

Título da Dica:  Obter a resolução de tela
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página