- <span style="font-size:18px;"> 在机房收费系统中,很多窗体都用到了mshflexgrid 控件,而且还有部分的用到了mshflexgrid 选中某行信</span>
- <span style="font-size:18px;"></span>
- <span style="font-size:18px;">息</span><span style="font-size:18px;">并改变颜色,在这里我介绍两种我知道的方法:</span>
方法一:
用代码使其选中某行信息并改变其颜色,这个方法唯一不足的就是只能选中一行的信息,如果想要选中多行就不行了.
代码如下:
- <span style="font-size:18px;"></span>
- <span style="font-size:18px;">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
- </span>
结果如下:
方法二:
使用mshflexgrid 的属性来选中某行的信息并使其颜色发生改变,这个方法比较简单,而且能够进行多行选中!
结果如下:
单行选中:
- <span style="font-size:18px;"></span>
多行选中:
第二种方法我认为是比较好的,简单而且能够多行选择.如果你有更好的方法,我们一起交流!
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。