vb.net修改鼠标光标

VB 改变桌面鼠标图标

不知道你是修改的是系统的还是程序的?

如果是程序的那就如上位所说 若想让关闭程序后鼠标仍改变那就参考下面

'关于 SetSystemCursor

hCur：光标的句柄,该函数hCur标识的光标的内容代替id定义的系统光标内容.系统通过调用DestroyCursor函数销毁hCur.所以呢hCur不能是由LoadCursor函数载入的光标.要指定一个从资源载入的光标,先用CopyCursor函数复制该光标,然后把该副本传送给SetSystemCursor函数.

id：指定由hour的内容替换系统光标.

下面是一系列的系统光标标识符：

OCR_APPSTARTING：标准箭头和小的沙漏

OCR_NORMAL：标准箭头

OCR_CROSS：交叉十字线光标

OCR_HELP：箭头和向东标记

OCR_IBEAM：I形梁

OCR_NO：斜的圆

OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西

OCR_SIZENESEW：双箭头分别指向东北和西南

OCR_SIZENS：双箭头,分别指向北和南

OCR_SIZENWSE：双箭头分别指向西北和东南

OCR_SIZEWE：双箭头分别指向西和东

OCR_UP：垂直箭头

OCR_WAIT：沙漏

然后 SetSystemCursor LoadCursorFromFile("D:\1.ani"),OCR_NORMAL 即可.

系统会自动调用 DestroyCursor 来销毁.

Option Explicit

Dim lRet As Long

Private Sub Form_Load()

lRet = LoadCursorFromFile("D:\Icons\Standard Hand.cur")'我的图标路径

SetSystemCursor lRet, OCR_NORMAL

End Sub

Private Sub Command1_Click()

DestroyCursor(lRet)

惨了......变不回去......必须要重设光标了.

但你可以设置单击"取消"后把鼠标换成系统鼠标图案,前提是你要有系统的鼠标文件

vb.net 中 怎么实现 当鼠标移动到某控件时 改变鼠标的形状

属性里面先把UseWaitCursor改为true然后再改Cursor的属性.选择一个你要的形状

在VB中能否通过键盘方向健来改变鼠标光标的位置

土嘎嘎的粉丝们大家好！

使用SENDKEY就可以了.如：

SENDKEY

{TAB}

则是相当于按了键盘上的TAB键

打字不易,采纳哦！

vb.net如何更换程序光标

比如你要更换在你某个窗体上的光标.

那么在这个窗体内用这样的代码

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

如果你要更换当前系统显示的光标

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

其中Cross代表十字光标,你也可以更改成其他的,直接查看Cursors中的各成员就可以找到了.

VB.NET改变鼠标位置和让鼠标消失

几乎找不到真正VB.NET的api,都是自己将VB的api改成VB.NET的api,我的理解是声明中对应输入是H的地方保留Long,其他的Long改成Integer,既然VB.NET连MSDN都找不到较全的api说明,不保证api的用法在VB.NET其他版本中适用.

Public Class Form1

Public My_MousePosition As Point

'定义光标的位置

'鼠标的隐藏

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

TextBox1.Multiline = True

Me.KeyPreview = True

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)

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

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

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

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

End Class

其中

的dwFlags的代码是

Const MOUSEEVENTF_MOVE = H1

Const MOUSEEVENTF_RIGHTUP = H10

以上就是土嘎嘎小编为大家整理的vb.net修改鼠标光标相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！