获取VSFlexGrid鼠标选中的单元格或行数据

Private Sub VSFlexGrid1_Click()
    Dim a, b As Long
    a = VSFlexGrid1.Row
    b = VSFlexGrid1.Col

    MsgBox "你选的是" & a & "行" & b & "列"
    'VSFlexGrid1.RowSel 鼠标选中行
    'VSFlexGrid1.ColSel 鼠标选中列
     'MsgBox (VSFlexGrid1.TextMatrix(VSFlexGrid1.RowSel, VSFlexGrid1.ColSel)) '鼠标选中单元格内容
    '获取鼠标选中行0列数据
    TextBox1.Text = VSFlexGrid1.TextMatrix(VSFlexGrid1.RowSel, 0)

    '读鼠标选中行所有列的数据

    For i = 0 To VSFlexGrid1.Cols - 1
      Debug.Print (VSFlexGrid1.TextMatrix(VSFlexGrid1.RowSel, i))

    Next i

End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。