Стандартными средствами:
| Код |
Sub GoToLine(TheBox As TextBox, LineNum As Long)
EachLine = Split(TheBox.Text, vbCrLf)
For i = 0 To (LineNum - 2)
Sum = Sum + Len(EachLine(i))
Next
TheBox.SelStart = Sum + 2 * i
TheBox.SelLength = Len(EachLine(i))
End Sub
|
С использованием API:
| Код |
Declare Function SendMessageA Lib "user32" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const EM_LINESCROLL = &HB6
Private Sub GotoLine(TextBoxhWnd, LineNum)
SendMessageA TextBoxhWnd, EM_LINESCROLL, 0, LineNum - 1
End Sub
|
|