Comunidad Gambas-es

Retrocompatibilidad de Gambas 3.19 con antiguas versiones [SOLUCIONADO]

FranChesstein 13-08-2024, 17:42

Buenas !!

Acabo de actualizar Linux Mint, de la versión 21.3 a la 22 Wilma, y curiosamente se ha actualizado la versión de Gambas a la 3.19.0. Mi antigua versión si no recuerdo mal era la 3.15.

Para mi sorpresa el ejecutable de uno de los programas que tenía hechos ha dejado de funcionar con el error 'out of bounds'.

He intentado solucionarlo pero desgraciadamente concatena error tras error todos ellos derivados de la gestión de variables y arrays con desbordamientos y fuera de límites. Por lo que me preguntaba si sería posible recompilar el mismo programa para que fuera compatible con la versión antigua o hubiera alguna forma de hacerlo funcionar sin tener que reescribir todo el código.

Gracias

General Respuestas 6

Ejecutar evento PopupMenu en diferentes TextBox

alberto-moyano 10-08-2024, 00:54

Hola gente, estoy persiguiendo lo siguiente, por un lado tengo un menú con varios submenues con funciones que he probado y no tienen problemas, por otro, en un formulario tengo varios TextBox, en todos ellos habilite el evento menú, como son varios TexBox mi intención es que las funciones se ejecuten con el contenido del TextBox donde se llame al evento, en alguna parte (que no logro ver) algo esta mal, ya que no obtengo error, pero tampoco se ejecuta la función elegida en el menú, este es el código que hice.

Gracias de antemano

Código:
' Método que maneja la selección del menú en los TextBox

Public Sub TextBox_Menu()

  Dim tb As TextBox = Last.TextBox

  ' Llamo a la función del menú con el TextBox específico

  menuBUSCARgoogle_Click(tb)

End

' Método que maneja la búsqueda en Google

Public Sub menuBUSCARgoogle_Click(TextBox As TextBox)

  Dim Consulta As String = TextBox.Text

  ' Verificar si el cuadro de texto está vacío

  If Consulta = "" Then

    Message.Warning("No hay contenido para buscar. Por favor, ingrese una consulta.")

    Return

  End If

  ' Reemplaza los espacios en blanco con el signo de "+" para formatear la consulta de búsqueda

  Consulta = Replace(Consulta, " ", "+")

  ' Abre el navegador con la consulta de búsqueda en Google

  Shell "xdg-open https://www.google.com/search?q=" & Consulta

End