● 在VB中如何使用默认的浏览器 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: wesley (网中人〖永远的深情车站〗), 信区: Program
标题: 在VB中如何使用默认的浏览器
发信站: BBS 荔园晨风站 (Thu Aug 19 16:56:10 1999), 转信

在VB中如何使用默认的浏览器？

方法1：(缺省浏览器)
声明
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExe

cuteA" (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
程序
ShellExecute 0&, vbNullString, "http://www.netease.com ",
vbNullString, vbNullString, vbNormalFocus

说明：1、使用时需要声明 ShellExecute 这个 API 函数。
2、修改第3个参数，还可以使用类似的方法来调用系统缺省程序发送邮件、浏览

图片、打开文件等。

方法2：(只限IE)
引用reference:Microsoft internet control(注意是引用references，不
是components)

Dim WithEvents m_IEview As InternetExplorer
''withevents 捕捉IE的事件
sub_click()
If m_IEview Is Nothing Then
Set m_IEview = New InternetExplorer
End If
m_IEview.Navigate "http://www.netease.com"
m_IEview.Visible = True ''一定要有才出现
end sub

Private Sub m_IEview_OnQuit()
''声明Dim WithEvents m_IEview As InternetExplorer
''出现的事件
Set m_IEview =nothing ''释放m_ieview
End Sub

--
穿过那失望的过去，越过那迷茫的未来；我定能在爱情的海洋中寻找到彼岸。
生存在冷落的网络，挣扎在浩瀚的网络；我定能在现实的山峰下攀登到顶峰。

------------------------------------------------幸福中漫步的一匹狼

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: bbs.huizhou.GD.cn]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店