Área Da Tela

[Bruno Krebs]

Como faço para saber se o pc em que está rodando meu programa está em 64x480 ou 800x600 ou qualquer outro formato??

Desde já, obrigado!

[Luiz Humberto]

Cira um módulo com este código:

Public Function VerificaResolucao(pixelWidth As Long, pixelHeight As Long) As Boolean

    Dim lngTwipsX As Long
    Dim lngTwipsY As Long

    'Converte de Pixels para Twips
    lngTwipsX = pixelWidth * 15
    lngTwipsY = pixelHeight * 15
    
    'Compara com a resolução Atual
    If lngTwipsX <> Screen.Width Then
        VerificaResolucao = False
    Else
        If lngTwipsY <> Screen.Height Then
            VerificaResolucao = False
        Else
            VerificaResolucao = True
        End If
    End If
    
End Function

No evento Load:

If VerificaResolucao(800, 600) Then
    
       Faz seu tratamento    

      ElseIf VerificaResolucao(1024, 768) Then
    
       Faz seu tratamento

 End If
    
   Me.Refresh

[Bruno Krebs]

Muito obrigado!

[Luiz Humberto]

Precisando estamos aí.