≡ Menu

Cara Ngewarnain FlexGrid

Disini gw post gimana seh cara ngewarnain suatu flexgrid pada baris-baris tertente yang kepengen dikasih warna
Pertama dibikin dulu sebuah modul yang bakalan ngedefinisiin baris mana yang akan di warnain (mau merah…mau biru…mau kuning…tersedah dahh)

=> Deklarasi

dim J as Integer

dim i as Integer

Public Sub MSFlexGridColors(ColorGrid As MSFlexGrid)

For J = 0 To ColorGrid.Cols – 1

For i = 1 To ColorGrid.Rows – 1
‘If i / 2 <> Int(i / 2) Then
If MSFlexGrid1.TextMatrix(i, 3) = “6” Then
ColorGrid.Col = J
ColorGrid.Row = i
ColorGrid.CellBackColor = &H80FFFF
End If
Next i
Next J
End Sub

Setelah modulnya di bikin, baru dilakuin pemanggilan terhadap modul ntu, pemanggilan ini bisa di tempatin dimana aje, tapi enaknya seh setelah loading data ke flexgrid, baru masukin dah kode ini :

MSFlexGridColors Me.MSFlexGrid1

{ 0 comments… add one }

Leave a Comment