求VB.NET怎么捕捉系統(tǒng)鼠標(biāo)當(dāng)前狀態(tài)？如：打開文件等待時的漏斗狀態(tài)，或雙箭頭的可拉伸狀態(tài)，謝謝。

me.Cursor.ToString()

創(chuàng)新互聯(lián)是一家專業(yè)提供峨山縣企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站制作、網(wǎng)站建設(shè)、HTML5建站、小程序制作等業(yè)務(wù)。10年已為峨山縣眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計公司優(yōu)惠進(jìn)行中。

或者可以枚舉

me.cursor=Cursors.WaitCursor之類的

不過有以下局限：

自定義指針無法識別

窗口處于非激活狀態(tài)可能無效

與其他控件可能沖突

VB.NET改變鼠標(biāo)位置和讓鼠標(biāo)消失

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

給你個好玩的例子，包括鼠標(biāo)的隱藏（Ctrl_↓）、顯示（Ctrl_↑），移動、點(diǎn)擊

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

Public Class Form1

Public My_MousePosition As Point

'模擬鼠標(biāo)移動、點(diǎn)擊

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)

'定義光標(biāo)的位置

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

'鼠標(biāo)的隱藏

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 = "點(diǎn)擊"

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中用程序控制鼠標(biāo)移動和點(diǎn)擊

調(diào)用api

在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 '模擬鼠標(biāo)左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標(biāo)左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標(biāo)中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標(biāo)中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標(biāo)右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標(biāo)右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標(biāo)指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標(biāo)左鍵按下

VB.NET中如何獲取TextBox的光標(biāo)屏幕坐標(biāo)？

TextBoxBase.GetPositionFromCharIndex 方法

檢索控件內(nèi)指定字符索引處的位置。

此方法使您得以確定特定字符索引在控件中的位置。此方法可用于諸如顯示快捷菜單項(xiàng)或控件中某個單詞的幫助信息等任務(wù)。例如，如果希望當(dāng)用戶在控件中的單詞上右擊時向用戶顯示選項(xiàng)菜單，則可以使用此方法確定單詞的位置以正確顯示 ContextMenu 控件。

Control.PointToScreen 方法

將指定工作區(qū)點(diǎn)的位置計算成屏幕坐標(biāo)。

vb.net如何更換程序光標(biāo)

比如你要更換在你某個窗體上的光標(biāo)。

那么在這個窗體內(nèi)用這樣的代碼

Me.Cursor = System.Windows.Forms.Cursors.Cross

如果你要更換當(dāng)前系統(tǒng)顯示的光標(biāo)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross

其中Cross代表十字光標(biāo)，你也可以更改成其他的，直接查看Cursors中的各成員就可以找到了。

vb.net如何去除光標(biāo)

改變鼠標(biāo)位置或讓鼠標(biāo)消失。

Shift + 方向鍵 ，選擇 從當(dāng)前光標(biāo)至移動后光標(biāo)所在位置的所有文本

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

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

Ctrl + 單擊鼠標(biāo)左鍵， 選擇 單擊位置的整個單詞

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

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

文章標(biāo)題：vb.net鼠標(biāo)光標(biāo) vb 鼠標(biāo)點(diǎn)擊
當(dāng)前URL：http://sd-ha.com/article28/hiejcp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、云服務(wù)器、服務(wù)器托管、面包屑導(dǎo)航、虛擬主機(jī)、商城網(wǎng)站

廣告

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