Visuální stisknutí tlačítka
Postup:
Deklarujte v
deklarační části formuláře:
Private Declare Function
SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const BM_SETSTATE = &HF3
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Na formulář dejte tři tlačítka -
Command1, Command2 a Command3. Při stisku Command2 se Command1 zamáčkne a
při stisku Command3 se Command1 vrátí do původní polohy:
Private Sub Command2_Click()
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal
0&)
End Sub
Private Sub Command3_Click()
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal
0&)
End Sub