正文
vb.net鼠标指针 vba鼠标
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net如何更换程序光标
比如你要更换在你某个窗体上的光标。
那么在这个窗体内用这样的代码
Me.Cursor = System.Windows.Forms.Cursors.Cross
如果你要更换当前系统显示的光标
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross
其中Cross代表十字光标，你也可以更改成其他的，直接查看Cursors中的各成员就可以找到了。
相关问答
Q1: VB.net的窗体，能否通过配置控件属性来设置鼠标指针移动到控件上出现的气泡提示?
首先，你要找一个手型的图标文件(就是扩展名为ico的文件)，然后用VB创建一个窗体，在窗体的属性MouseIcon里面添加你准备的ico文件，然后把属性MousePoint的属性值改成99-ccCustom，就可以了
Q2: 如何在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）模拟鼠标左键按下
Q3: vb 鼠标指针
具体的代码不写了，如下：
首先通过label句柄获取其所在的矩形区域，然后判断鼠标是否在这个区域内即可
下面代码获取这个矩形区域：
Declare
Function
GetWindowRect
Lib
"user32"
Alias
"GetWindowRect"
(ByVal
hwnd
As
Long,
lpRect
As
RECT)
As
Long
Private
Type
RECT
Left
As
Long
Top
As
Long
Right
As
Long
Bottom
As
Long
End
Type
用这个函数
EX:
Dim
Rec
As
RECT
'
Get
Left,
Right,
Top
and
Bottom
of
ExplButton
GetWindowRect
ExplButton.hwnd,
Rec
用下列API函数获取当前鼠标所在的坐标：
Private
Declare
Function
GetCursorPos
Lib
"user32"
(lpPoint
As
POINTAPI)
As
Long
Private
Type
POINTAPI
X
As
Long
Y
As
Long
End
Type
窗体中：
GetCursorPos
PT
即可获取当前鼠标所在的坐标，然后结合上面的矩形区域，你自己分析一下就行了，很简单。具体的判断代码我就不写了，如果实在不知道的话再追问吧
另外：新年快乐
关于vb.net鼠标指针和vba鼠标的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
