VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 许多用VB编的软件,当选择“关于”时,其中的Email地址和主页网址都是蓝色带下划线的链接形式
发表评论(0)作者:, 平台:, 阅读:9747, 日期: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