Mengubah Lebar Kolom Datagrid

Mengubah Lebar Kolom Datagrid

Module kali ini cara mengubah kolom Datagrid di Visual Basic 6.0 agar sesuai dengan lebar sebenarnya atau sesuai dengan muatan konten kolom.
Secara default, Datagrid akan menampilkan lebar kolom default dengan nilai: 1514.835. Lebar ini tidak mencukupi untuk ukuran Nama Lengkap yang biasanya, di indonesia, menggunakan 4 nama dalam 1 nama. Apalagi bila kolom alamat. Untuk itu kolom Datagrid ini mesti diubah dan diatur sesuai lebar dari konten kolom, atau setidak-tidaknya mencukupi sehingga tidak perlu user menggeser tab header kolom datagrid untuk melihat isinya.

Let's start! 💢💣💗
Pertama, Buatlah koneksi ke database terlebih dahulu. Untuk tutorial, lihat ConnectionString ,
misalnya:

Sub KONEKSI()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tuapekinah.mdb"
Adodc1.RecordSource = "data"
Set lblID.DataSource = Adodc1
With Adodc1.Recordset
    If .EOF Then Exit Sub
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Columns(0).Locked = True '**** kenapa harus di-locked? lihat disini> Datagrid Locked
    DataGrid1.Refresh
    Exit Sub
End With
End Sub

Kedua, Buatlah blok kode baru yang mengatur kolom datagrid1 tersebut, misalnya kita namakan dengan ATUR_KOLOM_DATAGRID, sehingga menjadi sbb:

Sub ATUR_KOLOM_DATAGRID()
KONEKSI '*** letakkan KONEKSI disini
DataGrid1.Columns(0).Width = 500 '*** dimulai dari NOLDataGrid1.Columns(1).Width = 2800
DataGrid1.Columns(2).Width = 6900
DataGrid1.Columns(3).Width = 1800
End Sub

Catatan:
Penting untuk diperhatikan bahwa, kolom Datagrid dimulai dari hitungan 0 (nol), jadi bukan satu.
Dalam contoh ini, penulis telah membuat sampel project untuk tujuan tutorial ini, dimana ada 3 kolom utama yaitu:

1. Nama_Lengkap
2. Alamat
3. Telp

Dari masing-masing kolom tersebut, lebarnya disesuaikan dengan keinginan masing-masing dan bereksperimen dengannya agar lebarnya benar2 cocok, seperti screenshot berikut ini:

Ketiga, Letakkan Judul Blok Kode ATUR_KOLOM_DATAGRID sesuai dengan keinginan anda, misalnya:

a) pada Form_Load
Contoh:

Private Sub Form_Load()
ATUR_KOLOM_DATAGRID
End Sub

b) pada CommandButton
Contoh:

Private Sub cmdTampilData_Click()
ATUR_KOLOM_DATAGRID
End Sub

Demikian tutorial dari penulis, dan dapatkan tutorial berikutnya tentang DataGrid1 agar dapat dijadikan sebagai presentasi data dengan fitur lebih keren. Semoga bermanfaat...