Home > Article, VB > Auto Fill and AutoSize MSFlexGrid Visual Basic 6

Auto Fill and AutoSize MSFlexGrid Visual Basic 6


MSFlexgridPernah menggunakan salah satu Componen pada Visual Basic yang bernama MSFlexgrid? Componen yang satu ini memiliki fungsi yang sama dengan Componen listview maupun datagrid, berguna untuk menampilkan daftar dari isi tabel dalam database. Kali ini ingin berbagi cara mengisi MSFLexgrid dengan lebih mudah dan efisien serta membuat secara otomatis autosize coloum pada MSFlexgrid tersebut.

Untuk code yang saya buat adalah dengan menggunakan Sub dan Function. Mungkin nantinya bisa di modifikasi sendiri agar lebih mudah.

CODE AUTO FILL MSFlexgrid

Public Sub ShowData(progres As ProgressBar, flexGrid As MSFlexGrid, rec As Recordset)
On Error Resume Next
progres.Visible = True
flexGrid.Cols = rec.Fields.Count
flexGrid.Rows = rec.RecordCount + 1

no = 1

flexGrid.Row = 0
flexGrid.Col = 0

‘Mengisi Judul
For i = 0 To rec.Fields.Count – 1
flexGrid.Col = i
flexGrid.Text = rec.Fields(i).Name
Next

‘Mengisi Record
While Not rec.EOF

For i = 0 To rec.Fields.Count – 1
flexGrid.TextMatrix(no, i) = IIf(IsNull(rec(i)), “”, rec(i))
Next

progres.Value = no

no = no + 1
DoEvents
rec.MoveNext
Wend
progres.Visible = False

End Sub

CODE AUTOSIZE MSFlexgrid

Function AutoSizeCol(Nmgrd As MSFlexGrid, frm As Form)

For col_num = 0 To Nmgrd.Cols – 1
max_width = 0
For row_num = 0 To Nmgrd.Rows – 1
If max_width < frm.TextWidth(Nmgrd.TextMatrix(row_num, col_num)) Then
max_width = frm.TextWidth(Nmgrd.TextMatrix(row_num, col_num))
End If
Next row_num

Nmgrd.ColWidth(col_num) = max_width + 500
Next col_num

End Function

Nah, di atas adalah codenya, untuk koneksinya anda bebas menggunakan apasaja tinggal di sesuaikan. Agar lebih jelas, saya sertakan file bersama source code nya. Koneksi yang saya gunakan adalah ADODB dengan menggunakan Ms.ACCESS sebagai databasenya.

Somoga Bermanfaat

DOWNLOAD DISINI

Categories: Article, VB Tags: , ,
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: