1樓：匿名使用者
答案補充：當然可以。**如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
option explicit
dim f as boolean
private sub check1_click()f = check1.value
end sub
private sub form_load()timer1.interval = 1000timer1.enabled = falseend sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if f then timer1.enabled = trueend sub
private sub timer1_timer()timer1.enabled = falsesendkeys "~"
end sub
2樓：
延時用timer
按鍵用sendkeys string
lv12那位大大已經給了答案，路過拿兩分。
3樓：匿名使用者
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
on error resume next
if check1.value = 0 then exit sub 'check1未選中，退出
if button <> 1 then exit sub '不是左鍵，退出
t = now
do while datediff("s", t, now) < 1 '延時1秒
doevents
loop
sendkeys "~" '按回車鍵
end sub
4樓：匿名使用者
樓上那個的**可以用
vb中用滑鼠事件完成：按下滑鼠左鍵開始畫圖；若同時按下shift鍵開始擦圖
5樓：
dim i as boolean
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
i = true
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if shift = 1 then me.forecolor = me.backcolor else me.forecolor = vbblack
if not i then
me.currentx = x
me.currenty = y
else
me.line -(x, y)
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
i = false
end sub
vb模擬滑鼠 左鍵一直按下 和滑鼠右鍵一直按下
vb如何設定點選滑鼠左鍵
如何使用vb 讓滑鼠左鍵重複點選
6樓：匿名使用者
用api介面即可完成任務。
自動按下和放開按鈕，這是通過模擬滑鼠左鍵的按下和放開來實現的。該功能需呼叫api函式sendmessage向按鈕發一對滑鼠左鍵按下和放開的訊息，函式介面宣告如下：
declare function sendmessage lib 「user32 alias 「sendmessagea (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
sendmessage函式的hwnd引數為接收訊息的視窗或控制元件的hwnd控制代碼。wmsg引數指定具體的訊息值。在本例中，要傳送滑鼠左鍵按下和釋放的訊息，wmsg的取值分別為wm_lbuttondown和wm_lbuttonup，這兩個常量定義如下：
const wm_lbuttondown = ＆h201
const wm_lbuttonup = ＆h202
把這兩個訊息傳送給一個按鈕，按鈕就會像真的被滑鼠左鍵單擊了一樣。sendmessage函式中的後兩個引數在本例中可以不理，簡單置0即可。
7樓：匿名使用者
是窗體內的模擬
還是全域性模擬？
為什麼滑鼠左鍵按一下有時會變成雙擊了
滑鼠使用一段時間之後由於微動開關的磨損，就會導致接觸不良，所以經常會發生連擊現象，如果你的滑鼠不是特別貴可以直接考慮換滑鼠，如果 很高可以考慮單獨更換微動開關。滑鼠可能因為經常用所以會變的很敏感，所以，有時候你按下去的時候，裡面的鍵並不能立刻彈回來，就會變成雙擊，而且，最好看一下你滑鼠配置，看是不是...
如何讓易語言使滑鼠左鍵一直點選，但是又能夠移動滑鼠的，急求，賞分的
3全部.版本 2 支援庫 eapi 支援庫 shellex 程式集 視窗程式集1 程式集變數 x,整數型 程式集變數 y,整數型 程式集變數 標識1,整數型 程式集變數 標識2,整數型 子程式 按鈕1 被單擊 時鐘2.時鐘週期 到整數 編輯框1.內容 子程式 時鐘1 週期事件 模擬滑鼠點選 x,y,...
雷蛇滑鼠設定巨集的時候按一下建出來兩個怎麼回事，怎麼讓它只出來
你是不瞭解滑鼠巨集的設定，同一個鍵的按下和鬆開是同一個按鍵動作的必須過程，箭頭向下表示按下去，箭頭向上表示按鍵彈起，如果沒有按鍵彈起鍵就一直按下影響其它動作，多數巨集定義滑鼠如果把彈起那一步刪除鍵盤或滑鼠就會發狂。雷蛇滑鼠你就省省吧，除了個別有板載記憶體的型號，絕大多數需要開啟雲驅動才能使用巨集，你...