+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Ejecutar evento PopupMenu en diferentes TextBox (/thread-1763.html)
Ejecutar evento PopupMenu en diferentes TextBox - alberto-moyano - 10-08-2024
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
EndRE: Ejecutar evento PopupMenu en diferentes TextBox - cogier - 10-08-2024
Prueba el código adjunto.
RE: Ejecutar evento PopupMenu en diferentes TextBox - alberto-moyano - 10-08-2024
Gracias cogier, es exquisita la simpleza de la solución.