订阅VB中插入超链接
来源：网络收集 点击： 时间：2024-02-13打开一个工程，添加一个Label。
（这里的名字是Label5，我以前写好的小程序）
Label的名字可以自己随便写。（这里的是XX工作室）
2/6修改字体颜色为蓝牙
首先点击ForeColor右侧的颜色代码，在下面颜色代码中选择蓝色
3/6然后给字体添加下划线
首先点击宋体旁边的（...）然后下划线上面打钩。
（一般超链接都有，所以俺们也得照葫芦画瓢）
4/6添加库函数申明
以下为函数申明（请完整复制，不然可能会出现错误）
Public 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
5/6然后双击你添加的Label
新添代码
Call ShellExecute(hwnd, open, 此处为你的网址, vbNullString, vbNullString, H0)
------------------------分界线-------------------------------------
下面是我的（供参考，加上ERR判断，防止有的电脑不支持，程序崩溃）
Private Sub Label5_Click()
On Error GoTo Err
Call ShellExecute(hwnd, open, 此处为你的网址, vbNullString, vbNullString, H0)
Err:
End Sub
6/6我们来试一试效果，点击它，直接调用系统的默认浏览器
（网上很多代码是调用IE的，别人用着会不方便，这个代码比较好）
VB超链接网址 版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_40765.html
