contar las filas seleccionadas de un msflexgrid

[erbuson]

Efectivamente, no se puede multiseleccionar, o yo por lo menos no se hacerlo, en programación es demasiado arriesgado decir que no se puede, corres el peligro de 'meter la gamba'

Una posibilidad es las giuiente, creas un nuevo proyecto e insertas un MsFlexGrid1 del tamaño que creas oportuno y después pegas el siguiente código.

Código vb:

Private Sub Form_Load()
  With MSFlexGrid1
    .Rows = 10
    .Cols = 5
  End With
End Sub
 
Private Sub MSFlexGrid1_Click()
  Dim Fila As Single
  Fila = MSFlexGrid1.Row
  If Fila = 0 Then Exit Sub
  If MSFlexGrid1.TextMatrix(Fila, 0) = "" Then
    MSFlexGrid1.TextMatrix(Fila, 0) = "X"
  Else
    MSFlexGrid1.TextMatrix(Fila, 0) = ""
  End If
  MSFlexGrid1.TextMatrix(0, 0) = Seleccionadas
End Sub
 
Private Function Seleccionadas() As Single
  Dim Fila As Single
  For Fila = 1 To MSFlexGrid1.Rows - 1
    If MSFlexGrid1.TextMatrix(Fila, 0) = "X" Then Seleccionadas = Seleccionadas + 1
  Next
End Function
 

Saludos