Cara Menghitung Jumlah Baris Dalam Textbox di VB6

Dalam artikel kali ini saya akan berabagi sebuah trik yaitu bagaimana cara mengitung baris yang ada dalam sebuah textbox dengan menggunakan kode VB6

Ketika Anda menginput sebuah teks kedalam textbox yang sangat panjang tentu secara otomatis akan membuat baris baru kebawahnya, ini disebabkan karena kita membuat textbox yang panjangnya terbatas.

Jumlah baris baru yang terbentuk di textbox kita bisa hitung menggunakan kode vb6.

Berikut adalah caranya :

1. Tempatkan 1 buah Textbox 
2. Set Textbox menjadi Multiline dan ScrollBars Vertical atur pada propertiesnya
3. Tambahkan 1 buah Commandbutton
4. Kemudian ketik kode dibawah ini :

Output

Option Explicit

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const EM_GETLINECOUNT = &HBA

Public Function GetLineCount(Txt As TextBox)

    Dim lngLineCount As Long

    On Error Resume Next

    lngLineCount = SendMessageLong(Txt.hwnd, EM_GETLINECOUNT, 0&, 0&)

    GetLineCount = Format$(lngLineCount, "##,###")

End Function

Private Sub Command1_Click()

MsgBox GetLineCount(Text1) & " baris", vbOKOnly, "Hitung Baris"

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Jalankan program Project Anda, lalu pada texbox yang kosong ketik sebanyak mungkin kata atau karakter hingga beberapa baris, kemudian tekan Hitung maka akan tempail pesan messagebox jumlah baris yang dihasilkan.

Demikian artikel singkat pada kali tentang ini Cara Menghitung Jumlah Baris Dalam Textbox di VB6, semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil

Related Post: Label/Text