Pengertian dan Fungsi MSFlexGrid Pada Visual Basic 6.0

Grid adalah suatu control yang berbentuk tabel, memiliki kolom dan baris. Pada artikel ini akan digunakan control Microsoft Flex Grid Control.

MSFlexGrid Control

Sebelum dapat menggunakan control MSFlexGrid, maka harus ditambahkan component MSFlxGrd.ocx.
Beberapa method yang ada pada MSFlexGrid sebagai berikut :

• AddItem : digunakan untuk menambah sebaris data
• Clear : menghapus semua data pada MSFlexGrid
• RemoveItem : menghapus satu baris data

Property yang disediakan :

• Cols : Jumlah Kolom
• Rows : Jumlah Baris
• FixedCols : Jumlah Kolom yang tak dapat bergerak
• Fixed Rows : Jumlah Baris yang tak dapat bergerak
• Col : Posisi Kolom Aktif
• Row : Posisi Baris Aktif
• Text : Tulisan pada posisi kolom dan baris aktif
• TextArray : Tulisan pada index dari Sel
• TextMatrix : Tulisan pada kolom dan baris tertentu secara langsung

Menambah Component MSFlexGrid : Tekan Ctrl+T, pilih Microsoft FlexGrid Control 6.0, kemudian tekan Ok

Tempatkan dan atur Control pada Form.

Beri nama MsFlexGrid tersebut dengan grdData.
Menggunakan Cols, Rows, FixedCols, dan FixedRows untuk mengatur Grid. Tuliskan perintah pada event Form_Load , secara berurutan. Kode berikut akan membuat 1 baris tetap(FixedRows), 1 kolom tetap(FixedCols),1 baris(Rows) dan 4 kolom(Cols).

grdData.FixedRows = 1grdData.FixedCols = 1grdData.Rows = 1grdData.Cols = 4

Merubah cara selection menjadi memilih berdasarkan baris :

grdData.SelectionMode = flexSelectionByRow

Menggunakan porperti Col, Row, dan Text untuk menulis pada cell di Grid

grdData.Row = 0grdData.Col = 0grdData.Text = "No"grdData.Col = 1grdData.Text = "NIM"grdData.Col = 2grdData.Text = "Nama"grdData.Col = 3grdData.Text = "Tanggal Lahir"

Menambah baris menggunakan method AddItem

grdData.AddItem "1" + vbTab + "0123456" + vbTab + _"Sri Utami" + vbTab + "30/06/2012"

Menggunakan properti TextArray untuk menulis pada cell di Grid

grdData.Rows = grdData.Rows + 1baris = (grdData.Rows - 1) * 4grdData.TextArray(0 + baris) = "2"grdData.TextArray(1 + baris) = "0234567"grdData.TextArray(2 + baris) = "Titik Sumarni"grdData.TextArray(3 + baris) = "01/01/2012"

Menggunakan properti TextMatrix untuk menulis pada cell di Grid

grdData.Rows = grdData.Rows + 1baris = grdData.Rows - 1grdData.TextMatrix(baris, 0) = "3"grdData.TextMatrix(baris, 1) = "0345678"grdData.TextMatrix(baris, 2) = "Ricky"grdData.TextMatrix(baris, 3) = "21/09/2012"

Menghapus data menggunakan metode RemoveItem di grid, untuk menghapus data pada posisi baris aktif gunakan perintah berikut :

grdData.RemoveItem grdData.row

Keyword : MSFlexGrid di Visual Basic 6.0, cara menambahkan component MSFlexGrid di Visual Basic 6.0, cara menambahkan component MSFlexGrid di VB 6.0, Kegunaan MSFlexGrid, Kode MSFlexGrid pada VB6

Tweet