VBWEB - Verificar a resolução de vídeo

USUÁRIO: SENHA:

SALVAR LOGIN ?


	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-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site