| 动画介绍:今天教大家做一个简单的 阅览器 嘿嘿我们开始
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 |