2011年計算機等級考試二級VB輔導(dǎo)實例編程(9)

　　如何實現(xiàn)在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考點及習(xí)題匯總

　　2011年計算機等級考試二級VB基礎(chǔ)教程匯總

　　2011計算機等級考試二級VB輔導(dǎo)實例編程匯總