Public 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 Const EM_GETSEL = &HB0
Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_LINEINDEX = &HBB<\/p>\n\n\n\n
Public Function GetTextBoxRowText(ByVal oTextBox As TextBox, ByVal iLine As Integer) As String ‘\u83b7\u53d6 TextBox \u67d0\u884c\u6587\u5b57
On Error Resume Next
Dim TempArray As Variant
TempArray = Split(oTextBox.Text, vbCrLf, -1, vbTextCompare)
GetTextBoxRowText = TempArray(iLine – 1)
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxRowCount(ByVal oTextBox As TextBox) As Integer ‘\u83b7\u53d6 TextBox \u6587\u5b57\u884c\u6570
On Error Resume Next
GetTextBoxRowCount = 0
Dim TempArray As Variant
TempArray = Split(oTextBox.Text, vbCrLf, -1, vbTextCompare)
GetTextBoxRowCount = UBound(TempArray) – LBound(TempArray) + 1
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxColumnCount(ByVal oTextBox As TextBox) As Integer ‘\u83b7\u53d6 TextBox \u6587\u5b57\u6700\u5927\u5217\u6570
On Error Resume Next
Dim I As Integer, J As Integer
GetTextBoxColumnCount = 0
Dim TempArray As Variant
TempArray = Split(oTextBox.Text, vbCrLf, -1, vbTextCompare)
For I = LBound(TempArray) To UBound(TempArray)
‘Debug.Print Len(TempArray(I)); I
If GetTextBoxColumnCount < Len(TempArray(I)) Then GetTextBoxColumnCount = Len(TempArray(I))
Next I
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxColumnCountAtRow(ByVal oTextBox As TextBox, ByVal iRow As Integer) As Integer ‘\u83b7\u53d6 TextBox \u67d0\u884c\u6587\u5b57\u6700\u5927\u5217\u6570
On Error Resume Next
Dim I As Integer, J As Integer
GetTextBoxColumnCountAtRow = 0
Dim TempArray As Variant
TempArray = Split(oTextBox.Text, vbCrLf, -1, vbTextCompare)
Dim iCount As Integer
For I = LBound(TempArray) To UBound(TempArray)
‘Debug.Print Len(TempArray(I)); I
iCount = iCount + 1
If iCount = iRow Then
GetTextBoxColumnCountAtRow = Len(TempArray(I))
Exit For
End If
Next I
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxCharCount(ByVal oTextBox As TextBox) As Long’\u83b7\u53d6 TextBox \u6587\u5b57\u6570
On Error Resume Next
GetTextBoxCharCount = 0
Dim lCount As Long, lRow As Long, lCol As Long
Dim lParam As Long, wParam As Long
‘\u9996\u5148\u5411\u6587\u672c\u6846\u4f20\u9012EM_GETSEL\u6d88\u606f\u4ee5\u83b7\u53d6\u4ece\u8d77\u59cb\u4f4d\u7f6e\u5230\u5149\u6807\u6240\u5728\u4f4d\u7f6e\u7684\u5b57\u7b26\u6570
lRet = SendMessage(oTextBox.hwnd, EM_GETSEL, wParam, lParam)
lCount = lRet \/ 2 ^ 16
‘\u518d\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEFROMCHAR\u6d88\u606f\u6839\u636e\u83b7\u5f97\u7684\u5b57\u7b26\u6570\u786e\u5b9a\u5149\u6807\u4ee5\u83b7\u53d6\u6240\u5728\u884c\u6570
lRow = SendMessage(oTextBox.hwnd, EM_LINEFROMCHAR, lCount, 0)
lRow = lRow + 1
‘\u6263\u9664 VbCrlf
GetTextBoxCharCount = lCount – (lRow – 1) * 2
‘\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEINDEX\u6d88\u606f\u4ee5\u83b7\u53d6\u6240\u5728\u5217\u6570
‘lRet = SendMessage(oTextBox.hWnd, EM_LINEINDEX, -1, 0)
‘lCol = lCount – lRet + 1
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxCursorRow(ByVal oTextBox As TextBox) As Long’\u83b7\u53d6 TextBox \u5149\u6807\u6240\u5728\u884c
On Error Resume Next
GetTextBoxCursorRow = 0
Dim lCount As Long, lRow As Long, lCol As Long
Dim lParam As Long, wParam As Long
‘\u9996\u5148\u5411\u6587\u672c\u6846\u4f20\u9012EM_GETSEL\u6d88\u606f\u4ee5\u83b7\u53d6\u4ece\u8d77\u59cb\u4f4d\u7f6e\u5230\u5149\u6807\u6240\u5728\u4f4d\u7f6e\u7684\u5b57\u7b26\u6570
lRet = SendMessage(oTextBox.hwnd, EM_GETSEL, wParam, lParam)
lCount = lRet \/ 2 ^ 16
‘\u518d\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEFROMCHAR\u6d88\u606f\u6839\u636e\u83b7\u5f97\u7684\u5b57\u7b26\u6570\u786e\u5b9a\u5149\u6807\u4ee5\u83b7\u53d6\u6240\u5728\u884c\u6570
lRow = SendMessage(oTextBox.hwnd, EM_LINEFROMCHAR, lCount, 0)
lRow = lRow + 1
GetTextBoxCursorRow = lRow
‘\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEINDEX\u6d88\u606f\u4ee5\u83b7\u53d6\u6240\u5728\u5217\u6570
‘lRet = SendMessage(oTextBox.hWnd, EM_LINEINDEX, -1, 0)
‘lCol = lCount – lRet + 1
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetTextBoxCursorColumn(ByVal oTextBox As TextBox) As Long’\u83b7\u53d6 TextBox \u5149\u6807\u6240\u5728\u5217
On Error Resume Next
GetTextBoxCursorColumn = 0
Dim lCount As Long, lRow As Long, lCol As Long
Dim lParam As Long, wParam As Long
‘\u9996\u5148\u5411\u6587\u672c\u6846\u4f20\u9012EM_GETSEL\u6d88\u606f\u4ee5\u83b7\u53d6\u4ece\u8d77\u59cb\u4f4d\u7f6e\u5230\u5149\u6807\u6240\u5728\u4f4d\u7f6e\u7684\u5b57\u7b26\u6570
lRet = SendMessage(oTextBox.hwnd, EM_GETSEL, wParam, lParam)
lCount = lRet \/ 2 ^ 16
‘\u518d\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEFROMCHAR\u6d88\u606f\u6839\u636e\u83b7\u5f97\u7684\u5b57\u7b26\u6570\u786e\u5b9a\u5149\u6807\u4ee5\u83b7\u53d6\u6240\u5728\u884c\u6570
lRow = SendMessage(oTextBox.hwnd, EM_LINEFROMCHAR, lCount, 0)
lRow = lRow + 1
‘\u5411\u6587\u672c\u6846\u4f20\u9012EM_LINEINDEX\u6d88\u606f\u4ee5\u83b7\u53d6\u6240\u5728\u5217\u6570
lRet = SendMessage(oTextBox.hwnd, EM_LINEINDEX, -1, 0)
lCol = lCount – lRet + 1
GetTextBoxCursorColumn = lCol
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Sub TurnTextBoxCursor(ByVal oTextBox As TextBox, ByVal iRow As Integer, Optional ByVal iColumn As Integer = 1) ‘\u628a\u6587\u672c\u6587\u4ef6\u5149\u6807\u79fb\u5230\u67d0\u884c\u67d0\u5217
On Error Resume Next
Dim I As Integer, J As Integer
Dim oShell As Object
Set oShell = CreateObject(“WScript.Shell”)
oTextBox.SetFocus
Dim iCurRow As Integer, iCurColumn As Integer
iCurRow = GetTextBoxCursorRow(oTextBox) ‘\u5f53\u524d\u884c
iCurColumn = GetTextBoxCursorColumn(oTextBox) ‘\u5f53\u524d\u5217
‘Debug.Print iCurRow; iCurColumn
If iCurRow < iRow Then
For I = iCurRow To iRow – 1
oShell.SendKeys “{DOWN}”
Next I
Else
For I = iRow To iCurRow – 1
oShell.SendKeys “{UP}”
Next I
End If
Wait 50<\/a>
iCurRow = GetTextBoxCursorRow(oTextBox) ‘\u5f53\u524d\u884c
iCurColumn = GetTextBoxCursorColumn(oTextBox) ‘\u76ee\u6807\u884c\u7684\u5f53\u524d\u5217
‘Debug.Print iCurRow; iCurColumn
If iCurColumn < iColumn Then
For J = iCurColumn To iColumn – 1
oShell.SendKeys “{RIGHT}”
Next J
Else
For J = iColumn To iCurColumn – 1
oShell.SendKeys “{LEFT}”
Next J
End If
Wait 50
iCurRow = GetTextBoxCursorRow(oTextBox) ‘\u5f53\u524d\u884c
iCurColumn = GetTextBoxCursorColumn(oTextBox) ‘\u76ee\u6807\u884c\u7684\u5f53\u524d\u5217
‘Debug.Print iCurRow; iCurColumn
ERR_NORUNNING:
On Error GoTo 0
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"