Option ExplicitPrivate Sub Command1_Click()
MsgBox InStr(WebBrowser1.Document.body.innertext, "啊")
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.csdn.net/expert/topic/293/293975.shtm"
End Sub
MsgBox InStr(WebBrowser1.Document.body.innertext, "啊")
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.csdn.net/expert/topic/293/293975.shtm"
End Sub
StartPosition = RichTextBox1.Find(字符)