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

结果如下:

单行选中:


多行选中:

 

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

 

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 12
    评论
评论 12
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

弯_弯

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值