Visual Basic - Equivalencias entre VB6 y Clipper

Life is soft - evento anual de software empresarial
 
Vista:

Equivalencias entre VB6 y Clipper

Publicado por Antonio (93 intervenciones) el 12/05/2009 11:39:14
Hola a todos.

Me podrían informar sobre algo similar a MENU TO de Clipper.

Me refiero a que en un momento dado, estando en un formulario con TextBox, al llegar a uno de los TextBox que se presente un menú en una parte de la pantalla con cuatro opciones por ejemplo y poder elegir cualquiera de las cuatro, y al elegir cualquiera de las cuatro opciones que se ejecute una acción.

Saludos cordiales.
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:Equivalencias entre VB6 y Clipper

Publicado por Quique (51 intervenciones) el 12/05/2009 16:50:17
Busca información y ejemplos sobre la instrucción PopupMenu.
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:Equivalencias entre VB6 y Clipper

Publicado por Antonio (93 intervenciones) el 13/05/2009 10:13:25
Hola Quique, gracias por responder.

Pero los menús contextuales aparecen cuando el usuario clica con el botón derecho sobre un elemento de la aplicación y yo lo que quiero es que al tener el foco un TextBox aparezca un menú.

Saludos cordiales.
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:Equivalencias entre VB6 y Clipper

Publicado por Antonio (93 intervenciones) el 13/05/2009 11:09:49
Lo he solucionado creando un menú con la propiedad Visible=False y este código:

Private Sub cTipo_Trab_GotFocus()
PopupMenu mnuTipoTrabajo, cTipo_Trab.Left, cTipo_Trab.Top
End Sub

Private Sub cCorrectivo_Click()
cTipo_Trab.Text = "C"
cNomTra.Text = cCorrectivo.Caption
cN_Depe.SetFocus
En Sub

Private Sub cPreventivo_Click()
cTipo_Trab.Text = "P"
cNomTra.Text = cPreventivo.Caption
cN_Depe.SetFocus
End Sub

Private Sub cConductivo_Click()
cTipo_Trab.Text = "O"
cNomTra.Text = cConductivo.Caption
cN_Depe.SetFocus
End Sub

Private Sub cVarios_Click()
cTipo_Trab.Text = "V"
cNomTra.Text = cVarios.Caption
cN_Depe.SetFocus
End Sub

Saludos cordiales.
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