vb.net鼠标图标 vbs鼠标

vb.net如何更换程序光标

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

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

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

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

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

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

相关问答

Q1: VB.net做的程序在进程结束后托盘图标不会消失，需要鼠标滑过才会消失，怎么处理这个问题？

只有windows 7等以上版本的操作系统才可以自动消失。其他windows NT内核版本，例如：windows 2003,windows xp,windows 2000等老版本，要让图标托盘消失，必须至少要两种方法：

1：退出程序时，在代码里调用删除托盘图标的代码。

2：程序崩溃时或者是手动结束进程后，图标遗留在右下角，只能用鼠标移动到上面，它才会消失。

所以，必须要在代码里面写上退出托盘的程序，因为很多人当然也包括我自己，有时候编写代码，只编写了启动托盘的代码，没有写退出托盘的代码，以为程序退出了，托盘图标会自己消失。而事实上不是这样的，托盘的启动和退出，必须要自己来显式的在程序里面实现。启动托盘实现后，必须要实现退出托盘。

所以建议大家在编写托盘图标程序时，在退出程序的时候，显式的调用删除托盘图标的代码就可以了。

Q2: vb.net 如何获取当前鼠标的ICON图标(光标)

Dim mc As System.Windows.Forms.Cursor

mc = Cursors.Arrow

mc当前获取就是箭头鼠标

Q3: 如何在VB.net中用程序控制鼠标移动和点击

调用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 '模拟鼠标左键按下

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鼠标图标的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs鼠标、vb.net鼠标图标的信息别忘了在本站进行查找喔。