vb.net鼠標經(jīng)過某一部分時隱藏

屬性里面把picturebox1的UseWaitCursor改為true然后再改Cursor的屬性。選擇一個空白cursor，自己找吧

創(chuàng)新互聯(lián)公司專注于沽源企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城開發(fā)。沽源網(wǎng)站建設(shè)公司,為沽源等地區(qū)提供建站服務(wù)。全流程按需定制，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

VB.NET改變鼠標位置和讓鼠標消失

幾乎找不到真正VB.NET的api，都是自己將VB的api改成VB.NET的api，我的理解是聲明中對應(yīng)輸入是H的地方保留Long，其他的Long改成Integer，既然VB.NET連MSDN都找不到較全的api說明，不保證api的用法在VB.NET其他版本中適用。

給你個好玩的例子，包括鼠標的隱藏（Ctrl_↓）、顯示（Ctrl_↑），移動、點擊

在Form1上放上2個TextBox，其中TextBox1.Multiline = True，并且面積大些，2個Button，運行后在TextBox1中點擊一下會記錄位置，移開鼠標，點擊移動或點擊Button，可模擬在TextBox1中的點擊

Public Class Form1

Public My_MousePosition As Point

'模擬鼠標移動、點擊

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

'定義光標的位置

Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Integer, ByVal y As Integer) As Integer

'鼠標的隱藏

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Multiline = True

Button1.Text = "點擊"

Button2.Text = "移動"

Me.KeyPreview = True

End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.Control And e.KeyCode = Keys.Down Then ShowCursor(0)

If e.Control And e.KeyCode = Keys.Up Then ShowCursor(1)

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

TextBox2.Text = MousePosition.X " " MousePosition.Y

End Sub

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

My_MousePosition = MousePosition

TextBox1.Text = My_MousePosition.X " " My_MousePosition.Y vbCrLf

End Sub

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

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

mouse_event(H2, 0, 0, 0, 0)

mouse_event(H4, 0, 0, 0, 0)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

End Sub

End Class

其中

mouse_event Lib "user32" (ByVal dwFlags As Long

的dwFlags的代碼是

Const MOUSEEVENTF_LEFTDOWN = H2

Const MOUSEEVENTF_LEFTUP = H4

Const MOUSEEVENTF_MIDDLEDOWN = H20

Const MOUSEEVENTF_MIDDLEUP = H40

Const MOUSEEVENTF_MOVE = H1

Const MOUSEEVENTF_ABSOLUTE = H8000

Const MOUSEEVENTF_RIGHTDOWN = H8

Const MOUSEEVENTF_RIGHTUP = H10

vb.net如何去除光標

改變鼠標位置或讓鼠標消失。

Shift + 方向鍵 ，選擇 從當前光標至移動后光標所在位置的所有文本

Ctrl+Shift+左右方向鍵，選擇 從當前光標至下一(上一)單詞首(尾)

Shift + Alt + 方向鍵，選擇 由當前光標與 移動后光標所構(gòu)成的矩形的區(qū)域內(nèi)所有文本

Ctrl + 單擊鼠標左鍵， 選擇 單擊位置的整個單詞

Shift + 單擊鼠標左鍵，選擇 從當前光標至 鼠標單擊位置區(qū)間的所有文本

Shift + Home(End)， 選擇 從當前光標至 行首(尾)的所有文本

名稱欄目：vb.net隱藏鼠標,vb按鈕隱藏
URL鏈接：http://chinadenli.net/article47/dsedchj.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、網(wǎng)站設(shè)計公司、全網(wǎng)營銷推廣、品牌網(wǎng)站設(shè)計、云服務(wù)器、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)