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 (572):    1 308 309 310 311 312 572   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 311
Último miembro: Rober
Temas del foro: 1,765
Mensajes del foro: 9,166
Últimos temas
Presentación de gbpublish...
Foro: General
Último mensaje por: guizans, 02-06-2026, 21:34
Respuestas: 5 - Vistas: 555
Gambas 3.21.1
Foro: Mundo Linux
Último mensaje por: jguardon, 20-05-2026, 22:29
Respuestas: 1 - Vistas: 339
Problema con instalación ...
Foro: WebApp/WebForms
Último mensaje por: guizans, 19-05-2026, 18:54
Respuestas: 1 - Vistas: 380
Problema con el repósito ...
Foro: Instalación
Último mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 676
UEFI y BIOS
Foro: Hardware & IoT
Último mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,815
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.