Такой вапрос
Как определить кол-во строк в TextBox'эе ?
Кол-Во строк (TextBox)
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- [Серый]
- Начинающий
- Сообщения: 17
- Зарегистрирован: 14.12.2004 (Вт) 21:55
Кол-Во строк (TextBox)
[Серый] » 07.08.2005 (Вс) 17:46
Здрасти всем.
Такой вапрос
Как определить кол-во строк в TextBox'эе ?
Такой вапрос
Как определить кол-во строк в TextBox'эе ?
- SSecurity
- Служба безопасности
-
- Сообщения: 1283
- Зарегистрирован: 19.08.2003 (Вт) 1:11
- Откуда: Россия, Мурманск
SSecurity » 07.08.2005 (Вс) 18:07
Нууу .... Наверно тебе поможет..
- Код: Выделить всё
Dim Stroki() as String
Stroki = Split(vbCrLf & Text1.Text, vbCrLf)
Msgbox UBound(Stroki)
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)
Так задумано:)
- RayShade
- Scarmarked
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
RayShade » 07.08.2005 (Вс) 18:25
Нет. Медленно и требует много памяти для массива.
- Код: Выделить всё
numlines=(len(text1.text)-len(replace(text1.text,vbcrlf)))/2
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
Konst_One » 09.08.2005 (Вт) 13:48
Через API:
- Код: Выделить всё
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
Private Sub Command1_Click()
Dim LineCount
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
MsgBox LineCount
End Sub
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 124