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

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


Facebook开源又一力作,欲借Broadcom开放交换机 华为敏捷网络:坚持被集成,引领ICT融合 专访赵桂华:.Net也有春天及高性能网站架构实践 《近匠》Testin:云测试除了APP和真机 还有可穿戴和汽车 应用开发利器FXForms:iOS上实现各种Form View Firefox 30正式版:支持GStreamer 1.0技术、内置全新Gecko 30内核 从阿里、UC联姻 看移动互联网“入口”之争 AppCode发布3.0.1更新,支持Xcode 6和Swift 智能家居持续升温:苹果HomeKit合作伙伴Honeywell发布恒温器 欲与谷歌、亚马逊抗衡,苹果推CloudKit拥抱云服务 针对新一代物联网应用 Atmel推全新32位微控制器 实时计算,流数据处理系统简介与简单分析 Cue:秒杀HealthKit,打造自己的家庭医生 新iPhone要来:4.7就够了么?我们还有更大的 Docker迈入云(DockerHub)+端(Docker引擎)时代 《近匠》壹枱智能钢琴:改造音乐行业的新“玩”家 圣何塞Hadoop Summit 2014看点 唯快不破!90后大学生9天完成近670页的Swift语言文档翻译 一周消息树:Java、.NET、Web技术应用特点 苹果生态格局:软硬件之后,iLifestyle才是王道 小米互娱总经理尚进:独立游戏当为发烧而生 哪些编程语言、框架/平台最受企业青睐? 高德LBS应用大赛:百万大奖、千万基金等你来拿! Gartner:有数据有真相 从浪潮看服务器市场走势 PhoneGap 3.5.0发布,不再支持iOS 5和ARM64 “中美青年创客大赛”之“创客&#183;教育论坛” 以创客教育支持创新人才培养 授之以渔,谷歌发布开源秘密武器Kubernetes 炫耀分数已经out!ShareSDK发布游戏内视频录制SDK Android开发者必知的5个开源库 UCloud完成B轮融资5000万美元 Git远程操作详解 帮我看看!先给100,答玩再给100 有谁能告诉我怎么使用索尼DSC-F717相机的“扩展”功能? 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? jsp中怎样生成静态页面 请问:如何返回webservice类的一个或多个实例? 怎样触发另一个窗口中的javascript函数? 谁能提供一些检测内存泄露的工具或方法 如何将 FoxBase 中的数据导入到 SQL Server 中? 求助:API操作注册表出现奇怪问题 请问如何改变windows xp中的用户的登陆顺序 有问题:如何通过页面下载附件? 求助:VB生成安装文件的问题 离子共存时,是否有电性? 如图所示,固定的竖直轨道CD是光滑的四分之一圆弧,其最低点C的切线水平,半径R=0.3m.光滑水平面上,长L=2m的平板车上表面与C登高.车的左端A处放一质量m=1kg的小物块,物块与小车间的动摩擦因数 hypermesh划分的壳单元(shell63),对于两个component上的单元,可以做一个连接么? 一粒钢珠从静止状态开始自由下落,然后陷入泥潭中.若把在空中下落过程称为1,进入泥潭过程为2,则A,过程Ⅰ中钢珠动量改变等于重力的冲量B,过程Ⅱ中阻力冲量的大小等于过程Ⅰ中重力冲量的 境界究竟是何界?所以事物 vertify,confirm.certify之间用法有什么区别如题,例句:this result merely ____earilier american studies.填哪个,它们三者之间又是用如何应用的 质量为m的小球从离泥潭高好H出由静止落下,不计空气阻力,落在泥潭上又深入泥潭h后停止,求小球在泥潭中运动时所受平均阻力多大? 如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦.将a、b两小球分别从两轨道右侧正 核电厂设备分级中 1E的字面含义是什么?是什么单词的缩写吗? 叶绿素不能添加在酸性食品中吗 谁能给我一些初二物理的题目?麻烦各位大虾了 请问在hypermesh里面怎么将材料属性赋值给单元啊? 抛物线的准线,焦点分别指什么? 题目来问我,科学 秦山核电站能抗几级地震? 超声波去除眼袋怎样 题目来问我,科学的 hypermesh中怎么建立弹簧单元 谁做过超声波去眼袋 AB是两个地震观测点,他们相距200千米,A测得在AB两点连线的左侧32°方向上有地震B测得在AB两点连线的方向左侧43°方向上有地震,请你根据图形,计算出震中点C到观测点B的距离 核电站与地震是否有必要担心 超声波去眼袋的优势有哪些? 螃蟹吃高粱—— (写歇后语) HyperMesh 材料属性中密度是那个单词 p/e值与p/b如何计算,如何根据p/e与p/b值分析股票内在价值 爱情的最高境界是什么样求大神帮助 请教一道关于判断电势高低的题有一用均匀导线做成的正方形线框ABCD(以左上角为顶点A,右上角为顶点B),正方形的一半放在和纸面垂直向里的匀强磁场中,当磁场的磁感应强度均匀增强时,试 股票是什么? 入秋的高梁,老来红 什么是核电筹建处 洛论兹力永远不做功吗? 有没有英语超级好的人.马上考英语了. 俄罗斯冬宫介绍 抛物线准线、焦点点P是抛物线Y2=2X上的一个动点,则点P到(0,2)的距离与点P到该抛物线准线的距离之和的最小值为多少? 爱到什么程度,就是最高境界. 冬宫怎么样 抛物线的准线和焦点表达 高粱开花——(歇后语)求大神帮助 冬宫高度是多少米? 关于四川地震的作文400—500字 爱情的最高境界是什么啊? 冬宫的描述 动作电位如何沿神经元传导 cf里哪个区人最多!哪个区好点? 冬宫什么形状 光的折射 透镜 填空1.用照相机拍摄相片时,景物到镜头的距离要____________,所成的像是一个____________________________像. 一位同学看到闪电开始计时,经3秒后听到雷鸣声,则打雷处距该同学多远?这种问题需要考虑光的传播速度吗? 女的能活多少岁拜托各位了 3Q 从神经元两端向中间传导的两个动作电位相遇后为什么会抵消 爱的最高境界究竟是什么? ug中的面相交是什么意思 要如何处理 同学们我想问哈,生物里的生态营养结构是不是指是食物网呢?还有,在碳循环过程中,碳的形式是答有机物还是二氧化碳呢,要分什么情况啊? 在同一地点看到闪电之后三秒听到打雷,问打雷地点距离多少? 一辆车在公路上匀速行驶,一人看见路程碑的数字是AB(A、B是1—9的数字,单位是:千米)1小时后他又看见一块路程碑的数字是BA.又过1小时,再看见一块路程碑的数字是A0B(0是数字0).问:汽 我28岁优质精子5.92%,1级精子14.49%,2级精子30.81,3级精子6.32,2级+3级37.13%,PH值6.4,畸形0这样能怀孕吗,我该怎么办啊,应该去哪里看比较好啊? 一道碳氧循环的初中生物题是不是所有的箭头指向的是二氧化碳库?即A是不是里面所有生物 BEFD箭头指向的是分解者?此道理在题目中是否适用? 谁能介绍下confirm用法 等离子是否显电性 一次闪电 经过4秒听见雷声 问闪电在多元的地方 核电,核能发电站,1E级与非1E级指的是什么,有什么区别?核电,核能发电站,1E级与非1E级指的是什么,有什么区别? 韩称中韩2014年起联手管制黄海非法苏富比将在墨尔本拍卖一件清朝蓝色丝绸财政部:今年中央财政农发资金预算已执外媒:以色列空袭加沙地带 未造成人员苏联时期主题性美术创作稿展在杭举行浙江金华8890便民服务平台开通韩国总统好感度调查出炉 卢武铉居首李最高法出台纲领性文件 强化依法办案理伊朗将举行系列会谈 为新一轮核问题谈上海历史博物馆获赠民国老股票 留有杜温州办公用房改革搁浅 官方表示执行起2013全球EMBA百强排行榜 清华两大报业集团合并 上海报业集团今天挂官员谈上海自贸区制度创新 政府职能转江苏省长李学勇:划定生态红线 建立补开封官方回应批准庄园打深水井事件称:江苏通报今秋秸秆焚烧“第一把火”处理公园免费后质量下降 南京市民质问财政南京出现“烂尾工程”现象 财政部门称南京财政局谈政府采购“挑贵的买”:综南京中小河治理工程将收官:14条河流最大“影子股”轻纺城昨跌停主动发挥好政协作用和促改革调结构滞后的风险爱心没有半途而废 爱心不远万里送达上半年经济增速7.4%成都举重今日冲击新高持受影响车次车票乘客尽快办理全价退票我市今年已建210个就业见习基地投哪网获广发证券亿元注资《小时代3》首日冲击排映纪录部分高校在川一本投档线出炉“解剖”样板学校课程建设成都联通4G混合组网正式启动战犯住冈义一:以中国人作活靶练深化合作 互利共赢快乐成长大于“3”网友地铁拍下“猥琐男”三星GALAXY Tab S成都首销郫县重大项目快引快建为全省经济发展作出更大贡献创业超市设在家门口 创业定制看准项目
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘