如何在vb控件上添加超链接

作品展一点点进行,遇到的问题就越来越多,也就越来越知道大家实现那些功能背后的故事啦!这是我接触作品展以来第一次,自己用API函数.shell来添加超链接.

建立一个label，输入文字，文字可以简单修改为下划线和蓝颜色，然后双击进入代码编辑窗口，

在通用中输入PrivateDeclare 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 AsString,ByVal nShowCmd As Long) As Long

在label单击事件中复制一下内容

格式:

PrivateSub Label1_Click()

ShellExecutehWnd,"open","网址",vbNullString,conSwNormal

End Sub

若实现单击打开本站，则

PrivateSub Label1_Click()

ShellExecutehWnd,"http://yudandan661212.blog.163.com/",conSwNormal

End Sub

运行程序,我一点击就自动进入自己的博客啦!!!

作品展在逐步的完善,而我也在一点点的进步!!!

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!