Risoluzione dello schermo
RISOLUZIONE DELLO SCHERMO
Piattaforma esempio: Visual Basic 6.0
Private Declare Function GetSystemMetrics Lib “user32″ (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Richiamare la procedura attraverso una sub definita all’interno del codice
Private Sub InfoDysplay()
VidWidth = GetSystemMetrics(SM_CXSCREEN)
VidHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox “La risoluzione corrente è : ” & VidWidth & ” X ” & VidHeight
End Sub



