用VB开发一个简单的阅览器

If KeyAscii = 13 Then
WebBrowser1.Navigate Combo1.Text
Combo1.AddItem CommonDialog1.FileName ’下拉列表的KEYPRESS 事件
End If

CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
WebBrowser1.Navigate CommonDialog1.FileName
Combo1.Text = CommonDialog1.FileName ’ 打开
Combo1.AddItem CommonDialog1.FileName
End If

commobdialog1.ShowOpen ’保存

On Error GoTo shanghai
WebBrowser1.GoBack ’ 返回上页
Exit Sub
shanghai:
MsgBox "前页没有WEB页"

On Error GoTo shenwenyu
WebBrowser1.GoBack ’ 下一页
Exit Sub
shenwenyu:
MsgBox "后页没有WEB页"

WebBrowser1.Navigate Combo1.Text
Combo1.AddItem CommonDialog1.FileName ’ OK

WebBrowser1.Navigate Combo1.Text ’窗体的 LOAD事件

WebBrowser1.Width = Form1.Width - 350
WebBrowser1.Height = Form1.Height - 1600 ’窗体的RESIZE 事件
Combo1.Width = Form1.Width - 1500