Показать содержимое строки, на которой установлен курсор
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
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Показать содержимое строки, на которой установлен курсор", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!