锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net获取光标位置 vba获取光标位置

坐标IT技术

在vb.net 键盘事件 中 如何获取当前鼠标的位置 。比如我按下“enter”键 ， 获取此时刻鼠标的位置 。控件中keyup属性记录键盘操作
比如：
Private Sub from1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
if e.keycode = keys.Enter then
lable1.text =Cursor.Position.X
【vb.net获取光标位置 vba获取光标位置】lable2.text = Cursor.Position.Y
end if
end sub
VB.NET中如何获取TextBox的光标屏幕坐标？TextBoxBase.GetPositionFromCharIndex 方法
检索控件内指定字符索引处的位置 。
此方法使您得以确定特定字符索引在控件中的位置 。此方法可用于诸如显示快捷菜单项或控件中某个单词的帮助信息等任务 。例如，如果希望当用户在控件中的单词上右击时向用户显示选项菜单，则可以使用此方法确定单词的位置以正确显示 ContextMenu 控件 。
Control.PointToScreen 方法
将指定工作区点的位置计算成屏幕坐标 。
在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 如何获得WebBrowser编辑模式时当前所选择的内容和当前光标所在位置根本就不可能，webbrowser的你说的功能被封装在控件里了，而且没法调用，除非你重载（overload）不知道你要这个有什么用 。如果是为了实现像safari或者火狐之类的高亮搜索或者选择一段文字然后弹出关于这段文字的搜索框的功能就不要用webbrowser，引为webbrowser实质上是IE的内核，所以这些功能基本没有希望 。等等吧，等VS2010出来，其中的webbrowser版本就应该是IE8的版本了 。如果想做大就全部靠自己，不要相信什么控件 。相信我吧，我学.NET很多年了
vb.net 怎样获取鼠标单击点的坐标通过窗体vb.net获取光标位置的MouseDown事件vb.net获取光标位置的e.X和e.Y属性获取 。通过e.Location属性获取Point类型的坐标 。
下面的代码示例使用 Location 属性跟踪鼠标左键单击vb.net获取光标位置，并绘制一系列直线段作为对用户输入的响应 。如果隐藏窗体然后重新显示它vb.net获取光标位置 ， 此示例不保留已绘制的线段，该代码为简单起见而被省略了 。
Dim FirstPoint As Point
Dim HaveFirstPoint As Boolean = False
Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If HaveFirstPoint Then
Dim g As Graphics = Me.CreateGraphics()
g.DrawLine(Pens.Black, FirstPoint, e.Location)
HaveFirstPoint = False
Else
FirstPoint = e.Location
HaveFirstPoint = True
End If
End Sub
vb.net获取光标位置的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba获取光标位置、vb.net获取光标位置的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：用cmd删除文件夹 用cmd删除mysql

    下一篇：如何修改连接服务器的名称？ 怎么更改连接的服务器名称