vb 光标所在位置

' 注意:

' 1 这里纠正了一个认识上的误区。

' 您说: 假如selstart=7,那么光标在第2行第2列

' 如果您的列坐标是从0开始的，那么行坐标也应该是从0开始

' 那么实际的位置应是第1行，第2列

'

' 2 您说: selstart=4, 那么光标在第2行第0列

' 实际测试: 在vb6环境中，selstart=4时，光标是在第0行第3列，目前以下代码是按此规则来获得位置

' 若需要满足您说的条件时，请寻找并恢复函数GetPoint中以下三行已注释的代码

' Resultx = 0:

' Resulty = Resulty + 1

' IsCharCr = True

Option Explicit

' 坐标结构

Private Type Point

x As Long ' 横向坐标(列)

y As Long ' 纵向坐标(行)

End Type

' 函数: 从字符串中获取坐标位置

' 参数: Text 检查的字符串

' StartIndex 文字的位置

Private Function GetPoint(Text As String, StartIndex As Long) As Point

' 变量声明

Dim Result As Point ' 坐标信息

Dim i As Long ' 当前扫描的位置

Dim iChar As String ' 当前扫描的字符

Dim IsCharCr As Boolean ' 标记上一个是否为换行符

' 初始化

Resultx = 0

Resulty = 0

IsCharCr = False

' 获得需要扫描的字符串

Text = Left(Text, StartIndex)

' 扫描文本

For i = 1 To Len(Text)

iChar = Mid(Text, i, 1)

Select Case iChar

Case vbCr ' 0x0A 换行符

'Resultx = 0:

'Resulty = Resulty + 1

'IsCharCr = True

Case vbLf ' 0x10 回车符

If Not IsCharCr Then

Resultx = 0:

Resulty = Resulty + 1

End If

IsCharCr = False

Case Else ' 其他

IsCharCr = False

Resultx = Resultx + 1

End Select

Next

' 返回

GetPoint = Result

End Function

' 函数: 从TextBox控件中获取坐标位置(对GetPoint函数的封装)

' 参数: Control TextBox类型控件

Private Function GetPointByTextBox(Control As TextBox) As Point

GetPointByTextBox = GetPoint(ControlText, ControlSelStart)

End Function

' 测试代码

Private Sub Command1_Click()

Dim pt As Point

Text1SelStart = 7

pt = GetPointByTextBox(Text1)

Call MsgBox("行:" & pty & ", 列:" & ptx)

Call Text1SetFocus

End Sub

通过WindowsAPI函数可以获取光标所在处的窗口的句柄。在Windows *** 作系统中，可以使用API函数“HWNDWindowFromPoint(POINTPoint)”获取当前虚拟光标的位置，返回值是一个BOOL类型，表示函数执行是否成功。如果函数执行成功，就可以获取到虚拟光标的位置，可以通过该位置来获取句柄。

A_Cursor：当前显示的鼠标光标类型 其值为下列单词的其中一个: AppStarting, Arrow, Cross, Help, IBeam, Icon, No, Size, SizeAll, SizeNESW, SizeNS, SizeNWSE, SizeWE, UpArrow, Wait, Unknown 与 size 指针类型一起的首字母表示方向, 例如 NESW = NorthEast+SouthWest 手型指针 (点击和抓取) 属于 Unknown 类别

A_Cursor是一个内置变量，不知道大家的理解能力，我看了帮助文档中的解释，我是没有太理解，这些光标类型具体指的是什么类型呢？

下面我详细研究了一下，分享给大家！这篇文章在 智能热键 有同步，大家有什么问题到哪里反馈给我！

其实使用起来还是蛮简单的

MsgBox,% A_Cursor

内置变量只允许取值，不允许赋值，如果想要赋值，需要调用系统函数LoadCursor实现！具体的这里就不详细介绍了！有兴趣的可以自行搜索一下！

你用A程序输出信息到哪？一般都是textbox或者input中把，这两个控件都是可以通过代码来获取的，既可以实时监控改动，也可以按键实现获取。看你的想法是通过点击分类，那么可以直接写成按键onclick函数，其中是对你订单信息所在控件的text属性获取。

至于哪个库，这种基础函数如果是web那么就是js的事情，和python没什么关系

看到你问题中的光标，你这不是做项目只是学习吧，print打印出的实际上就是电脑系统的输出，print之后你再想去获取值是不可能的，你只有在print之前把数据加载到缓冲，或者print之前写入文件你之后才能获取。

定义如下JS函数，然后DIV触发onclick

事件就OK。

function

CopyUrl()

{

var

htm

=

documentgetElementById("yourdiv")innerHTML;

windowclipboardDatasetData('text',

htm);

}

yourdiv

就是你的div的ID

以上就是关于vb 光标所在位置全部的内容，包括:vb 光标所在位置、如何获取虚拟光标停留位置的句柄、【AHK1.1】A_Cursor获取鼠标光标类型判断当前状态，例如判断是否为输入状态等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！