取得TextBox、RichTextBox光标所在的行和列(支持中文)
来源:互联网 发布:linux mint 和ubuntu 编辑:程序博客网 时间:2024/04/29 20:32
'************************************************************
'功能:取得TextBox、RichTextBox光标所在的行和列
'支持中文,一个汉字算一列
'有问题请给我写邮件
'作者:Matrix
'邮件:ASPBIT@163.COM
'2003-01-24修正了马虎的错误
'************************************************************
Option Explicit
Public Const WM_USER = &H400
Public Const EM_EXGETSEL = WM_USER + 52
Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_LINEINDEX = &HBB
Public Const EM_GETSEL = &HB0
Public Type CHARRANGE
cpMin As Long
cpMax As Long
End Type
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (pDst As Any, pSrc As Any, _
ByVal ByteLen As Long)
'取得光标所在的行和列
Public Function GetCurPos(ByRef TextControl As Control) As POINTAPI
Dim LineIndex As Long
Dim SelRange As CHARRANGE
Dim TempStr As String
Dim TempArray() As Byte
Dim CurRow As Long
Dim CurPos As POINTAPI
TempArray = StrConv(TextControl.Text, vbFromUnicode)
'取得当前被选中文本的位置 适用于 RichTextBox
'TextControl 用 EM_GETSEL 消息
Call SendMessage(TextControl.hWnd, EM_EXGETSEL, 0, SelRange)
'根据参数wParam指定的字符位置返回该字符所在的行号
CurRow = SendMessage(TextControl.hWnd, EM_LINEFROMCHAR, SelRange.cpMin, 0)
'取得指定行第一个字符的位置
LineIndex = SendMessage(TextControl.hWnd, EM_LINEINDEX, CurRow, 0)
If SelRange.cpMin = LineIndex Then
GetCurPos.x = 1
Else
TempStr = String(SelRange.cpMin - LineIndex, 13)
'复制当前行开始到选择文本开始的文本
CopyMemory ByVal StrPtr(TempStr), ByVal StrPtr(TempArray) + LineIndex, SelRange.cpMin - LineIndex
TempArray = TempStr
'删除无用的信息
ReDim Preserve TempArray(SelRange.cpMin - LineIndex - 1)
'转换为 Unicode
TempStr = StrConv(TempArray, vbUnicode)
GetCurPos.x = Len(TempStr) + 1
End If
GetCurPos.y = CurRow + 1
End Function
- 取得TextBox、RichTextBox光标所在的行和列(支持中文)修正
- 取得TextBox、RichTextBox光标所在的行和列(支持中文)
- 取得光标在多行textbox中的行和列
- C# 在textbox里获取光标所在的行和列
- 获取DataGrid中当前光标所在的行和列
- richtextbox和textbox的换行符
- C# RichTextBox 获取当前光标的行号列号
- C#语言编写的WinForm程序隐藏TextBox或RichTextBox的光标
- 如何得到 TextBox 或 richTextBox 的当前输入光标的屏幕坐标
- textbox和richtextbox换行问题
- 用VBA取得WORD当前光标所在位置的行号列号和页数
- 获得光标在多行textbox中的行与列的函数
- 源码:Richtextbox和Hyperlink的光标控制问题的解决。
- 获得光标在多行textbox中的行与列
- 如何取得Memo的行和列
- 在C#中取得TextBox多行文本的行、列位置与定位
- C#中取得TextBox多行文本的行、列位置与定位
- 取得TextBox某一行的字串
- JDBC+Hibernate将Blob数据写入Oracle
- 金额大写转换
- J2ME 2D小游戏入门之周边工具类
- 我的小木马---server端---第一次编译
- 在JBoss中配置多个数据库和数据源
- 取得TextBox、RichTextBox光标所在的行和列(支持中文)
- 认识JDBC 2.0中的高级数据类型
- 利用动态创建自动化接口实现VB的函数指针调用
- Eclipse开发J2ME程序之安装配置
- 公司软件部VB组代码撰写暂行约定
- J2ME编程之Nokia 7210配置篇
- 将RichTextBox设置为自动换行或非自动换行
- J2ME开发手机游戏:宝石方块
- Java嵌入式开发