Membuat Node Dan Subnote Pada TreeView

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 6.0 (Sp6)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	TreeView	1
3.	ImageList	1			Tambahkan 2 icon

Masih bingung masukkin icon ke ImageList bisa baca Disini

Gambar Membuat Node Dan Subnote Pada TreeView

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim pohon As Node 'Set Image TreeView1.ImageList = ImageList1 'Set Pohon Treeview Set pohon = TreeView1.Nodes.Add(, tvwChild, "trA", "Ortu A", 1) Set pohon = TreeView1.Nodes.Add(, tvwChild, "trB", "Ortu B", 2) Set pohon = TreeView1.Nodes.Add("trA", tvwChild, "trA1", "AnakA1", 1) Set pohon = TreeView1.Nodes.Add("trB", tvwChild, "trA2", "AnakB1", 1) Set pohon = TreeView1.Nodes.Add("trB", tvwChild, "tr21", "AnakB2", 2) pohon.EnsureVisible TreeView1.BorderStyle = ccFixedSingle End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox Node End Sub

Mengatur Alignment Caption CommandButton (Komplite)

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	9

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_TOPLEFT tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command1.Refresh End Sub Private Sub Command2_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_TOP tmpValue& = GetWindowLong&(Command2.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command2.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command2.Refresh End Sub Private Sub Command3_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_TOPRIGHT tmpValue& = GetWindowLong&(Command3.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command3.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command3.Refresh End Sub Private Sub Command4_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_LEFT tmpValue& = GetWindowLong&(Command4.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command4.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command4.Refresh End Sub Private Sub Command5_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_CENTER tmpValue& = GetWindowLong&(Command5.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command5.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command5.Refresh End Sub Private Sub Command6_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_RIGHT tmpValue& = GetWindowLong&(Command6.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command6.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command6.Refresh End Sub Private Sub Command7_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_BOTTOMLEFT tmpValue& = GetWindowLong&(Command7.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command7.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command7.Refresh End Sub Private Sub Command8_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_BOTTOM tmpValue& = GetWindowLong&(Command8.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command8.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command8.Refresh End Sub Private Sub Command9_Click() Dim tmpValue& Dim Align& Dim ret& fAlignment& = A_BOTTOMRIGHT tmpValue& = GetWindowLong&(Command9.hwnd, GWL_STYLE) And Not BS_RIGHT ret& = SetWindowLong&(Command9.hwnd, GWL_STYLE, tmpValue& Or fAlignment&) Command9.Refresh End Sub Private Sub Form_Load() Command1_Click Command2_Click Command3_Click Command4_Click Command5_Click Command6_Click Command7_Click Command8_Click Command9_Click End Sub

Masukkan souce ini ke dalam Module :'Konstanta untuk property Alignment Public Const A_CENTER = &H300& Public Const A_TOP = &H400& Public Const A_TOPLEFT = &H500& Public Const A_TOPRIGHT = &H600& Public Const A_BOTTOM = &H800& Public Const A_BOTTOMLEFT = &H900& Public Const A_BOTTOMRIGHT = &HA00& Public Const A_LEFT = &H100& Public Const A_RIGHT = &H200& Public Const GWL_STYLE& = (-16) Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

Tombol On/Off di CommandButton

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1

Masukkan souce ini ke dalam Form :Dim blnTekan As Boolean Private Sub Command1_Click() If blnTekan = False Then Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&) blnTekan = True Command1.Caption = "On" Exit Sub ElseIf blnTekan = True Then blnTekan = False Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&) Command1.Caption = "Off" End If End Sub

Masukkan souce ini ke dalam Module :Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _ Long, lParam As Any) As Long Public Const BM_SETSTATE = &HF3 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202

Menghapus Semua Text Pada Beberapa TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Hapus
2.	TextBox	3	Text	Text1	Text1.Text
				Text2	Text2.Text
				Text3	Text3.Text

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Dim Contrl As Control For Each Contrl In Form1.Controls If (TypeOf Contrl Is TextBox) Then Contrl.Text = "" Next Contrl End Sub

Menghindari Input Karakter Tertentu

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sTemplate As String 'Ganti "~!@#$%^&*()_+=" dengan karakter yang Anda inginkan untuk 'dihindari diinput pada Text1 sTemplate = "~!@#$%^&*()_+=" If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then Beep KeyAscii = 0 End If End Sub

Jumlah Perkata Dan Jumlah Perhuruf Pada TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True	Text1
2.	Frame	1	Caption	Info Jumlah :	Frame1
3.	Label	4	Caption	Jumlah Perkata  :	Label1
				Jumlah Perhuruf  :	Label2
			Name(Index)	INFo(0)	Label3
				INFo(1)	Label4

Gambar Jumlah Perkata Dan Jumlah Perhuruf Pada TextBox

Masukkan souce ini ke dalam Form :Public Function GetWordCount(ByVal Text As String) As Long 'Definisikan sebuah tanda hubung pada setiap akhir baris yang 'merupakan bagian dari seluruh kata, jadi kombinasikan bersama. Text = Trim(Replace(Text, "-" & vbNewLine, "")) 'Ganti baris baru dengan sebuah space tunggal Text = Trim(Replace(Text, vbNewLine, " ")) 'Ganti spasi yang lebih dari satu (jika ada) menjadi spasi tunggal Do While Text Like "* *" Text = Replace(Text, " ", " ") Loop 'Pisahkan string dan kembalikan kata yang dihitung GetWordCount = 1 + UBound(Split(Text, " ")) End Function Private Sub Text1_Change() 'Jumlah Perkata INFo(0) = GetWordCount(Text1.Text) 'Jumlah Perhuruf INFo(1) = Len(Text1.Text) End Sub

Memeriksa Karakter yang Diinput di TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True
2.	Frame	1	Caption	Informasi karakter:
3.	Label	8	Caption	Upper Case :	Label1.Capion
				Lower Case :	Label2.Caption
				Alpha :	Label3.Caption
				Alpha / Numeric :	Label4.Caption
			Name(Index)	INFo(0)	Label5.Caption
				INFo(1)	Label6.Caption
				INFo(2)	Label7.Caption
				INFo(3)	Label8.Caption

Gambar Memeriksa Karakter yang Diinput di TextBox

Masukkan souce ini ke dalam Form :Private Sub Text1_KeyPress(KeyAscii As Integer) INFo(0).Caption = IsCharUpper(KeyAscii) INFo(1).Caption = IsCharLower(KeyAscii) INFo(2).Caption = IsCharAlpha(KeyAscii) INFo(3).Caption = IsCharAlphaNumeric(KeyAscii) End Sub

Masukkan souce ini ke dalam Module :Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal cChar As Byte) As Long Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

Sorot Semua Karakter TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub

Multi Line TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True
2.	CommandButton	1	Caption	Add

Masukkan souce ini ke dalam Form :Private Sub Command1_Click() Dim NewText As String With Text1 'Ganti teks 'ARBI Blog's' dengan teks yang Anda inginkan ditambah NewText = "ARBI Blog's" .SelStart = Len(.Text) .SelText = vbNewLine & NewText End With End Sub Private Sub Form_Load() Text1.Text = "ARBI Blog's" End Sub

Validasi Data di TextBox

DESKRIPSI
Disini saya akan menjelaskan bagaimana cara penggunaan validasi. validasi maksudnya mengesahkan atau mengumumkan. jadi jika textbox tidak berisi "abc" maka tombol (command1) dapat diklik atau berpindah fokus.
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan
2.	CommandButton	1	Caption	Validate

Masukkan souce ini ke dalam Form :Private Sub Text1_Validate(Cancel As Boolean) Cancel = Text1.Text <> "abc" End Sub

Mengedit Data di ListBox

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Hapus
2.	ListBox	1
3.	Textbox	1

Masukkan souce ini ke dalam Form :Option Explicit DefLng A-Z Private m_bEditing As Boolean Private m_lngCurrIndex As Long Private Sub Command1_Click() If Not m_bEditing Then Editing = True End Sub Private Sub Form_Load() Me.ScaleMode = 3 Text1.Visible = False Text1.Appearance = 0 Command1.Caption = "Tekan F2 utk mengedit" Dim a% For a% = 1 To 10 List1.AddItem "Item yang ke-" & a% Next a% Set Text1.Font = List1.Font End Sub Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode = vbKeyF2) And (Shift = 0)) Then If (Not m_bEditing) Then Editing = True End If End Sub Private Sub Text1_LostFocus() 'Jika textbox kehilangan fokus ketika kita mengedit data, kembalikan 'data/teks semula dan batalkan proses pengeditan yg telah berlangsung. If m_bEditing = True Then List1.List(m_lngCurrIndex) = Text1.Tag Editing = False End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strText As String If KeyAscii = 10 Or KeyAscii = 13 Then If Len(Trim$(Text1.Text)) = 0 Then List1.List(m_lngCurrIndex) = Text1.Tag Else strText = Text1.Text 'Assginment-kan teks baru ke item data di Listbox ybt List1.List(m_lngCurrIndex) = strText End If Editing = False 'Kembalikan ke posisi semula KeyAscii = 0 'Menghindari bunyi beep ElseIf KeyAscii = 27 Then 'Jika ditekan Esc untuk membatalkan pengeditan List1.List(m_lngCurrIndex) = Text1.Tag 'Kembalikan data semula Editing = False KeyAscii = 0 'Menghindari bunyi beep End If End Sub Private Sub Text1_GotFocus() 'Jika Text1 mendapat fokus, sorot semua isinya. Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_Change() Dim lpSize As SIZE Dim phDC As Long 'Atur ukuran textbox tergantung dari hasil perhitungan 'ukuran dari textbox dalam pixels 'Catatan bahwa tingkat perhitungan gagal (untuk beberapa alasan) ketika 'huruf melebihi dari 14 points, tapi jika Anda mempunyai sebuah listbox 'dengan huruf 14 point, Anda harus men-design-nya dari sana. phDC = GetDC(Text1.hwnd) If GetTextExtentPoint32(phDC, Text1.Text, Len(Text1.Text), lpSize) = 1 Then Text1.Width = Max(50, lpSize.cx) End If Call ReleaseDC(Text1.hwnd, phDC) End Sub Private Property Let Editing(vData As Boolean) Dim rcItem As RECT 'RECT of the item being edited Dim strText As String 'text of the item beign edited Dim lpSize As SIZE 'uset to calculate the size of the textbox Dim phDC As Long 'hDC of the listbox On Error Resume Next 'Ambil index dari item data m_lngCurrIndex = List1.ListIndex '... perlakuan khusus jika tidak ada index If m_lngCurrIndex = -1 Then Beep: Exit Property 'Mulai mengedit data... If vData = True Then strText = List1.List(m_lngCurrIndex) If Len(strText) = 0 Then Beep: Exit Property 'Coba mengambil type RECT dari item dalam list If SendMessage(List1.hwnd, LB_GETITEMRECT, ByVal m_lngCurrIndex, rcItem) _ <> LB_ERR Then 'Atur RECT. Catatan bahwa ini adalah koordinat di layar 'Itulah mengapa RECT berhubungan dengan luas dari jendela Listbox 'Kita juga mempertimbangkan dengan batas 3-D listbox, jadi jangan memanggil 'fungsi GetSystemMetrics() jika property Appearence listbox = "Flat" With rcItem .Left = .Left + List1.Left + GetSystemMetrics(SM_CXEDGE) .Top = List1.Top + .Top 'Mengapa tidak memanggil fungsi GetSysMetrics dan SM_CYEDGE? '...karena kita ingin data berada di tengah textbox 'Ambil DC dari listbox lalu hitung tinggi dan lebarnya 'Catatan bahwa hasil perhitungan gagal (untuk beberapa alasan) ketika 'ukuran huruf melebihi dari 14 points. phDC = GetDC(Text1.hwnd) Call GetTextExtentPoint32(phDC, strText, Len(strText), lpSize) Call ReleaseDC(Text1.hwnd, phDC) 'Posisikan dan tampilkan textbox, bawa ke tampilan/urutan teratas. Call SetWindowPos(Text1.hwnd, HWND_TOP, .Left, .Top, Max(50, lpSize.cx), _ lpSize.cy + 2, SWP_SHOWWINDOW Or SWP_NOREDRAW) End With 'Setting property Listbox menyebabkan banyak efek pemunculan, jadi 'matikan property "redrawing" Call SendMessage(List1.hwnd, WM_SETREDRAW, 0, ByVal 0&) List1.List(m_lngCurrIndex) = "" 'Simpan item data dan set fokus ke textbox With Text1 .Enabled = True .Tag = strText .Text = strText .SetFocus End With End If Else 'Set tanda redraw sehingga listbox menyesuaikan sendiri Call SendMessage(List1.hwnd, WM_SETREDRAW, 1, ByVal 0&) 'Bersihkan isi textbox With Text1 .Enabled = False .Visible = False .Move 800, 800 .Text = "" .Tag = "" End With m_lngCurrIndex = -1 'invalidate this for next time End If 'Simpan posisi terbaru.......... m_bEditing = vData End Property

Masukkan souce ini ke dalam Module :Option Explicit DefLng A-Z Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Type SIZE cx As Long cy As Long End Type Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Declare Function GetTextExtentPoint32 Lib "gdi32" Alias _ "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal _ cbString As Long, lpSize As SIZE) As Long Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal _ hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As _ Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _ ByVal hdc As Long) As Long Public Const WM_SETREDRAW = &HB& Public Const WM_SETFONT = &H30 Public Const WM_GETFONT = &H31 Public Const LB_GETITEMRECT = &H198 Public Const LB_ERR = (-1) Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOREDRAW = &H8 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_SHOWWINDOW = &H40 Public Const SWP_HIDEWINDOW = &H80 Public Const SWP_NOCOPYBITS = &H100 Public Const SWP_NOOWNERZORDER = &H200 Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER Public Const HWND_TOP = 0 Public Const HWND_BOTTOM = 1 Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SM_CXEDGE = 45 Public Const SM_CYEDGE = 46 Public Function Max(ByVal param1 As Long, ByVal param2 As Long) As Long If param1 > param2 Then Max = param1 Else Max = param2 End Function

Menampilkan Data Dan Menyortir Data

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 6.0 (Sp2)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	ListView	1	View	3-lvwReport

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim i As Integer x = 0 With ListView1 .View = lvwReport 'Buat tampilan report... 'Tambahkan 3 kolom... .ColumnHeaders.Add , , "Kolom ke-1" .ColumnHeaders.Add , , "Kolom ke-2" .ColumnHeaders.Add , , "Kolom ke-3" 'Tambahkan data sebanyak 20... For i = 1 To 20 .ListItems.Add 1, Key:="", Text:="Data 1 ke-" & i '21 - i .ListItems(1).ListSubItems.Add , , "Data 2 ke-" & i '21 - i .ListItems(1).ListSubItems.Add , , "Data 3 ke-" & i '21 - i Next i End With End Sub Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'Jika header kolom diklik, data akan disortir 'secara Ascending atau Descending Select Case ColumnHeader Case "Kolom ke-1" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True Case "Kolom ke-2" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True Case "Kolom ke-3" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True End Select End Sub

Mengubah Warna Background ListView

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 5.0 (Sp2)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	ListView	1	View	3-lvwReport

Masukkan souce ini ke dalam Form :Private Sub Form_Load() ListView1.ListItems.Add , , "ARBI Blog's" 'vbGreen dapaet anda ganti sesuai warna yg anda inginkan Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbGreen) End Sub

Masukkan souce ini ke dalam Module :Public Const LVM_FIRST As Long = &H1000 Public Const LVM_SETTEXTBKCOLOR As Long = (LVM_FIRST + 38) Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Mengubah Lebar Header ListView Pada Saat RUNTIME

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 5.0 (Sp2)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	ListView	1	View	3-lvwReport
3.	CommandButton	1	Caption	Tes

Masukkan souce ini ke dalam Form :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" .ColumnHeaders.Add , , "Header 4" 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 - 1 SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, Column, LVSCW_AUTOSIZE_USEHEADER Next End Sub

Masukkan souce ini ke dalam Form :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