Pa ako nemaš drugih formatiranja u flex gridu, najjednostavniji način je da pre boldovanja pročistiš ceo grid, dakle ovako
Code:
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
Dim lRow as Long
lRow = MSFlexGrid1.Row
MSFlexGrid1.Row = 1
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = False
MSFlexGrid1.Row = lRow
MSFlexGrid1.RowSel = lRow
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.FillStyle = flexFillSingle
End Sub
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti