Visual Basic - MSHFlexGrid

Hola a todos,

¿Cómo puedo obtener los valores de las columnas correspondientes a la fila seleccionada en un MSHFlexGrid?
No encuentro nada parecido a GetValue o similar. En cuanto a rellenar los datos no tengo problema, pero necesito saber los datos seleccionados por el usuario para realizar una consulta.

Muchas gracias

Pueden ser en dos eventos Click y DblClick del Control, seria:

Private Sub MSHFlexGrid1_Click()
'Obtener el valor de la columna 1
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
MsgBox valor
'Obtener el valor de la columna 2
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
MsgBox valor

End Sub

Private Sub MSHFlexGrid1_DblClick()
'Obtener el valor de la columna 1
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
MsgBox valor
'Obtener el valor de la columna 2
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
MsgBox valor
End Sub

Pueden ser en dos eventos Click y DblClick del Control, seria:

Private Sub MSHFlexGrid1_Click()
'Obtener el valor de la columna 1
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
MsgBox valor
'Obtener el valor de la columna 2
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
MsgBox valor

End Sub

Private Sub MSHFlexGrid1_DblClick()
'Obtener el valor de la columna 1
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
MsgBox valor
'Obtener el valor de la columna 2
valor = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
MsgBox valor
End Sub

Utiliza las propiedades .ROW, .COL, .ROWSEL y .COLSEL del MsFlexGrid para saber que celdas tiene seleccionadas el usuario...

Si .ROW = .ROWSEL y .COL = .COLSEL significa que solamente hay una celda seleccionada...

En caso contrario hay un rango de celdas seleccionadas; lo que necesitas hacer, en este supuesto, es verificar de donde a donde esta seleccionado el rango, verificando cuales valores son menores, ya que una seleccion puede hacerse desde la celda actual hacia abajo/adelante o hacia arriba/atras ...

' ...

Dim nRow As Long ' Renglon Desde
Dim nCol As Long ' Columna Desde
Dim nRowSel As Long ' Renglon Hasta
Dim nColSel As Long ' Columna Hasta

If MsFlexGrid1.Row <= MsFlexGrid1.RowSel Then
nRow = MsFlexGrid1.Row
nRowSel = MsFlexGrid1.RowSel
Else
nRowSel = MsFlexGrid1.Row
nRow = MsFlexGrid1.RowSel
End If

If MsFlexGrid1.Col <= MsFlexGrid1.ColSel Then
nCol = MsFlexGrid1.Col
nColSel = MsFlexGrid1.ColSel
Else
nColSel = MsFlexGrid1.Col
nCol = MsFlexGrid1.ColSel
End If

For nRow = nRow TO nRowSel
For nCol = nCol TO nColSel
cDato = MsFlexGrid1.TextMatrix(nRow,nCol)
' .....
Next
Next

' ...