发表评论(0)作者：, 平台：, 阅读：9507, 日期：2000-03-12

许多用VB编的软件，当选择“关于”时，其中的Email地址和主页网址都是蓝

色带下划线的链接形式，这是怎么实现的呢？希望不吝赐教，谢谢。

- 曹敏

A：我曾在前几期回答过类似问题。使用API函数ShellExcute

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

在Label控件的click事件上加入代码：

Private Sub lblURL_Click()

Dim HyperJump

HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString,

vbNullString, vbNormalFocus)

其中WEB为你定义的超连接地址，例如：

Private Const WEB = "http://i.am/hellprisoner"

如果需要调入email，就要在email地址前加入mailto: 例如

Private Const WEB = "mailto:prisoner@990.net"

如果再在Label的属性中设置MousePointer = 99 'Custom 并把MouseIcon

设置为一只手的图标，当鼠标移动到标签上时，指针就变成手的形状，这就更

象超连接了。

- Prisoner

回答2:

可以先建立两个label控件label1和label2.设他们的caption分别为"我的mail"

和"我的主页"(或是其他你想要显示的内容).然后加入如下代码:

Private Sub Label1_Click()

Set ie = New InternetExplorer

ie.Visible = False

ie.Navigate "mailto:weiv@163.net"

End Sub


Private Sub Label2_Click()

Set ie = New InternetExplorer

ie.Visible = True

ie.Navigate "http://playworld.126.com"

End Sub

- WEIV