18 Январь 2009

Как посчитать количество строк в текстовом поле?

TextBox |  Таги: , ,

Как посчитать количество строк в текстовом поле?

'Свойство TextBox Multiline установите в True
Option Explicit
Dim str As String

Public Sub GetLine()
str = Text1.Text
Label1.Caption = "Число строк в текстовом поле: " & _
                    UBound(Split(str, vbCrLf)) + 1
End Sub

Private Sub Form_Load()
GetLine
End Sub

Private Sub Text1_Change()
GetLine
End Sub

Запись опубликована on 18.01.2009 at 9:00 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.