Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Public Const BM_CLICK = &HF5
Private Sub Command1_Click()
SendMessage Text1.Text, &HF5, 0, ByVal 0
End Sub
TEXT裏寫句柄,然後就OK拉!
找按妞句柄用Findow函數,子窗口用FindWindowEx
聲明如下:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
然後根據窗口標題、類名什麽的壹層層找!
比如查找壹個默認標題的txt文本框
Dim h1 As Long
Dim h2 As Long
h1 = FindWindow(vbNullString, "無標題 - 記事本") 'vbNullString 是類名,"無標題 - 記事本" 是窗體名
h2 = FindWindowEx(h1, 0&, "edit", vbNullString) '父窗口句柄 子窗口句柄,如果為NULL就從第壹個開始找(0& 表示無) 類名 窗體名
h1是TXT的句柄,h2是TXT編輯區域的句柄!