Mengenal MSHFlexGrid

anyak dari programmer Visual Basic lebih banyak menggunakan DataGrid untuk menampilkan data yang berjumlah lebih dari satu dalam bentuk List (bentuk baris dan kolom). Saat ini saya akan mencoba menampilkan data dalam bentuk list namun menggunakan MSGFlexGrid. Komponen ini mirip dengan StringGrid pada bahasa program Delphi.

Sebagai bahan belajar, kita akan membuat tampilan berikut ini dengan menggunakan MSHFlexGrid

GAMBAR 1

Siapkan satu project dengan satu form dan tambahkan MSHFlexGrid kedalamnya, setelah itu, kode-kode selanjutnya akan ditulis pada obyek Form, event Load:

GAMBAR 2

Seperti kita lihat pada gambar 1. MSHFlexGrid tersebut terdiri 3 kolom dan 4 baris. Kita mengkodekannya dengan cara:

MSHFlexGrid1.Cols = 3
MSHFlexGrid1.Rows = 4

Kode diatas akan membuat MSHFlexGrid menjadi:

GAMBAR 3

Sekarang kita akan mengatur lebar Fixed Column, dan Alignment. Seperti anda lihat, isi kolom ke tiga adalah rata kanan sedangkan yang lainnya rata kiri. Kode berikut meng-implementasikan aturan diatas:

MSHFlexGrid1.ColWidth(0) = 400
MSHFlexGrid1.ColWidth(1) = 1500
MSHFlexGrid1.ColWidth(2) = 2000
MSHFlexGrid1.ColAlignment(1) = flexAlignLeftCenter
MSHFlexGrid1.ColAlignment(2) = flexAlignRightCenter

Beri judul pada grid dengan:

MSHFlexGrid1.TextMatrix(0, 0) = "No"
MSHFlexGrid1.TextMatrix(0, 1) = "Nama"
MSHFlexGrid1.TextMatrix(0, 2) = "Hutang"

GAMBAR 4

Seperti kita lihat pada gambar 1, judul grid yang terdiri dari: No, Nama, dan Hutang terletak di tengah-tengah cell. Sementara background dari FixedColumn berwarna biru dan font berwarna putih. Kode berikut ini akan menggubah grid seperti yang baru saja dijelaskan.

Pada saat mengubah warna baik background dan font, serta alignmen, kita harus membawa pointer pada cell tersebut terlebih dahulu. Sebagai contoh, jika kita ingin mengubah warna font (foreground), background cell serta Alignment pada FixedColumn di kolom 0, maka kita mengetikkan kode:

'Bawa pointer ke kolom 0, baris 0

MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 0

Kode selengkapnya untuk mengubah ke tiga FixedColumn adalah sebagai berikut:

MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 0
MSHFlexGrid1.CellBackColor = vbBlue
MSHFlexGrid1.CellForeColor = vbWhite
MSHFlexGrid1.CellFontBold = True
MSHFlexGrid1.CellAlignment = flexAlignCenterCenter

MSHFlexGrid1.Col = 1
MSHFlexGrid1.Row = 0
MSHFlexGrid1.CellBackColor = vbBlue
MSHFlexGrid1.CellForeColor = vbWhite
MSHFlexGrid1.CellFontBold = True
MSHFlexGrid1.CellAlignment = flexAlignCenterCenter

MSHFlexGrid1.Col = 2
MSHFlexGrid1.Row = 0
MSHFlexGrid1.CellBackColor = vbBlue
MSHFlexGrid1.CellForeColor = vbWhite
MSHFlexGrid1.CellFontBold = True
MSHFlexGrid1.CellAlignment = flexAlignCenterCenter

Saat ini, tampilan grid akan berubah menjadi:

GAMBAR 5

 

Untuk mengisi data nama serta format pada baris 1 sampai 3 adalah sebagai berikut:

MSHFlexGrid1.TextMatrix(1, 0) = "1"
MSHFlexGrid1.TextMatrix(1, 1) = "Sylvester Stallone"
MSHFlexGrid1.TextMatrix(1, 2) = "150000"
MSHFlexGrid1.TextMatrix(1, 2) = Format(MSHFlexGrid1.TextMatrix(1, 2), "#,###.0")

MSHFlexGrid1.TextMatrix(2, 0) = "2"
MSHFlexGrid1.TextMatrix(2, 1) = "Lady Gaga"
MSHFlexGrid1.TextMatrix(2, 2) = "375000"
MSHFlexGrid1.TextMatrix(2, 2) = Format(MSHFlexGrid1.TextMatrix(2, 2), "#,###.0")

MSHFlexGrid1.TextMatrix(3, 0) = "3"
MSHFlexGrid1.TextMatrix(3, 1) = "Mat Solar"
MSHFlexGrid1.TextMatrix(3, 2) = "125700"
MSHFlexGrid1.TextMatrix(3, 2) = Format(MSHFlexGrid1.TextMatrix(3, 2), "#,###.0")

Mengenal MSHFlexGrid 2014-07-02T19:15:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer