1、如何将选中的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 Hf
2、lexgrid.Cols - 1 Hflexgrid.col = i_Col Hflexgrid.CellBackColor = &HFFFFC0 Next i_Col Hflexgrid.col = c_col End If End Sub Private Sub hflexgrid_LeaveCell() '当某一行
3、失去焦点时,恢复该行颜色 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
4、Next i_Col Hflexgrid.col = c_col End Submshflexgrid怎么改变某一行的背景色和字体颜色?PrivateSubsetColor(msfgAsMSFlexGrid,rowAsLong,colorAsLong,bkcolorAsLong)Fori=1Tomsfg.Cols-1msfg.row=rowmsfg.Col=imsfg.CellForeColor=color'前景色msfg.CellBackColor=bkcolor'背景色
6、SHFlexGrid1(MSHFlexGrid) 2、如下代码: '--------------------------------------------------------- Private Sub Form_Load() If MSHFlexGrid1.Cols then HSB1.Min=1 HSB1.Max=MSHFlexGrid1.Cols End If End Sub '-------------------------------
7、-------------------------- Private Sub HSB1 _Change() If MSHFlexGrid1.Cols then MSHFlexGrid1.Row = HSB1 .value MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1 End If End Sub '--------------------------------------------------------
8、- Private Sub MSHFlexGrid1_Click() If MSHFlexGrid1.Cols then HSB1 .value = MSHFlexGrid1.Row End If End Sub 怎么改变MSHFlexGrid某个单元格的颜色 Public Function FlexRedraw(F As MSHFlexGrid) As String With F .Redraw = Fals