mshflexgrid 选中某行并改变颜色

[html] view plaincopyprint?

1. <span style="font-size:18px;">  在机房收费系统中,很多窗体都用到了mshflexgrid 控件,而且还有部分的用到了mshflexgrid  选中某行信</span>  

[html] view plaincopyprint?

1. <span style="font-size:18px;"></span>   

[html] view plaincopyprint?

1. <span style="font-size:18px;">息</span><span style="font-size:18px;">并改变颜色,在这里我介绍两种我知道的方法:</span>  

方法一:

用代码使其选中某行信息并改变其颜色,这个方法唯一不足的就是只能选中一行的信息,如果想要选中多行就不行了.

代码如下:

[html] view plaincopyprint?

1. <span style="font-size:18px;"></span>   

[html] view plaincopyprint?

1. <span style="font-size:18px;">Private   Sub   hflexgrid_EnterCell()   
2.     '单击某一单元时，改变该行颜色   
3.     Dim   i_Col   As   Integer   
4.     Dim   c_col   As   Integer   
5.     c_col   =   Hflexgrid.col   
6.     If   c_col   >   0   Then   
7.           For   i_Col   =   0   To   Hflexgrid.Cols   -   1   
8.                   Hflexgrid.col   =   i_Col   
9.                   Hflexgrid.CellBackColor   =   &HFFFFC0   
10.           Next   i_Col   
11.           Hflexgrid.col   =   c_col   
12.     End   If   
13. End   Sub   
14.   
15.   
16. Private   Sub   hflexgrid_LeaveCell()   
17.     '当某一行失去焦点时，改变该行颜色   
18.     Dim   i_Col   As   Integer   
19.     Dim   c_col   As   Integer   
20.     c_col   =   Hflexgrid.col   
21.     For   i_Col   =   0   To   Hflexgrid.Cols   -   1   
22.             Hflexgrid.col   =   i_Col   
23.             Hflexgrid.CellBackColor   =   vbWhite   
24.     Next   i_Col   
25.     Hflexgrid.col   =   c_col   
26. End   Sub  
27. </span>  

结果如下:

 

方法二:

使用mshflexgrid 的属性来选中某行的信息并使其颜色发生改变,这个方法比较简单,而且能够进行多行选中!

结果如下:

单行选中:

[html] view plaincopyprint?

1. <span style="font-size:18px;"></span>  

多行选中:

 

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