Comunidad Gambas-es

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