个人认为对于新手 用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
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