04. Пример показывает Вам как определить разрешение экрана окна формы.
|
Private Declare Function apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _
(ByVal nIndex As Long) As Long
'==============================================================
' Получить разрешение экрана
Private Sub кнОткрыть_Click()
Me.myMemo.Caption = "Разрешение по X: " & _
apiGetSystemMetrics(0) & vbCrLf
Me.myMemo.Caption = Me.myMemo.Caption & _
"Разрешение по Y: " & _
apiGetSystemMetrics(1)
End Sub
|
|