Cara Menghitung Jumlah Baris Di Sebuah TextBox VB6

Berikut ini adalah cara menghitung jumlah baris (enter) yang ada di suatu TextBox ketika anda memasukkan data pada textbox dengan property MultiLine=True di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Module, 1 Form, 1 Label, dan 1 Textbox.
2. Set properti MultiLine pada textbox menjadi True.
3. Copy-kan coding berikut ke dalam Module dan Form yang bertalian

          '--- Coding ini di Module Anda...
          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

          Public Const EM_GETLINECOUNT = &HBA
          '--- Batas coding di Module...
          '--- Coding ini di Form Anda...

          Private Sub Text1_Change()
          Dim lineCount As Long
          On Local Error Resume Next
          lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
          Label1 = Format$(lineCount, "##,###")

          End Sub
          '--- Batas coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module