发表评论(0)作者:, 平台:, 阅读:9862, 日期: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
色带下划线的链接形式,这是怎么实现的呢?希望不吝赐教,谢谢。
- 曹敏
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