tincho 13-06-2022, 23:51
Estoy intentando hacer un backport de la versión de gambas 3.17.2 de Debian 12 a Debian 11 y como y llevo mas de media hora esperando que termine el proceso voy aponer la receta que estoy usando por si a alguien le interesa.

Código:
dget -x http://deb.debian.org/debian/pool/main/g/gambas3/gambas3_3.17.2-1.dsc
cd gambas3-3.17.2
sudo mk-build-deps --install --remove
dch --local ~bpo11+ --distribution bullseye-backports "Rebuild for bullseye-backports."
fakeroot debian/rules binary
dpkg-buildpackage -us -uc
sudo dpkg -i ../gambas3_3.17.2-1~bpo11+1_arm64.deb
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)
Páginas (557):    1 293 294 295 296 297 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 286
Último miembro: Emilio Uribe
Temas del foro: 1,720
Mensajes del foro: 8,935
Últimos temas
Archivos .ods
Foro: General
Último mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 276
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 333
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,607
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 311
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.