sebenarnya tinggal modifikasi fungsi setHeaderCol menjadi :
Private Sub setRowColorAfterUpdate(ByVal flex As MSFlexGrid, ByVal rowData As
Long, ByVal warnaFontHeader As Long)
Dim i As Byte
With flex
.Row = rowData
For i = 0 To flex.Cols - 1
.Col = i
.CellForeColor = warnaFontHeader
Next
End With
End Sub
Private Sub cmdUpdate_Click()
'proses update ....
'jika update sukses, ganti warna baris flexgrid
Call setRowColorAfterUpdate(MSFlexGrid1, MSFlexGrid1.Row, vbRed)
End Sub
Kadek Pong <[EMAIL PROTECTED]> wrote:
Pak Aries Thank alot atas bantuannya.
Pertanyaan saya lagi Teman2,
Bagaimana caranya supaya Data yang muncul di FlexGrid untuk data yang telah di
Update supaya warnanya merah(beda warna ) dari Data yang belum di Update (
suapay ada perbedaan warna antara yang belum Update dengan data yang telah
diUpdate )
Trims
aries <[EMAIL PROTECTED]> wrote:
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]
---------------------------------
Got a little couch potato?
Check out fun summer activities for kids.
[Non-text portions of this message have been removed]
---------------------------------
Building a website is a piece of cake.
Yahoo! Small Business gives you all the tools to get online.
[Non-text portions of this message have been removed]
