Hola Otra vez,
Espero no molestar a nadie con tantas peticiones.
Ahora tengo otra dudita con el MSFlexgrid, quiero recorrer todos los campos sólo con las flechas y tener las mismas facilidades,(o las que sean posibles) que en excel para rellenar los campos del MSFlexgrid.
He intentado con este código, pero, no me funciona muy bien, sé que no es el indicado para esto. Con las letras funciona mejor que con las flechas, pero, no es lo que me exígen, y no sé cómo hacerlo.
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Height = MSHFlexGrid1.CellHeight
Text1.Width = MSHFlexGrid1.CellWidth
Select Case KeyCode
Case vbKeyW
If MSHFlexGrid1.Row > 1 Then
MSHFlexGrid1.Row = MSHFlexGrid1.Row - 1
Text1.Top = MSHFlexGrid1.Top + MSHFlexGrid1.CellTop
End If
Case vbKeyA
If MSHFlexGrid1.Row < MSHFlexGrid1.Rows - 1 Then
MSHFlexGrid1.Row = MSHFlexGrid1.Row + 1
Text1.Top = MSHFlexGrid1.Top + MSHFlexGrid1.CellTop
End If
Case vbKeyS
If MSHFlexGrid1.Col < MSHFlexGrid1.Cols - 1 Then
MSHFlexGrid1.Col = MSHFlexGrid1.Col + 1
Text1.Left = MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft
End If
Case vbKeyQ
If MSHFlexGrid1.Col > 1 Then
MSHFlexGrid1.Col = MSHFlexGrid1.Col - 1
Text1.Left = MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft
End If
End Select
Ojalá me puedan ayudar,
de nuevo muchas gracias.
