LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA
























































04. Пример показывает Вам как определить разрешение экрана окна формы.

Все примеры Microsoft Access
Private Declare Function apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _
 (ByVal nIndex As LongAs Long

'==============================================================
'   Получить разрешение экрана
Private Sub кнОткрыть_Click()
    Me.myMemo.Caption = "Разрешение по X: " & _
                apiGetSystemMetrics(0) & vbCrLf
    Me.myMemo.Caption = Me.myMemo.Caption & _
                        "Разрешение по Y: " & _
                apiGetSystemMetrics(1)
End Sub