Bueno, la verdad que me estoy partiendo la cabeza con este tema:
Resulta que hice un PopUp menu que aparece cuando hago click derecho sobre MSHFlexGrid2.
Cita: Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
If button = vbRightButton Then
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If
End Sub
Hay un submenu que dice "Terminar Viaje" el cual me abre un form3 que contiene un textbox.
La idea es que ese textbox tenga como text el texto que tiene la columna 0 del MSHFlexGrid2 (y el row sería la misma donde se hizo el click).
El problema es el siguiente:
Cuando yo hago click en el submenu y me carga el form, el textbox tiene siempre el texto del row y col donde se encuetnra el foco. Esto sería OBVIO, pero yo en el initialize del form le pongo
form1.MSHFlexGrid2.Col = 0
Ahí ya tendría que moverse a esa columna, pero no lo hace.
Tambíen probé esto:
Cita: Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
If button = vbRightButton Then
form1.MSHFlexGrid2.Col = 0
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If
End Sub
Y esto:
Cita: Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
form1.MSHFlexGrid2.Col = 0
If button = vbRightButton Then
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If
End Sub
Pero sigue sin moverse.
Solamente se mueve si hago esto antes de hacer el click derecho para el PoPup:
Cita: Private Sub MSHFlexGrid2_Click()
MSHFlexGrid2.Col = 0
End Sub
Pero eso no sería práctico.
Espero que me puedan explicar que es lo que estoy haciendo mal, estoy seguro que es algo simple, pero en este momento tengo la cabeza frustrada y canzada por estar programando toda la noche.
Muchas gracias!