Question

vb6中 这种效果是怎么做的 ？

前进 后退 停止 那几个是如何做到的

Answer 1

Private Sub Command2_Click'后退
WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()‘前进
WebBrowser1.GoForward
End Sub

Private Sub Command4_Click()’刷新
WebBrowser1.Refresh2
End Sub

Private Sub Command5_Click()“全选
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Command6_Click()”查找
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Command7_Click()‘打印
WebBrowser1.ExecWB OLECMDID_PRINT, 1
End Sub

Private Sub Command8_Click()返回主页
WebBrowser1.GoHome
End Sub

Private Sub Command9_Click()停止
WebBrowser1.stop
End Sub