vb如何使滑鼠左鍵按一下的同時按一下回車

2022-06-10 14:16:37 字數 2471 閱讀 2647

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,...

雷蛇滑鼠設定巨集的時候按一下建出來兩個怎麼回事,怎麼讓它只出來

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