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?的属性来选中某行的信息并使其颜色发生改变,这个方法比较简单,而且能够进行多行选中!

结果如下:

单行选中:

多行选中:

?

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