mshflexgrid 选中某行并改变颜色

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

结果如下:

单行选中:

多行选中:

 

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

 

这篇关于mshflexgrid 选中某行并改变颜色的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---