如何在VB.net中用程序控制鼠標移動和點擊

調(diào)用api

10多年的義馬網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。成都全網(wǎng)營銷的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整義馬建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“義馬網(wǎng)站設(shè)計”,“義馬網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

在Visual Baisc.net中的聲明：

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)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標左鍵按下

VB.NET如何用一個按鈕控制另一個form的顯示與關(guān)閉，我是這樣搞的

你好，你使用這種方法只是在控制Form3的visible屬性，F(xiàn)orm3只是可見或隱藏，并不是真正的關(guān)閉了，而你使用Form3上的關(guān)閉按鈕，他就是真的關(guān)閉了，是調(diào)用的Form3的Close方法，就是真的沒有了，"我設(shè)置的S_form3就不起作用了”這句話你應該是想說按鈕不起作用了吧，你的S_form3只是個變量，跟Form3沒有什么關(guān)系，你只是用來當一個Form3可見性的標志，使用bool變量更能清楚表達你的意圖。。。沒必要用string啊。。。，

by the way,你在按鈕事件里添加代碼 Form3.Close()就會達到和在form3上按關(guān)閉按鈕同樣的效果。

vb.net怎么設(shè)置快捷鍵

新建一個Form1把Form1的KeyPreview改成True

拖入一個Button1到Form1上面

然后加入以下代碼

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

If e.KeyData = (Keys.Alt Or Keys.G) Then

Button1.PerformClick() '或者用Button1_Click(Nothing, New EventArgs)

'快捷鍵Alt+G觸發(fā)Button1_Click()事件。

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Button1.Size = New Size(180, 23)

Button1.Text = "我被局部快捷鍵給召喚了~"

End Sub