作品展一点点进行,遇到的问题就越来越多,也就越来越知道大家实现那些功能背后的故事啦!这是我接触作品展以来第一次,自己用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
作品展在逐步的完善,而我也在一点点的进步!!!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。