Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> Text Box  
     
  Получение содержимого целой строки в элементе TextBox  
  На сайте уже расположен один пример получения содержимого строки - с использованием 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
 
     
  VBNet online (всего: 51216)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам