清雅居房价走势:vb 中怎样调用 IE 浏览器访问指定的地址?

强烈建议将API声明和封装代码放在一个模块中。

API声明：
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

封装代码：
Function FileOpen(ByVal StrURL As String, Optional ByVal WindowHwnd As Long = 0&, _
Optional ByVal ExeParameters As String, Optional ByVal ShowMode As VbAppWinStyle = vbNormalFocus) As Long
'打开文件/URL/应用程序
FileOpen = ShellExecute(WindowHwnd, vbNullString, StrURL, ExeParameters, vbNullString, ShowMode)
End Function

调用方法：
FileOpen "URL地址/文件地址/应用程序地址",[窗体句柄,"应用程序调用参数",打开方式]
或
var = FileOpen("URL地址/文件地址/应用程序地址",[窗体句柄,"应用程序调用参数",打开方式])

说明：

窗体句柄：可选，可以使用 [form.]HWnd
打开方式：可选，常数值如下表：
vbHide 0 窗口是隐藏的，并且焦点被传递给隐藏窗口。
vbNormalFocus 1 窗口拥有焦点，并且恢复到原来的大小与位置。
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点。
vbMaximizedFocus 3 窗口最大化并拥有焦点。
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。
vbMinimizeNoFocus 6 窗口缩小为图符。当前活动窗口仍为活动窗口。

该函数返回一个值，如果是正常调用，则返回一个值；返回0表示失败。会设置GetLastError

实例：

Private From_Load()
FileOpen "www.cctv.com",Me.HWnd
'打开CCTV网站

FileOpen "HTTP:\\zhidao.baidu.com",Me.HWnd
'打开百度知道

FileOpen "www.google.com"
'打开GOOGLE

Dim R1 As Long
R1 = FileOpen("www.sina.com")
'打开新浪网

FileOpen "IEXPLORE",Me.Hwnd,"mp3.baidu.com"
'打开百度MP3搜索
'注意：使用上面的方法打开网页时，如果用户已经打开一个浏览器，则会用当前浏览器打开网页，但如果用这一条给出的方法，则系统会打开一个新窗口
''''''''''''''''''''''''''''''''''
Dim R2 As Long
R2 = FileOpen("C:\")
'打开C盘

FileOpen "REGEDIT",Me.Hwnd
'打开RegEdit工具

FileOpen "NOTEPAD",Me.Hwnd,"C:\BOOT.INI"
'拥记事本打开C:\BOOT.INI

FileOpen ""
'打开当前工作目录
'如果是在VB环境中，则打开VB的所在目录
'如果已生成EXE，则打开程序所在目录
End Sub

我刚学，也不知道，希望有人能回答上，我也好学学

Print Inet1.OpenURL

INET控件在microsoft internet transfer control 里面