如何链接网址?

mtoad 2003-05-20 09:45:37
通过一个按钮链接到一个公司的网址?如何用代码实现?请高人指点!!谢谢
...全文
312 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
spark_li 2003-05-21
Private 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

在程序中

Intranet:
ShellExecute Me.hWnd, "open", "http://Intranet主机/目录", "", "", 5

比如
ShellExecute Me.hWnd, "open", "http://www.xyz.com", "", "", 5
回复
viber 2003-05-21
用api函数ShellExecute的第三个参数`!~
楼上的那种方法
回复
boywang 2003-05-20
Private 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

Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://ctstudio.163.net", "", App.Path, 1)
回复
mtoad 2003-05-20
to yeenRadium(百无鱼子)

我试了一下,不行呀
回复
yeenRadium 2003-05-20
很简单的一个

Private Sub Mhelp_zc_Click()
'链接163网站 Mhelp_zc_ 为菜单名 ~~也可以是你的 按钮之类~
Shell ("Start http://www.163.com")

End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-20 09:45
社区公告
暂无公告