VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 使用标签控件调出浏览器
发表评论(0)作者:, 平台:, 阅读:15205, 日期:2000-03-12
使用标签控件调出浏览器



经常在一些软件的安装界面或关于界面上看到写有出品软件的公司的网址的标签,

如果鼠标点击这个标签就会弹出一个浏览器将你带到该公司的主页上去。其实要实

现这一功能很简单,只需要一个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参数。