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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Verificar a resolução de vídeo
Postada em 14/3/2007 por Vilmar Brazão         
'Coloque este código no ser formulário para checar a resolução de vídeo e no trecho que tem o If..Else..
'você pode tomar a decisão que bem entender conforme a resolução que for checada.

Option Explicit

Private Sub Form_Load()
    Dim intX As Integer
    Dim intY As Integer
    Dim strResolucao As String
    
    intX = Screen.Width / Screen.TwipsPerPixelX
    intY = Screen.Height / Screen.TwipsPerPixelY
    strResolucao = intX & "x" & intY
    
    Debug.Print "A resolução é de: " & strResolucao
    If strResolucao <> "800x600" And strResolucao <> "1024x768" Then
        Me.Top = 0
        Me.Left = 0
    End If
End Sub
 


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