vb怎样动态加载ie游览器

Question

如题...
结贴给分

Answer 1

用webbrowser控件啊,webbrowser1.Navigate ("www.baidu.com") 

Answer 2

调用例:
  ShellExecute Me.hwnd, "", _
          "http://www.pcsoft.com.cn/Soft/Soft_6968.htm", _
          "", "", 1
          '用浏览器浏览网页，华军商城

Answer 3

dim objIE 
set objIE=createobject("InternetExplorer.Application")
objIE.visible=true

Answer 4

部件中查找Microsoft Internet Controls类名：    SHDocVwCtl
路径：    C:\WINDOWS\system32\shdocvw.oca
    

Answer 5

工程->部件->控件->Microsoft Internet Controls

Answer 6

总结:
1、API法
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute Me.hwnd, "", _
          "http://www.pcsoft.com.cn/Soft/Soft_6968.htm", _
          "", "", 1
End Sub
2、引用法
先引用Microsoft Internet Controls
Private Sub Command2_Click()
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate ("www.baidu.com")End Sub
3、控件法：
加载,webbrowser控件
Private Sub Command1_Click()
webbrowser1.Navigate ("www.baidu.com")
End Sub

Answer 7

dim objIE 
set objIE=createobject("InternetExplorer.Application")
objie.navigate "www.163.com"
objIE.visible=true