como ejecutar la bentana de buscar el IE

[asassa]

Hola

mi pregunta es
¿Como puedo mandar a llamar o ejecutar "buscar" (Ctrl+ f)del navegador web en este caso IE, desde visual basic?
La idea es que lo pueda mandar a llamar con un boton y no con el Ctrl+ f

Pero tambiern mi otra duda es como poder pasarle una variable y que se coloque en la ventana de busqueda
. grcias

[pkj]

Código :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
Private Sub Buscar(Optional TextoABuscar As String)
  WebBrowser1.SetFocus
  Call keybd_event(vbKeyControl, 0, 1, 0)
  Call keybd_event(vbKeyF, 0, 1, 0)
  Call keybd_event(vbKeyF, 0, 3, 0)
  Call keybd_event(vbKeyControl, 0, 3, 0)
  DoEvents
  If TextoABuscar <> "" Then
    SendKeys TextoABuscar
    SendKeys "~"
  End If
End Sub
 

Igual esto te sirve

[asassa]

Hola a todos perdonen pero nunca habia trabajado con visual basic asi que mis conocimientos son muy basicos , en el codigo que mencionaste, tengo unas preguntas
¿Eso que me pasaste entra dentro de un modulo?
¿Como se supone que ejecute eso? ( creo que es con call pero no me sale)
...gracias

[pkj]

Esto era para sacar la opcion buscar en el WebBrowser1 sin pulsar Ctrl+F, que era lo que buscabas antes, solo que me he equivocado de mensaje y lo he puesto aqui.

Para usarlo puedes ponerlo todo en el formulario donde tienes el webbrowser1.
Pon la declaracion al comienzo del codigo del form y la sub donde quieras dentro del codigo del form.

Lo ejecutas con:
Buscar
o
Buscar "texto a buscar"

Si no incluyes el textoabuscar solo aparece la ventana de busqueda.
Si incluyes el texto lo teclea y hace la primera busqueda del texto en la pagina.