当向MSFlexGrid中添加一项数据时怎样使刚刚添加的项处于被选中的状态呢。

解决方案 »

  1.   

    如果添加在最后一行
    MSFlexGrid1.row=MSFlexGrid1.rows-1
    如果已知序号3
    MSFlexGrid1.row=3
      

  2.   

    '大致原理,还需要按照你自己的要求调整
    Private Sub Command1_Click()
        MSFlexGrid1.AddItem "aa" & vbTab & "asdasd"
        
        Dim i As Integer
        Dim iRow As Integer
        
        iRow = MSFlexGrid1.Row
         MSFlexGrid1.Row = iRow + 1
        For i = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Col = i
            MSFlexGrid1.CellBackColor = vbGreen
        Next
    End Sub