Сообщение BM_CLICK

Пошлите сообщение BM_CLICK кнопке для имитации щелчка. Сообщение может не сработать, если родительское окно кнопки не активно. Во избежания этого случая используйте SetActiveWindow для активизации родительского окна перед посылкой сообщения

Возвращаемое значение

Это сообщение не возвращает значимых значений

Параметры

wParam

Не используется - установите равным 0

lParam

Не используется - установите равным 0

Пример

' Имитируем щелчок на кнопке
' Установите на форме две кнопки и добавьте код для
' первой кнопки Command1_Click
' MsgBox "Привет!"
' вставьте следующий код для второй кнопки

Private Sub Command2_Click()

Dim retval As Long ' возвращаемое значение
  
retval = SendMessage(Command1.hWnd, BM_CLICK, ByVal 0, ByVal 0)  ' имитируем нажатие кнопки
End Sub

Категория