Buenas!.
Viendo una aplicación, veía que se repetía mucho código, un procedimiento por cada opción, cuanta mas opciones había,
más procedimiento, más código.
Y me animé a ver el problema. ¿ Y por qué no se crea un código común con distinta salida ?. Me acordé de una matriz de controles.
Aprovechar las propiedades del objeto Menú.
Desde código es algo como esto: Puede que eso sea más complejo.
Y luego lo hice desde el editor de menús.
Imagen con una de las opciones.
![[Imagen: 90lQlps.png]](https://i.imgur.com/90lQlps.png)
Cuando usaba los menús, no usaba grupos ni tags. Y luego viendo un código de un compañero, ostras cuanto código.
Subo el ejemplo.
Saludos
Viendo una aplicación, veía que se repetía mucho código, un procedimiento por cada opción, cuanta mas opciones había,
más procedimiento, más código.
Y me animé a ver el problema. ¿ Y por qué no se crea un código común con distinta salida ?. Me acordé de una matriz de controles.
Aprovechar las propiedades del objeto Menú.
Desde código es algo como esto: Puede que eso sea más complejo.
Código:
Public Sub Form_Open()
Dim h1 As Menu
Dim h2 As Menu
Dim h3 As Menu
h1 = New Menu(Me)
h1.Text = "Opciones"
h2 = New Menu(h1) As "Opcion"
With h2
.Text = "Opcion 1"
.Tag = 0
End With
h3 = New Menu(h1) As "Opcion"
With h3
.Text = "Opcion 2"
.Tag = 1
End With
End
Public Sub Opcion_Click()
Dim quehacer As String
Select Case Last.tag
Case 0
quehacer = "caminar"
Case 1
quehacer = "correr"
End Select
Message.Info("La " & Last.text & " es " & quehacer)
EndY luego lo hice desde el editor de menús.
Imagen con una de las opciones.
Cuando usaba los menús, no usaba grupos ni tags. Y luego viendo un código de un compañero, ostras cuanto código.
Subo el ejemplo.
Saludos
Archivos adjuntos
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln