使用标签控件调出浏览器

发表于:2007-07-14来源:作者:点击数: 标签:
经常在一些软件的安装界面或关于界面上看到写有出品软件的公司的网址的标签,如果鼠标点击这个标签就会弹出一个浏览器将你带到该公司的主页上去。其实要实现这一功能很简单,只需要一个API函数就行了。那就是:ShellExecute。 首先在窗体的声明段中输入如下
经常在一些软件的安装界面或关于界面上看到写有出品软件的公司的网址的标签,如果鼠标点击这个标签就会弹出一个浏览器将你带到该公司的主页上去。其实要实现这一功能很简单,只需要一个API函数就行了。那就是:ShellExecute。

首先在窗体的声明段中输入如下代码:

Option Explicit

Private 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

Private Const WEB = "http://newvb.126.com"

然后在标签的Click事件中输入下面的代码:

Private Sub Label1_Click()

Dim HyperJump

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

End Sub

运行程序,用鼠标点击该标签,就会自动弹出一个浏览器把你带到本站。

你还可以将标签的Mousepointer属性设为99,MouseIcon设为一个手一样的图标,鼠标移动到标签上时就会变成一个手的形状,这就更象超级链接了。

如果将上面的网址换成mailto:newvb@21cn.com,则会启动一个电子邮件程序。多说一点,mailto:...这条语句中可以加上参数,例如:

mailto:newvb@21cn.com?subject=Broken%20Link 这条语句会将主题栏填上Broken Link。又比如:

mailto:newvb@21cn.com?subject=Broken%20Link&body=Check%20your%20Links 这条语句又在将电子邮件的正文填成Check your Links。请记住,务必用%20来代替空格。如果你还想将这封信转发给其他人就用CC或BCC参数。

原文转自:http://www.ltesting.net