发信人: i_can()
整理人: winsy(2003-03-05 15:42:47), 站内信件
|
方法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
--
※ 修改:．i_can 于 Mar 24 17:36:42 修改本文．[FROM: 202.102.47.7]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.138.113]
|
|