Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

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

1970-1-1 08:00| 发布者: 共享| 查看: 3124| 评论: 0

'能调用默认的程序打开或执行你要做的操作
'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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

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

最新评论

相关分类