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

Prueba el código adjunto.

Archivos adjuntos

---

TextBoxSearch-0.0.1.tar.gz (Tamaño: 7.92 KB Descargas: 3)

Gracias cogier, es exquisita la simpleza de la solución.