急求:VB 记事本中显示行列
来源:百度知道 编辑:UC知道 时间:2024/05/13 00:30:29
richtextbox控件有没有可以获得当前行和列的属性或是方法?
我如果想在状态栏显示行列的信息怎么办?
VB 6.0 获取 richtextbox当前行和列
Private Const EM_GETSEL = &HB0
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub GetCaretPos(ByVal TextHwnd As Long, LineNo As Long, ColNo As Long)
Dim i As Long
Dim j As Long
Dim k As Long
Dim lParam As Long
Dim wParam As Long
i = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)
j = i / 2 ^ 16
LineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, j, 0)
LineNo = LineNo + 1
k = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)
ColNo = j - k + 1
End Sub
Private Sub RichTextBox1_SelChange()
Dim LineNo As Long
Dim ColNo As Long
GetCaretPos RichTextBox1.hwnd, LineNo, ColNo
Label1.Ca