vb6.0中使鼠標左鍵始終處於點擊狀態 在線等。。。。

'添加窗體Form1,按鈕Command1,Command2,計時器Timer1,添加如下代碼：

Private?Declare?Sub?mouse_event?Lib?"USER32"?(ByVal?dwFlags?As?Long,?ByVal?dx?As?Long,?ByVal?dy?As?Long,?ByVal?cButtons?As?Long,?ByVal?dwExtraInfo?As?Long)

Const?MOUSEEVENTF_LEFTDOWN?=?&H2

Const?MOUSEEVENTF_LEFTUP?=?&H4

Private?Sub?Form_Load()

Command1.Caption?=?"開始"

Command2.Caption?=?"停止"

Timer1.Interval?=?100

Timer1.Enabled?=?False

End?Sub

Private?Sub?Command1_Click()

Timer1.Enabled?=?True

End?Sub

Private?Sub?Command2_Click()

Timer1.Enabled?=?False

End?Sub

Private?Sub?Timer1_Timer()

mouse_event?MOUSEEVENTF_LEFTDOWN?Or?MOUSEEVENTF_LEFTUP,?0,?0,?0,?0

End?Sub

上一篇:拍賣估價網站源代碼

下一篇:可轉債分時線向上選股公式