MSHFlexGrid-选中任意单元格-让其变色.

ning1958 2010-05-05 08:09:05

http://topic.csdn.net/u/20100429/19/d0feef9f-dde8-4e5b-9460-159df47f737d.html

MSHFlexGrid中单击某一行变色
用了3楼的结果,选中一行后,这行变色,

VB codePrivate 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-选中任意单元格-让其变色.
可是改了半天,目标没有实现.
请问各位大侠的问题是,
上面程序如何改,能实现标题所提的目标需求.

...全文

381 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

yinxiaobao 2010-08-06

打赏
举报

上面的方面怎么对我都没有呢?怎么回事?急死人了.

wtuqi1 2010-05-06

打赏
举报

帮顶

ning1958 2010-05-06

打赏
举报

VSF没有用过,举个例子.

帝企鹅已被占用 2010-05-06

打赏
举报

msf麻烦，换vsf

chinaboyzyq 2010-05-05

打赏
举报



Private Sub HFlexGrid_Click()

    '单击某一单元时，改变该行颜色

    HFlexGrid.CellBackColor = &HFFFFC0

End Sub



Private Sub HFlexgrid_LeaveCell()

    '当某一行失去焦点时，改变该行颜色

    HFlexGrid.CellBackColor = vbWhite

End Sub