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

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参数。


高端实战技术培训:OpenStack企业应用之路 据统计,Oracle已击败IBM跃居软件行业第二 【技术博客推荐】2014年值得关注的10个开源项目 Intel在深圳建立智能设备创新中心 将投入1亿美元 免费获得价值1200元Unity2014顶级盛会门票! IBM公布Softlayer中国业务落地时间表 推荐30款最佳的数据可视化工具 数据库迁移测试:选白盒还是黑盒? 东软发布首款英特尔架构企业级移动终端解决方案 英特尔与腾讯创立游戏创新实验室 推进RealSense技术 《近匠》系列沙龙之探寻绝密武器:移动跨平台开发 iOS走向开放:苹果新推iAd Workbench广告服务 腾讯薛伟:快速模型更新在精准广告推荐中的应用 微软Build2014第一天要点精华汇总(组图) Windows 8.1 Update 1五大改变:任务栏回归,增强鼠标支持(图) 【十大院士】怀进鹏:全球的计算模式可能重新形成 微软Build2014第一天应了解的15件事 TypeScript1.0发布,完美支持Visual Studio系列产品 欲与Android展开价格战,微软宣布在移动设备上免费开放Windows 2014深圳英特尔信息技术峰会次日要点汇总 4月4日:微软39周岁,生日快乐! 正式进军硬件市场 Atlassian发布可穿戴设备Bitband 云计算时代IT专业人员需具备的10项技能 【走近院士】李德毅:大数据是连接虚拟和现实世界的桥梁 微软Build2014大会第二天干货总结 Microsoft Azure拥抱Puppet、Chef、MongoDB... 唏嘘不已!Brendan Eich上任Mozilla CEO仅十天即因歧视同性恋被迫辞职 最火HTML5 JavaScript游戏引擎:国外篇(一) Facebook发布PlanOut 开源部分A/B测试源码 一周消息树:6款Java转C#的最佳工具、Web开发者必备的9个软技能 对话“宙斯杯”获奖代表:依托京东云平台,打造精品电商CRM 关于微软开源WinJS,开发者必须知道的5件事 怎么样才能实现对音量的控制,最好能达到有下脚喇叭的功能 phpmyadmin之前的密码认真是怎么回事呀(配置问题) 谁能帮忙介绍工作? 请介绍几个现在还提供免费个人主页的地方 IIS运行起来后,不能访问http://localhost是什么原因? 谁能帮忙介绍工作? 关于控件数组 急需收发文系统的完整代码,谢谢! 我想用VB写一个com分页读出tif中的多幅图像,请高手指点! 请教sql查询 情介绍一个数据库编程的好书! 请教:JBuilder中要调用MapXtreme 的bean,怎么搞,定给分 为什么TOP不能限制数据集的数目???见者有分!!! 找高手解决问题!! sql 2000的一个存储过程,有些问题, 谁能帮忙介绍工作? golive6,如何解决中文问题???在源码中无法显示中文,如何解决??? 请看看这两条代码是否一样? 寻---陈建春之<visual C++高级编程技术---开发实例剖析> 想学学UML…… 现在工作好烦!!!!!! 关于combobox很简单的问题 各位大夏,我用JBUILDER做EJB时已经编译了,可是为什么那个TOOL菜单里面的EJB DEPLOYMENT子菜单是灰的啊?也就是我怎么生成部署描述设置 教材 谁看了《我的野蛮女友了》,是不是和《不见不散》有点像阿 怎样定义自己的消息? 菜鸟问题:有关vs7.0与vs6.0的Session传递问题.(来者有分) 如何改变窗口的图标? 都有哪些方法? 报表的格式化问题? 英文win 2000 +英文IIS 联接 中文win 2000 +中文Sql Server 出现乱码的问题,在线等待 哪位有realplayer 8.0的序列号?是否可告知小妹:) 各位大侠,我想把网站的部分链接放到局域网的其他机子上,需要怎么设置 我要租房(深圳华侨城附近,1000元之内,30分钟车程之内) 请教各位,系统如何自动获取编号 转贴:回忆最有人缘的28个电视人物(1) 我要找一本叫《软件工程》的书! 网上赚钱的事会是真的吗 , 谁介绍一下 , 有没有不错的网站. 转贴:回忆最有人缘的28个电视人物(2) 大家都用的什么开发工具啊?? 如果我的DOMINO服务器坏了,我重新安装后,如何让原有的用户ID都继续使用呢?还是必须要重新注册? 高手请教!如何向oracle中读写二进制文件! 我要找一本叫《软件工程》的书! 有谁重载过CListCtrl控件?? 数据库统计的问题!!在线等待! 在Notes中,如何用LotusScript取得Notes的安装目录? 如何修改弹出菜单的内容! 突然的感慨:) [求助]在控制台程序中怎么用定时器??? 非扩充话题移动贴子就扣信誉分!究竟信誉在这里怎么解释。 我想问问大家,在哪里有一些好的软件提供下载,我想看看人家的界面,向别人学学 xsl中能进行条件选择或循环吗??? 英语翻译演唱着是nas. 同学们用花盆出一个双环型,每隔5分米摆一盆.两个交代处各摆一盆,每一环的周长都是10米,一共需要多少盆花? 求六年级上册冀教版数学应用题答案及过程,急!1、修一条路,已修与未修的长度比是1:3,再修300千米,已修与未修的长度比是1:2,这条路长多少千米?2、把一个圆转化成近似的长方形,已知长方 班级庆元旦方案 请以"泪水"为话题,写一篇作文.要400字. 你知不知道五年级上册的21课的读后感怎么写 生活启示作文 (写事)结尾与开头 全部的财产来求好听的英文歌曲,Cry On My Shoulder 比如说这个,在我肩膀哭泣.就要这些非常感人的歌曲 如果你的天空是灰色 在遥远的天堂 一定有属于我们的某个地方 只要你愿意 我能让你的人 同学们用花盆摆成了一个双环型 每个环的周长都是30米 现要间隔5分米放一盆花 两点交点各摆一盆 一共需要多接着上面的:盆花? 班级庆元旦活动流程 我想要几首能让我哭的的英文歌... 以泪为话题的作文 人生启示 作文 开头 六年级上册寒假生活全本参考答案快快.. 以泪为话题的作文怎么写 苏版 五年级小学语文第22课《滴水穿石的启示》读后感200字不许抄袭 六年级上册寒假生活答案人教版 以童年的泪为话题的作文 有一个半圆形花坛,周长是10,28米,他的面积是多少? "依靠在你肩膀流泪"翻译成英语 以泪与人生为话题的作文 六年级上册寒假生活第28页答案 大桥公园有个圆形喷泉,周长是56.52米,面积是多少平方米?(保留两位小数) 同学们用花盆摆出一个双环型,每隔5分米摆一盆.两个交点处各摆一盆,每一环的周长都是10米,一共需要多少盆花? 注意是最新的! 一个圆环花坛的周长是50.24米,面积是多少平方米? 学校要在教学楼前建一座圆形花坛,花坛周长是100.48米,求花坛的占地面积是多少平方米? 人教版 ''' 不是寒假生活 请在我肩上哭 英语最佳翻译是? 一个正方体的体积是343CM3,它的表面积是多少?都正确,但能否告诉如何从体积推算出边长? 班级文化布置我们班的布置有公告栏、照片墙、荣誉栏、小小作家(作文)、我行我秀(书法、美术等作品),还差一个 内容该是什么好?那个版面蛮大的 可以贴什么? 一个圆形花坛的周长是50.24m.其中有1/8的面积是假山和喷泉,假山和喷泉面积有多大 圣诞节教室要怎么布置?买一点小东西能够在教室的每块地方装饰 如何去进行班级文化布置 一个圆形花坛的周长是50.24m,其中假山和喷泉的面积占总面积的八分之一.假山和喷泉的面积共有多大? 若干个额定电压为6.3v的小彩灯串联在照明电路中,用以布置教室或装饰圣诞树,请画出电路图并注明彩灯的个数 以感恩为主题的班级文化,怎么布置 一个圆形花坛的周长是50.24米,其中有8分之一的面积是假山和喷泉,假山和喷泉的面积有多大 同学们用花瓶摆出一个双环型,每隔5分米摆一盆.两个交点处各摆一盆,每一环的周长都是10米,一共需要多少盆花 小宇同学在布置班级文化园地时,想从一块长为20㎝、宽8㎝的长方形彩色纸板上剪下一个腰长为10㎝的等腰三角形,并使其一个顶点在长方形的一边上,另两个顶点落在对边上.请你帮他计算出所 一个圆形花坛的周长是50.24其中假山和喷泉的面积占总面积的1/8假山和喷泉的面积共有多大? 一个圆形花坛的周长是37.68米,在它里面留出六分之一的面积种菊花,种菊花的面积是多少? 求听了想哭的英文歌曲.除了 黑色星期五 一个圆形花坛的周长是50.24,其中假山和喷泉的面积占总面积的1/8.假山和喷泉的面积共有多大? 体积与容积 部分知识1、两个装满水、大小相等的量杯,如果往这两个量杯分别放入大小不等的石块,哪一个量杯中剩下的水多?请说明理由.2、两个体积一样大的盒子(一个木盒,一个纸盒),它 推荐10首伤感的听了就想哭的英文歌曲不要!经典歌曲(如my heart will go on) 要最近新出的 就要10首 多了不要, 以眼泪围话题的一篇文章,写什么题材新颖?最好符文与写法, 一个圆形花坛的周长是37.68,它的面积是多少平方米?其中有四分之一中菊花,求种菊花的面积?(要列出算式) 求听了会哭的英文歌如题,就是听起来很舒服,很想哭的英文歌~3Q 以“眼泪”为话题写一篇400多字的散文, 五年级体积与容积部分知识(1)取两个大小相同的量杯或透明的杯子,在杯中倒入同样多的水,将一个苹果和一个梨分别放入这两个量杯中.观察两个杯子水面的变化,判断苹果和梨那个体积大 求推荐听了就想哭的英文歌女声的 现在心情很不好 想哭一哭 用12个长5厘米、宽4厘米、高3厘米的长方体码放成一个表面积最小的长方体,这个长方体的表面积是多少? 找几道五年级体积容积数学难题 什么英文歌听了会哭的?我觉得 迈克尔的You Are Not Alone.不错啦.don't cry 这首听了也挺感动的.顺便在来些,听了热血澎湃的,类似于:she is my sin-NightwishIt’s My Life楼下的 大哥大姐,我发的都比你们 把一个表面积是516平方厘米的正方体切割成8个相等的小正方体(无剩余,损耗不计),切割后的8个小正方体的表面积之和比原来大正方体的表面积增加多少平方厘米?注意是之和,切割后还会 求执著为题的作文我很穷,没有积分,希望有人能路见不平一声吼.拜谢! 谁知道妙手仁心里的插曲:no don't cry这首英文歌儿的中文翻译 同学们花盆摆成了一个双环形,每个环周长都是30米,现要间隔5分米放一盆两个交点各放一盆,一共需要多少盆要列算式 快 急 以“执着与通达”为题作文
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘