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,...
雷蛇滑鼠設定巨集的時候按一下建出來兩個怎麼回事,怎麼讓它只出來
你是不瞭解滑鼠巨集的設定,同一個鍵的按下和鬆開是同一個按鍵動作的必須過程,箭頭向下表示按下去,箭頭向上表示按鍵彈起,如果沒有按鍵彈起鍵就一直按下影響其它動作,多數巨集定義滑鼠如果把彈起那一步刪除鍵盤或滑鼠就會發狂。雷蛇滑鼠你就省省吧,除了個別有板載記憶體的型號,絕大多數需要開啟雲驅動才能使用巨集,你...