说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用标签控件调出浏览器

HTML文档下载 WORD文档下载 PDF文档下载
VB使用标签控件调出浏览器

经常在一些软件的安装界面或关于界面上看到写有出品软件的公司的网址的标签,如果鼠标点击这个标签就会弹出一个浏览器将你带到该公司的主页上去。其实要实现这一功能很简单,只需要一个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参数。


就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? Swift横空出世,Xcode 6 Beta有了哪些新变化? 《近匠》GameMei:简单易用、快速开发商用游戏 Gartner:2014年一季度浪潮服务器出货量中国第一 【技术博客推荐】张安站:大数据时代下的商业存储 Amazon继续登顶IaaS魔力象限,榜眼是微软而非Google 友盟Q1移动互联网报告:解读三线城市移动互联网用户 智能生活 “视”不可挡——首届TCL杯HTML5智能电视开发大赛等你来挑战 Mobile First!开源HTML5游戏引擎Kiwi.js 1.0正式发布 天天用的开发环境,你真的了解吗? 物联网时代,你的汽车也在转型 触宝输入法产品经理解析iOS 8第三方输入法开放程度 专访联想谢政维:功耗和价格是天蝎项目最大障碍! 《近匠》蚁视科技创始人覃政:ANTVR,虚拟现实的新生 后棱镜门时代:开发者保护应用安全的5大技巧 专访许鹏:谈C程序员修养及大型项目源码阅读与学习 65种GPU性能测试,AMD开源驱动领先! 一周消息树:我们从WWDC 2014收获了什么? 精益设计:“纸上谈兵”的说服力 指尖上的艺术——如何运用代码发挥无限创意 周末巨献:100+诡异的数据集,20万Eclipse Bug、死囚遗言等 TIOBE 2014年6月编程语言排行榜:Swift能否取代Objective-C? 移动游戏后端:开发还是购买?你必须知道的6件事 Vuforia SDK 3.0发布在即 全球注册开发者已逾10万 最受职场青睐的十大热门云计算技能盘点 有个关于数据窗口compute的问题请教? 如何返咽一個二維數組? htm里面调用一个jsp页。用javaScript 怎么实现。 怎样添加*.dll文件,如cj60lib.dll,系统自带的吗? 关于记录修改的SQL语句!!! VC的DLL文件怎样在BC中使用?我试过不行 JAVA问题请教 打包运行错误can't start main setup program! 如何把表单上单选框组的内容传给报表啊 iptable怎样限制用户上网? 靠,我的表不能排序啊.....郁闷.... iptable怎样限制用户上网? 求教:输入1个集合,输出它的子集 请问,linux下能用access吗? 问一个“一个页面只能有一个form的问题“ 有关主板BIOS ROM的奇怪问题 请教各位高手,在VB中添加数字排列组合的代码如何编写?多谢!(在线等) # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 请问谁知道oracle中计算查询时间的命令? 有关操作系统的几个问题?感谢大家的指点? 大学四年心得-转帖 ORACLE 在本机WIN2000 上装了服务器端后,还需要装客户端才能进行数据库的一般操作吗? 关于PLC向计算机发送数据的问题。 构造函数? # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 据大力新闻中心消息:SQLServer版是CSDN气氛最好的版块。 在弹出窗口时出现问题 请多多指教:帮我推荐一本Asp.net+C#的书,入门和稍微难点的。谢谢了 想学java的库类 请各位大大推荐一本书 请问在VC6中如何调用chm帮助文件 简单的控件问题 ADO调用存储过程(ORACLE),用CommandText的问题 字体固定后,所有字符(包括汉字)的高度都相同吗? 请问applet和application之间有什么不同呢? 字体固定后,所有字符(包括汉字)的高度都相同吗 为什么看帖不回帖? 关于用c#操纵word的问题 为什么在WIN下可以,在LINUX下不行呀? 大数除法 那位高手解答一下 键盘被锁定!!!急 CSDN现在是怎么了!!!登录不了,想办法进来了背景又是一片白,左边菜单列表又不见了 找到新东家,祝各位兄弟中秋节快乐! 有喜欢骑自行车的吗,进来聊聊,你的车多少钱啊 怎么用javamail发送html页面的邮件? 请问各位一个网页路径问题,谢谢了。急急!分不够再加,本人在线等候!!! 简单问题 为什么我用FLASH做出来的GIF格式的图很大?一些最简单的都有3MB左右!谢谢高手来指教!! 很奇怪的问题,redhat9+adsl+iptable老是丢包,而且达到30%,在2k下没有这样的问题 2太电脑连网,为什么双击网络邻居的时候跳出对话框说无法浏览网络? 菜鸟请大家看看这个程序错误出在那? 怎样才能熟悉有丝分裂各时期的现象如上、要能够容易记住的,我老是要混. 有丝分裂后期非姐妹染色单体存在自由组合现象,为什么正确?自由组合不是只在减数分裂么? 如何才能做到真正理解别人的想法? 怎样才能做到真正意义上的沉默是金?比如说少说废话,说出来就一语惊人.不会因无聊的事情发笑,看得透事物的本质等 68是什么意思 2406, 如果我是00,你愿意做我的68吗 s谁知道AA啊去 求68个成语+意思意思越短越好 语文作文前言的格式是怎样的是不是 标题(空两格)----XXXXXXX表示的是前言,而不是下文 寂( )无声 ( )( )万分,怎样填空? 第68句的意思,简单的概括出来 苹果公司发布新一代iPad等产品英国乔治小王子受洗仪式23日举行 不浙江抽查M15甲醇汽油合格率80%中美工商领袖和前高官第五轮对话在美举日外务省网上传视频主张独岛主权 韩严日本民主党代表用“四面楚歌”形容自己美国校园枪击案枪手曾遭欺凌 开枪或为美国载175人客机因引擎故障紧急迫降沙特拒安理会席位 美国作说客寻与沙特澳报:沙特拒安理会席位系赌气?印度妇女盛装庆祝传统\"女人节\"百人赴贡嘎山搜迷路驴友31小时 被其马蜂校园发疯10余名师生被蜇伤自贡市开展领导干部法治思维培训会2:0胜北京获季军辽宁小女足摘1金最早布局全国擅长大盘操作个性车型登场捷豹路虎征战西部沪指涨0.15%二八效应显重工狂飙现成渝客专内江段8月完成桥梁施工280“金九”首周商品住宅卖31万m2 于车辆乱停挡住店面老板一怒砸车窗第20届自贡国际恐龙灯会盐都美食有望亲爱的阿基米德重生农家有田天罚谁的青春不迷茫恶魔很倾城总裁前妻很抢手九歌重生之1976木兰无长兄我的合租情人妖神纪羊山石城旅游镜湖湿地公园旅游孔雀湖旅游小落水村旅游里格村旅游大落水村旅游天龙洞旅游观海长廊旅游湖光岩旅游北海老街旅游北海银滩旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘