|
 |
Свойства продукта |
|
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
|
|