[已解决]怎样将窗体上的文字设为超链接？

爱疯

刚才为看U盘是USB ?.0，找了个小工具。 checkudisk.rar (58.75 KB, 下载次数: 21)

2011-2-9 16:35 上传

点击文件名下载附件
看到红圈中的是超链。


问题：怎样把附件窗体中的网址设为超链呢？
谢谢！
超链接.rar (7.88 KB, 下载次数: 52)

2011-2-9 16:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

小福贵

2011-2-9 18:28

Private Sub Label1_Click()
    Shell "explorer.exe http://www.exceljy.com/"
End Sub

'=========================================================================================
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Me.Label1.ForeColor = &HFF0000
    Me.Label1.Font.Underline = True
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Me.Label1.ForeColor = &HFF&
    Me.Label1.Font.Underline = False
End Sub

跳转到最佳答案楼层

tlj588

好问题，想学会。

小福贵

Private Sub Label1_Click()
    Shell "explorer.exe http://www.exceljy.com/"
End Sub

'=========================================================================================
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Me.Label1.ForeColor = &HFF0000
    Me.Label1.Font.Underline = True
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Me.Label1.ForeColor = &HFF&
    Me.Label1.Font.Underline = False
End Sub

爱疯

谢谢小福贵！
shell简单、方便，没想到，学习了{:25:}

桑树果

好的，我也不学学

搁浅2008

学习学习