Q :--如题

Re:

一个例子：一个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" (ByVa l 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

enjoy it!

--转自水木清华BBS