常见改变MSHFEXGRID的颜色的方法.doc

如何将选中的MSHFlexGrid一行高亮显示 高亮显示要设置颜色 Private???Sub???hflexgrid_EnterCell()?????单击某一单元时，改变该行颜色?????Dim???i_Col???As???Integer?????Dim???c_col???As???Integer?????c_col???=???Hflexgrid.col?????If???c_col??????0???Then???????????For???i_Col???=???0???To???Hflexgrid.Cols???-???1???????????????????Hflexgrid.col???=???i_Col???????????????????Hflexgrid.CellBackColor???=???HFFFFC0???????????Next???i_Col???????????Hflexgrid.col???=???c_col?????End???If?End???Sub?Private???Sub???hflexgrid_LeaveCell()?????当某一行失去焦点时，恢复该行颜色?????Dim???i_Col???As???Integer?????Dim???c_col???As???Integer?????c_col???=???Hflexgrid.col?????For???i_Col???=???0???To???Hflexgrid.Cols???-???1?????????????Hflexgrid.col???=???i_Col?????????????Hflexgrid.CellBackColor???=???vbWhite?????Next???i_Col?????Hflexgrid.col???=???c_col?End???Sub mshflexgrid怎么改变某一行的背景色和字体颜色？ Private Sub setColor(msfg As MSFlexGrid, row As Long, color As Long, bkcolor As Long) For i = 1 To msfg.Cols - 1 msfg.row = row msfg.Col = i msfg.CellForeColor = color 前景色 msfg.CellBackColor = bkcolor 背景色 Next End Sub Private Sub Command1_Click() setColor MSFlexGrid1, 3, HFFFF, H8000000D End Sub Private Sub Form_Load() MSFlexGrid1.Rows = 5 MSFlexGrid1.Cols = 5 For i = 1 To 4 For j = 1 To 4 MSFlexGrid1.TextMatrix(i, j) = j Next Next End Sub 让MSHFlexGrid只能被选中一行的另一方法 1、放置一个?HSB1?(HScrollBar)?,MSHFlexGrid1(MSHFlexGrid)?2、如下代码:?---------------------------------------------------------?Private?Sub?Form_Load()?牋牋If燤SHFlexGrid1.Cols爐hen?牋牋牋牋HSB1.Min=1?牋牋牋牋HSB1.Max=MSHFlexGrid1.Cols?牋牋End營f?End燬ub? Next End Sub k---------------------------------------------------------?Private燬ub燞SB1燺Change()?牋牋If燤SHFlexGrid1.Cols爐hen?牋牋牋牋MSHFlexGrid1.Row?燞SB1?value?牋牋牋牋MSHFlexGrid1.ColSel?燤SHFlexGrid1.Cols???牋牋End營f?End燬ub?---------------------------------------------------------?Private燬ub燤SHFlexGrid1_Click()?牋牋營f燤SHFlexGrid1.Cols爐hen?牋牋牋牋牋燞SB1?value?燤SHFlexGrid