Comunidad Gambas-es

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

Mundo Linux Respuestas 10

ComboList: Un ComboBox que se rellena al escribir

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

ComboList-0.0.1.tar.gz (Tamaño: 13.03 KB Descargas: 6)

Controles/Librerías/Componentes Respuestas 3

Menús desde lel editor de menús y desde código

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