1.
Private Sub Command1_Click()
With grd
MsgBox "选中" & (.RowSel - .Row + 1) & "行"
End With
End Sub2.
grd.Row = grd.FixedRows
grd.Col = grd.FixedCols
Private Sub Command1_Click()
With grd
MsgBox "选中" & (.RowSel - .Row + 1) & "行"
End With
End Sub2.
grd.Row = grd.FixedRows
grd.Col = grd.FixedCols
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 0
MSHFlexGrid1.CellBackColor = RGB(200, 10, 10)
MSHFlexGrid1.SetFocus
End Sub