常见改变MSHFLEXGRID的颜色的方法VIP免费

如何将选中的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) ,MSHFlex Grid1(MSHFlex Grid) 2、如下代码: '--------------------------------------------------------- Priv ate Su b Form_Load() If MSHFlex Grid1.Cols then HSB1.Min=1 HSB1.Max =MSHFlex Grid1.Cols End If End Su b '--------------------------------------------------------- Private Sub HSB1 _Change() If MSHFlexGrid1.Cols then MSHFlexGrid1.Row = HSB1 .value MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1 End If End Sub '--------------------------------------------------------- Private Sub MSHFlexGrid1_Click() If MSHFlexGrid1.Cols then HSB1 .value = MSHFlexGrid1.Row End If End Sub 怎么改变MSHFlex...