成都网站建设设计

将想法与焦点和您一起共享

vb.net捕捉鼠标 vb获取鼠标位置

如何通过vb.net WinForm窗体上画线条或弧线,让用户可以用鼠标捕捉(选中)已画的线条。

代码写起来可能比较麻烦,给你个思路,就是用GraphicsPath来绘制,然后通过绘制目标的鼠标移动事件来获取当前鼠标在绘制目标中的实际位置,再通过GraphicsPath的IsVisible()方法来确认鼠标是否包含在GraphicsPath中。

成都创新互联主营细河网站建设的网络公司,主营网站建设方案,成都App定制开发,细河h5小程序制作搭建,细河网站营销推广欢迎细河等地区企业咨询

DrawLine直线比较容易处理,只要得到Line的坐标点,然后比较当前鼠标坐标就好。

在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐标声明

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐标声明

Private Structure POINTAPI '声明坐标变量

Public x As Int32 '声明坐标变量为32位

Public y As Int32 '声明坐标变量为32位

End Structure

'以上是声明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可

Dim P As POINTAPI '声明坐标变量

Dim xx, yy '声明转换要用到的变量

GetCursorPos(P) '获取鼠标在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体的坐标

xx = P.x.ToString '把X转换成能显示到文本框的字符串格式

yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标

End Sub

求VB.NET怎么捕捉系统鼠标当前状态?如:打开文件等待时的漏斗状态,或双箭头的可拉伸状态,谢谢。

me.Cursor.ToString()

或者可以枚举

me.cursor=Cursors.WaitCursor之类的

不过有以下局限:

自定义指针无法识别

窗口处于非激活状态可能无效

与其他控件可能冲突


网页标题:vb.net捕捉鼠标 vb获取鼠标位置
网页地址:http://chengdu.cdxwcx.cn/article/dopcejc.html