谁能把我这对改成这样的代码啊,用VB 点进入进我空间, 我空间:http://user.qzone.qq.com/814231093?ADUI
1个回答
展开全部
不知你要什么样的效果。
首先,打开工程中的代码窗口,输入以下代码,也可直接复制,注意要一字不漏。
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
Private Sub Command1/label1_Click(Index As Integer)
ShellExecute hWnd, "open", "网址", vbNullString, vbNullString, conSwNormal
End Sub
注明:
1)在第三行的代码中“Command1/label1”需修改为您需超链接的标签
2)以上代码中“网址”需修改为您需连接的网址
3)当您连接的网址以WWW开头,不需要打上http://,若您连接的网址没有WWW开头,那你必须在此网址前打上http://
给个邮箱我给你发过去。
首先,打开工程中的代码窗口,输入以下代码,也可直接复制,注意要一字不漏。
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
Private Sub Command1/label1_Click(Index As Integer)
ShellExecute hWnd, "open", "网址", vbNullString, vbNullString, conSwNormal
End Sub
注明:
1)在第三行的代码中“Command1/label1”需修改为您需超链接的标签
2)以上代码中“网址”需修改为您需连接的网址
3)当您连接的网址以WWW开头,不需要打上http://,若您连接的网址没有WWW开头,那你必须在此网址前打上http://
给个邮箱我给你发过去。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询