2011年计算机等级考试二级VB辅导实例编程(9)

　　如何实现在TextBox中如何得知Caret所在位置

　　在form中放一个textBox两个label

　　Const EM_GETSEL = &HB0

　　Const EM_LINEFROMCHAR = &HC9

　　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

　　Public Sub GetCaretPos(ByVal hwnd5 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

　　i = SendMessage(hwnd5, EM_GETSEL, wParam, lParam)

　　j = i / 2 ^ 16 ’取得目前Caret所在前面有多少个byte

　　LineNo = SendMessage(hwnd5, EM_LINEFROMCHAR, j, 0) ’取得前面有多少行

　　LineNo = LineNo + 1

　　k = SendMessage(hwnd5, EM_LINEINDEX, -1, 0)

　　’取得目前caret所在行前面有多少个byte

　　ColNo = j - k + 1

　　End Sub

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等级考试二级VB辅导实例编程汇总