自制IE浏览器

个人认为对于新手 用VB 做 myie 比较简单易上手些...下面我就说下具体的做法:

一  加载VB

二 添加 microsoft internet controls 部件  和   mircrosoft common dialog control 6.0 部件

    再添一  microsoft windows common controls 6.0 部件....

三  在窗体内添加 webbrowser  组件并取名 wb. ..添加两个 toolbar组件 分别为

    toolbar1和 toolbar2 .. 添加 menu.  在 toolbar1 上 加上  后退 前进 停止  主页 刷新 属性 全选 复制 保存

     关于 查源  等按钮 ...在toolbar2  上 添加 combobox 组件 和  一 commandbutton .....

       再在窗体上 添加 statusbar 取名 sbar1  ..  好..东西 都添好了..下面开始写 代码 ...

四 代码如下...

 

Dim  wancheng  As   Boolean
Dim  Copy1  As   String
Private   Sub  About_Click()
 a  =   MsgBox (Copy1, vbOKOnly,  " 关于myIE... " )  ' ("制作: pzhan!" & vbCrLf & "QQ:103706666", vbOKOnly, "关于myIE...")
End Sub

Private   Sub  Combo1_Click()
wb.Navigate Combo1.Text
End Sub

Private   Sub  Combo1_KeyPress(KeyAscii  As   Integer )
Dim  I  As   Long
Dim  existed  As   Boolean

If  KeyAscii  =   13   Then
If   Left (Combo1.Text,  7 )  <>   " http:// "   Then
Combo1.Text  =   " http:// "   +  Combo1.Text
End   If
wb.Navigate Combo1.Text
     For  I  =   0   To  Combo1.ListCount  -   1
     If  Combo1.List(I)  =  Combo1.Text  Then
    existed  =   True
     Exit   For
     Else
    existed  =   False
     End   If
     Next
     If   Not  existed  Then
    Combo1.AddItem (Combo1.Text)
     End   If