vb.net鼠标指针 vbs调用鼠标
vb 鼠标指针
具体的代码不写了,如下:
创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销,产品发布一步更新,电脑网络+移动网络一网打尽,满足企业的营销需求!创新互联公司具备承接各种类型的网站建设、成都网站设计项目的能力。经过10多年的努力的开拓,为不同行业的企事业单位提供了优质的服务,并获得了客户的一致好评。
首先通过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的窗体,能否通过配置控件属性来设置鼠标指针移动到控件上出现的气泡提示?
首先,你要找一个手型的图标文件(就是扩展名为ico的文件),然后用VB创建一个窗体,在窗体的属性MouseIcon里面添加你准备的ico文件,然后把属性MousePoint的属性值改成99-ccCustom,就可以了
vb.net如何更换程序光标
比如你要更换在你某个窗体上的光标。
那么在这个窗体内用这样的代码
Me.Cursor = System.Windows.Forms.Cursors.Cross
如果你要更换当前系统显示的光标
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross
其中Cross代表十字光标,你也可以更改成其他的,直接查看Cursors中的各成员就可以找到了。
如何在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调用鼠标
分享网址:http://myzitong.com/article/dosehpe.html