請問怎么后臺自動點擊Command1按鈕呢？表單最小化也能點擊到，和前臺的滑鼠不影響！
不是用 call Command1_Click
求大神給下代碼
uj5u.com熱心網友回復：
Command1_Click()
uj5u.com熱心網友回復：
趙老師，沒有看到代碼哦uj5u.com熱心網友回復：
在你需要模擬按下Command1按鈕的地方插入一條陳述句：
Command1_Click()
uj5u.com熱心網友回復：
我是想使用timer來控制點擊的，把表單最小化后依然可以觸發Command1
uj5u.com熱心網友回復：
Option Explicit
Private Sub Command1_Click()
Text1 = Val(Text1) + 1
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Command1_Click
End Sub
uj5u.com熱心網友回復：
private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
private Const BM_CLICK = &HF5
Private Sub Timer1_Timer()
PostMessage Command1.hwnd , BM_CLICK, 0&, ByVal 0
End Sub
uj5u.com熱心網友回復：
在自己的程式里，就用TIMER控制元件，定時呼叫Command1_Click。如果是二個不同的程式，需要列舉視窗，再列舉命令按鈕，最后給他發送訊息。
uj5u.com熱心網友回復：
Private Function SendClick(hwnd As Long, mX As Long, mY As Long)
'發送點擊訊息
Dim I As Long
I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73803.html
標籤：非技術類