Shordi 11-06-2022, 12:53
Aquí tenéis un combobox que se rellena con la lista de opciones según se va tecleando sobre él.
No funciona como yo deseaba, que era el mismo comportamiento pero con la lista del combobox desplegada, pero bueno, vale, cumple su función.

No lo he probado demasiado por lo que no estoy seguro de que se comporte de manera adecuada en todas las ocasiones por lo que agradecería que, si estáis interesado, le echéis un vistazo, lo probéis y me contéis los fallos o sugerencias.

Saludos.
Archivos adjuntos
.gz
ComboList-0.0.1.tar.gz (Tamaño: 13.03 KB Descargas: 6)
Shell 10-06-2022, 19:43
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. Confused

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)
 
End

Y luego lo hice desde el editor de menús.
Imagen con una de las opciones.

[Imagen: 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
Archivos adjuntos
.gz
EjemploConMenu-0.0.1.tar.gz (Tamaño: 12.01 KB Descargas: 1)
Shell 10-06-2022, 19:32
Buenas!.

Estaba creando un archivo fuente para subirlo a la comunidad y vi esta opción, se encuentra abajo del todo.

[Imagen: rFeLRxH.png]

Traducir la última parte "archive that fools GMail". Ahora nos dedicamos a volver loco a GMail ?.  Rolleyes

¿ Entonces ahora, convierte el archivo fuente a un texto embebido dentro de un mail ?. Suele ocupar más.

Saludos
Páginas (560):    1 296 297 298 299 300 560   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 288
Último miembro: shoUsho
Temas del foro: 1,728
Mensajes del foro: 8,984
Últimos temas
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 396
GambOS
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:58
Respuestas: 0 - Vistas: 267
Gambas y Wayland
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 541
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 900
Devorado por la malvada s...
Foro: Python
Último mensaje por: tercoide, 12-08-2025, 23:58
Respuestas: 6 - Vistas: 692
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.