如何建立简单的超级连接？(ShellExecute)

'能调用默认的程序打开或执行你要做的操作
'API函数声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecute A" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd A s Long) As Long

'打开某个网址
ShellExecute 0, "open", "http://tyvb.126.com", vbNullString, vbNullString, 3

'给某个信箱发电子邮件
ShellExecute hwnd, "open", "mailto:sst95@21cn.com", vbNullString, vbNullString, 0

'播放MP3歌曲
ShellExecute 0, "Open", "c:\demo.mp3", "", "", SW_SHOW

发布人:共享

分享到：

点击次数：更新时间：2005-08-16 11:39:24 【打印此页】【关闭】

上一条：如何让窗体的标题条闪烁以引起用户注意？下一条：Access获取Windows目录和System目录？