Título da Dica: Saber qual a resolução do monitor de video via API
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Há uma forma simples de se obter a resolução de um monitor de vídeo usando uma API.
Declare Function GetSystemMetrics Lib "User" _ (ByVal nIndex As Integer) As Integer '...
Sub Form_Resize() dim xRes As Integer dim yRes As Integer xRes = GetSystemMetrics(0) yRes = GetSystemMetrics(1) If xRes < 1024 and yRes < 768 Then 'adicione seu código conforme queira End If End Sub
