还是msflexgrid的问题

我将MSFILXGIRD
的 SelectionMode 设成 flexselectiontyrow
加将focusrect 设成 0在用Mouse或键盘移动是,他可是可让当前设成蓝底白字,比如当前行为 row为1
那我想在按键事件中 使用得 row=5时,他第5行成为蓝底白字(现在运行时,只有第5行,第1个框是蓝底白字,其它框都是白底黑字)

解决方案 »

  1.   

    Public Sub msvsflexgrid_Click()
    定义点击GRID事件End Sub
    Private Sub VfgrdShow_KeyUp(KeyCode As Integer, Shift As Integer)
    '**********************************************
    '
    '设定鼠标点击GRID
    '**********************************************
        If KeyCode = vbKeyUp Then
            If MSFLEXGRID.Row >= 1 Then
                Me.MSFLEXGRID_Click
            End If
        End If
        End Sub
      

  2.   

    grd.row=x
    grd.rowsel=x
    grd.col=grd.fixedrows
    grd.colsel=grd.cols-1
      

  3.   

    MSFILXGIRD1.CellBackColor = RGB(255, 0, 0)