mshflexgrid 选中某行并改变颜色

  在机房收费系统中,很多窗体都用到了mshflexgrid 控件,而且还有部分的用到了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 的属性来选中某行的信息并使其颜色发生改变,这个方法比较简单,而且能够进行多行选中!

结果如下:

单行选中:

多行选中:

 

第二种方法我认为是比较好的,简单而且能够多行选择.如果你有更好的方法,我们一起交流!