建站
咨詢
售后
建站咨詢
新聞中心
vb.net如何更換程序光標(biāo)
比如你要更換在你某個(gè)窗體上的光標(biāo)。
劍河ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)建站的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！
那么在這個(gè)窗體內(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,DataGridView焦點(diǎn)跟光標(biāo)
代碼如下：
Private Sub DataGridView1_CellMouseEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellMouseEnter
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Dim r As DataGridViewRow
For Each r In DataGridView1.SelectedRows
r.Selected = False
Next
If e.RowIndex -1 Then
DataGridView1.Rows.Item(e.RowIndex).Selected = True
End If
End Sub
VB.NET改變鼠標(biāo)位置和讓鼠標(biāo)消失
幾乎找不到真正VB.NET的api，都是自己將VB的api改成VB.NET的api，我的理解是聲明中對(duì)應(yīng)輸入是H的地方保留Long，其他的Long改成Integer，既然VB.NET連MSDN都找不到較全的api說明，不保證api的用法在VB.NET其他版本中適用。
給你個(gè)好玩的例子，包括鼠標(biāo)的隱藏（Ctrl_↓）、顯示（Ctrl_↑），移動(dòng)、點(diǎn)擊
在Form1上放上2個(gè)TextBox，其中TextBox1.Multiline = True，并且面積大些，2個(gè)Button，運(yùn)行后在TextBox1中點(diǎn)擊一下會(huì)記錄位置，移開鼠標(biāo)，點(diǎn)擊移動(dòng)或點(diǎn)擊Button，可模擬在TextBox1中的點(diǎn)擊
Public Class Form1
Public My_MousePosition As Point
'模擬鼠標(biāo)移動(dòng)、點(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 = "移動(dòng)"
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
網(wǎng)站名稱：vb.net自定義光標(biāo) vb中將光標(biāo)定位在文本框
URL鏈接：http://www.dlmjj.cn/article/dojjdcj.html
