Visual Basic - Ayuda por favor...

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda por favor...

Publicado por DARIO (38 intervenciones) el 20/09/2004 03:30:01
Cómo hago para moverme a través de un flexigrid, unicamente con las teclas de dirección y/o mouse, que me quede la fila seleccionada con color, y que a su vez en cajas de texto al lado puedas mostrar el contenido de esa fila....
Desde ya muchas gracias a cualquier ayuda....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda por favor...

Publicado por Jorge Zambrano (3 intervenciones) el 21/09/2004 22:00:38
Hola, a ver ojala pueda servirte lo siguiente....

1ro. activa la siguiente funcion.....
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)

vbUpArrow
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda por favor...

Publicado por Jorge Zambrano (3 intervenciones) el 21/09/2004 22:12:02
Hola, a ver ojala pueda servirte lo siguiente....

1ro. activa la siguiente funcion.....

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
dim Row%

select case KeyAscii
case vbUpArrow: Row=Row - 1
case vbDownArrow: Row=Row +1
....
else exit sub

end select

' debes validar que o haya llegado al final .....
if Row > MSFlexGrid1.Rows then Row = MSFlexGrid1.Rows - 1

' ni al inicio .....
if Row = 0 then Row = 1

'con esto vas a haacer q solo responda a las flechas
'ahora para mostrar en tus cajas de dialogo solo jalas las variables de tu grilla, (tu sabes que el flexgrid se maneja por un TextMatrix(Fila, Columna), con eso es mas facil.....

Texbox1.text = MSFlexGrid1.TextMatrix(Row,0)
Texbox2.text = MSFlexGrid1.TextMatrix(Row,1)
Texbox3.text = MSFlexGrid1.TextMatrix(Row,2)
......
' para pintarlo....
MSFlexGrid1.BackColorSel = vbBlue

End Sub

Espero que te sirva, saludos desde Peru.
JZN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar