Cara Membuat Scrollbar Horizontal Pada ListBox VB6

Berikut ini adalah cara membuat scrollbar horizontal pada listbox yang datanya melebihi lebar dari listbox tersebut di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 ListBox.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.
3. Jika Declare Function berikut ingin ditempatkan dalam suatu Module tersendiri, hapus kata "Private" sebelum "Declare Function..."

          Private Declare Function SendMessageByNum Lib "user32" Alias _
          "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _
          wParam As Long, ByVal lParam As Long) As Long
          Const LB_SETHORIZONTALEXTENT = &H194

          Private Sub Form_Load()
          Static x As Long
          'Lebar string akan menjadi lebar dari horizontal scroll bar tsb
          'Tambahkan suatu string yang panjangnya melebihi lebar dari scroll bar ybt.
            List1.List(0) = "Selamat datang di Situs Masino Sinaga. Semoga Sukses Menyertai Anda Sekalian!"
            If x < TextWidth(List1.List(0) & " ") Then

               x = TextWidth(List1.List(0) & " ")
               If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX
                  SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0
               End If

          End Sub

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