coba yang ini :
Private Sub setHeaderCol(ByVal flex As MSFlexGrid, ByVal warnaCellHeader As
Long, ByVal warnaFontHeader As Long)
Dim i As Byte
With flex
.Row = 0
For i = 0 To flex.Cols - 1
.Col = i
.CellBackColor = warnaCellHeader
.CellForeColor = warnaFontHeader
Next
End With
End Sub
Private Sub Command1_Click()
Call setHeaderCol(MSFlexGrid1, vbBlue, vbRed)
End Sub
Kadek Pong <[EMAIL PROTECTED]> wrote: Teman2
minta tolong
1. Bagaimana caranya mengisi warna pada cell di header, jika saya
menggunakan komponen MsFlexGrid.
2. Bagaimana caranya supaya Fontnya berwarna pada headernya ?
Terima kasih
---------------------------------
Moody friends. Drama queens. Your life? Nope! - their life, your story.
Play Sims Stories at Yahoo! Games.
[Non-text portions of this message have been removed]
---------------------------------
It's here! Your new message!
Get new email alerts with the free Yahoo! Toolbar.
[Non-text portions of this message have been removed]
