17 Январь 2009

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

TextBox |  Таги: , ,

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

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

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

Public Sub GetLine()
Label1 = "Число строк в текстовом поле: " & _
    SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0)
End Sub

Private Sub Form_Load()
GetLine
End Sub

Private Sub Text1_Change()
GetLine
End Sub

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



У нас один комментарий на запись “Как посчитать количество строк в текстовом поле?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 14.08.2010, Mediaman said:

    Эм… А Если так?

    ‘Свойство TextBox Multiline установите в True

    Public Sub Text1_Change()
    Msgbox ASSA
    End Sub

    Public Sub Form1_Load()
    Msgbox ASSA
    End Sub

    Public Function ASSA() As long
    Dim A() As String
    A = Split(Text1.Text, VbCrLf)
    ASSA = UBound(a)
    End Function

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

Я не робот.