Option Explicit
来源:互联网 发布:php源码加密原理 编辑:程序博客网 时间:2024/05/19 22:46
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
- Option Explicit
- Option Explicit
- Option Explicit
- <% Option Explicit %>
- Option Explicit 的作用
- Option Explicit On 和Option Strict Off
- vbs中set Option Explicit
- Option Explicit语句的重要性
- VB-Option Explicit 、Private Sub
- VB总结之option explicit
- 在asp中Option Explicit 语句
- 从 Option Explicit 开始的零碎知识点
- asp中,option explicit的作用
- VB.NET中的Option Explicit和Option Strict
- INFO:Visual Basic .NET 中的 Option Explicit 和 Option Strict
- 从 Option Explicit 开始的零碎知识点(一)
- 从 Option Explicit 开始的零碎知识点(二)
- 从 Option Explicit 开始的零碎知识点(三)
- VB应用一
- UML核心技术学习(一)
- 注册DLL文件
- 北京信息工程学院网协第十届网络文化节开幕式时间变更通告
- UML核心技术学习(二)
- Option Explicit
- UML核心技术学习(三)
- 两个函数
- UML核心技术学习(四)
- 再谈MySQL升级出现乱码问题的解决
- VS2005调试问题解决方案集锦--引用
- 找的好辛苦
- UML核心技术学习(五)
- 10年的回归