Lompat ke konten Lompat ke sidebar Lompat ke footer

Cara membuat AutoResize Header ListView VB6

Berikut ini adalah cara membuat header listview menjadi autoresize (menyesuaikan dengan lebar item) di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 ListView, dan 1 Commandbutton.
2. ListView dapat diperoleh dari Add Components: pilih yang Microsoft Windows Common Controls 6.0 (SP6).
3. Set properti View milik ListView dengan "3 - lvwReport".
4. Copy-kan coding berikut ke editor Module dan Form yang bertalian.

         '--- Coding ini di Module Anda...

          Declare Function SendMessage Lib "user32.dll" _
            Alias "SendMessageA" (ByVal hWnd As Long, _
            ByVal Msg As Long, ByVal wParam As Long, _
            ByVal lParam As Long) As Long

          Public Const LVM_FIRST = &H1000
          Public Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30)
          Public Const LVSCW_AUTOSIZE = -1
          Public Const LVSCW_AUTOSIZE_USEHEADER = -2
          '--- Batas Coding di Module...

          'Coding ini di Form Anda...
          Private Sub Form_Load()
          'the code below add 3 headers to the ListView

            With ListView1
               .ColumnHeaders.Add , , "Header 1"
               .ColumnHeaders.Add , , "Header 2"
               .ColumnHeaders.Add , , "Header 3"

            End With
          End Sub
           
          Private Sub Command1_Click()
            Dim Column As Long

            Dim Counter As Long
            Counter = 0
            For Column = Counter To ListView1.ColumnHeaders.Count - 2
               SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, _

               Column, LVSCW_AUTOSIZE_USEHEADER
            Next
          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

Posting Komentar untuk "Cara membuat AutoResize Header ListView VB6"