Question

VB 如何获得光标在文本框中的行号和列号

Answer 1

从别处搜的，不知道对你有没有帮助
一个例子：一个textbox，两个label 代码如下：

Option Explicit
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 Form_Load()
Dim lineno As Long, colno As Long
Call getCaretPos(Text1.hwnd, lineno, colno)
Label1.Caption = lineno
Label2.Caption = colno
End Sub

Public Sub getCaretPos(ByVal texthwnd As Long, lineno As Long, colno As Long )
Dim i As Long, j As Long
Dim lparam As Long, wparam As Long
Dim k As Long
'向文本框传递EM_GETSEL消息以获取从起始位置到光标所在位置的字符数
i = SendMessage(texthwnd, EM_GETSEL, wparam, lparam)
j = i / 2 ^ 16
'向文本框传递EM_LINEFROMCHAR消息根据获得的字符数确定光标所在行数
lineno = SendMessage(texthwnd, EM_LINEFROMCHAR, j, 0)
lineno = lineno + 1
'向文本框传递EM_LINEINDEX消息以获取所在列数
k = SendMessage(texthwnd, EM_LINEINDEX, -1, 0)
colno = j - k + 1
End Sub

Private Sub Form_Resize()
Text1.Width = Me.ScaleWidth
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim lineno As Long, colno As Long
Call getCaretPos(Text1.hwnd, lineno, colno)
Label1.Caption = lineno
Label2.Caption = colno
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single , Y As Single)
Dim lineno As Long, colno As Long
Call getCaretPos(Text1.hwnd, lineno, colno)
Label1.Caption = lineno
Label2.Caption = colno
End Sub