[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Показать содержимое строки, на которой установлен курсор (Показать содержимое строки, на которой установлен курсор)
Показать содержимое строки, на которой установлен курсор
ilimДата: Среда, 09.11.2011, 22:34 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Показать содержимое строки, на которой установлен курсор (Показать содержимое строки, на которой установлен курсор)
Страница 1 из 11
Поиск: