求WebBrowse已打开的网页页面查找的VB源代码

Private Sub Form_Load()
WebBrowser1.Navigate2 "www.baidu.com"
End Sub
以百度为例。
打开百度。你只要按键盘ctrl+F。那么自动会跳出一个查找框的。输入百度。点击“查找”就行了

第二个方法。
使用SendKeys 模拟按键
Private Sub Command1_Click()
WebBrowser1.SetFocus
SendKeys "^f"
End Sub
只要点击一下按钮。自动会跳出查找框了。