| |
На сайте уже расположен один пример получения содержимого строки - с использованием API - Получение содержимого
n-ой строки в Multiline TextBox
Данила Беляев предлагает свой вариант - без использования API
Данный пример покажет содержимое строки, на которой установлен курсор.
Public Function GetLine(ByVal strString As String, ByVal lngPos As Long) As String
If InStr(1, strString, vbCrLf) Then
If lngPos < Len(Left(strString, InStr(1, strString, vbCrLf))) Then
GetLine = Left(strString, InStr(1, strString, vbCrLf))
Else
For lngPos = lngPos To 1 Step -1
If Mid(strString, lngPos, 2) = vbCrLf Then
If InStr(lngPos + 2, strString, vbCrLf) Then GetLine = Mid(strString, lngPos + 2,
InStr(lngPos + 2, strString, vbCrLf) - lngPos) Else GetLine = Mid(strString, lngPos + 2,
Len(strString) - lngPos)
Exit Function
End If
Next
End If
Else
GetLine = strString
End If
End Function
Private Sub Command1_Click()
MsgBox GetLine(Text1, Text1.SelStart)
End Sub
|
|