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

VB如何使你的程序同文件扩展名建立关联?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使你的程序同文件扩展名建立关联?



如果你的程序是同文件操作有关,比如说你自定义了一个文件类型,用你的程序才能打开它并查看其中的内容。你有没有想过在你的文件同你的程序之间建立关联,这样不必每次都要先启动程序,再打开文件了。用户可直接点选你的文件,而不必每次都要面对一个“打开方式”对话框。其实要做到这一点,只须调用API函数就行了。下面的代码向你演示如何实现这一功能。


首先在窗体的通用声明段中加入下面的代码:


Option Explicit

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, _
ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

' Return codes from Registration functions.
Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1

在窗体的Click事件中加入下面的代码
Private Sub Form_Click()

Dim sKeyName As String 'Holds Key Name in registry.
Dim sKeyValue As String 'Holds Key Value in registry.
Dim ret& 'Holds error status if any from API calls.
Dim lphKey& 'Holds created key handle from RegCreateKey.

'This creates a Root entry called "MyApp".
sKeyName = "MyApp"
sKeyValue = "My Application"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

'This creates a Root entry called .BAR associated with "MyApp".
sKeyName = ".BAR"
sKeyValue = "MyApp"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

'This sets the command line for "MyApp".
sKeyName = "MyApp"
sKeyValue = "c:\mydir\my.exe %1"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _
sKeyValue, MAX_PATH)
End Sub
按F5运行程序并在窗体上点击一下鼠标,然后退出程序.


从开始菜单中运行REGEDIT,你可在HKEY_CLASSES_ROOT下找到.bar和MyApp两个子项,结构如下所示:

.bar = MyApp
MyApp = My Application
|
-- Shell
|
-- open
|
-- command = c:\mydir\my.exe %1


你可以查看关于RegCreateKey和RegSetValue的用法说明。

盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 《近匠》亲加通讯云:IM即时通讯API的极致服务者 TCL杯HTML5智能电视开发大赛完美落幕,8项获奖应用大揭晓! Xcode 6.2 Beta发布,支持WatchKit的iOS 8.2 SDK来了! 【最具价值CTO评选秀】携程高级技术副总裁叶亚明:从呼叫中心到移动互联网的演进 为什么靠谱的公司都应该参加CTO评选? 【深度剖析】微软开源.NET:战略重心已从PC转移到云端 专访POWER 8编程挑战赛选手黄文超:非科生的编程算法之路 BDTC 2014干货精彩不断,四大全天技术论坛议题全面曝光 全功能API!开源2D游戏引擎Firmament 微信公众平台新增“微信连Wi-Fi”功能,打通线上线下闭环 马化腾:微信在一线城市活跃 QQ增长从城市到农村 承包MIPS开发!Imagination发布双Codescape MIPS SDK 不任性了!Google Play宣布开通国内开发者通道 脑洞大开!用Swift写个Material Design组件库 美国最大婚恋网站eHarmony利用Hadoop、OpenStack重构自己 每个Java开发者都应该知道的5个JDK工具 异构计算应用研讨暨OpenCL编程培训在上海和西安成功举行! APIs.io:用来发布和发现API的利器 已知表中字段ID的值,如何定位到这个字段? 谁知道为什么会出这种错误fatal error C1004: unexpected end of file found 小小问题,也有小小的分,不成敬意。 visio ,rose ,ERwin 他们各自的用途是什么,有什么区别呀? Oracle安装的问题——寻求帮忙!!!! 请问Crystal(水晶)报表如何对TextBox进行动态绑定字段? 如何设定mapx图层的颜色 对汇编的渴望! 谁有Asp做的网站?100分奉上! 都进来看看 vc新兵问函数调用菜鸟问题 紧急求救!!!! 谁有delphi关于ado编程 的资料啊(要详细一点的) TreeView的问题,很实在的问题。 关于在PB上实现错误事件处理!!! 关于组件的停靠 用VB.NET连接数据库老是连不了,快精神分裂了,救命啊! 关于SendMessage(高分相送,紧急) 急!!!高手进! 在查找结果中如果某一字段的值相等,只取出其中一条的问题! squid的安装问题???????????????????? SQL语句问题? 冒昧求救,光驱不能使用,不能boot 我的主机总收到外面发的广告信息? 高分求助急!!! 见鬼了,我添加一个TServerSocket控件,然后编译出现:Declaration terminate incorrectly 有谁知道用哪款打印机比较好呢? 按钮BitBtn1上有图片,在图片上写字的问题。(在先给分!) cystal reports 8.5 english显示繁体问题,急,等待 Unix下用什么源代码检测工具比较好? 我的电脑出什么问题了?各位帮帮忙 界面导航如何分类? 怎样得到本机的网卡号??? %¥#问个小问题,知道的都来抢分啊 谁知道哪儿有支持认证的SMTP组件下载? 有什么软件能查看PE文件的? ADO问题!!!! 100分求购最简单的串口程序!需要详细注释! 怎么给大家份呀?to wyz_csdn等(500分诚征wav 转换到MP3的源程序(VC++的例子)) 在directshow中,不知道怎样对播放的画面的亮度进行控制? 如果深愛的人要離開你,是變心還是死亡好一點?(讨论) 贴了二次为什么没有人指教? 戒水快两年了,如今回来看看,物不是人非啦 新手一问 关于datagrid 修改数据的问题,帮我看看,多谢 谁有这两本书,请帮忙发到我的邮箱里,100分相送 到底应该怎么办? 大家好,如何打开DLL文件? 建议成立一个程序员协会 关于IE中图片的保存 VB 语言支持问题 离子迁移的实验中尿素和硫酸的作用是什么? c面金属 锈我的笔记本电脑鼠标板左面有锈点,是因为手掌出汗引起的吧,才买半年的本本,这个算不算保修范围内啊?还有我的本本喇叭总是有杂音,就像喇叭上面有东西,听歌时不一定什么音就 电风扇功率越大是不是风力就越大呢?为什么?请问二楼 怎么使产生的风能在功率中所占比例越大呢?请问三楼 为什么大口径风扇,风量大,风速小呢?为什么小口径风扇,风量小,风速大 尿素包合实验中要N2保护,请问如何操作? 如何不用其他试剂分离KNO3和KCL的混合物?要用到溶解度的知识,两者都要保留. 电风扇风力大小的问题两台功率一样、转速一样的电风扇,是三叶扇的风力大还是六叶扇的风力大? 赤橙黄绿青蓝紫下一句 “概念的内涵增加它的外延就小了”怎么解释? 将碳酸钠和硫酸的固体混合6g放入烧杯中(已知烧杯的质量为20g),再加入36.2g稀硫酸求生成气体的质量为多少 麻烦那位高手帮我解释:彦是什么意思? 义的含义,内涵,外延 要精确,好的追分 火趁风威,风助火势,船如箭发,烟焰涨天.二十只火船,撞入水寨,曹寨中船只一时尽着;又被铁环锁住,无处逃避.隔江炮响,四下火船齐到,但见三江面上,火逐风飞,一派通红,漫天彻地.用一个字来 一级水、二级水、三级水的主要区别并与纯净水的区别 内涵 外延 这两个概念的含义或定义是什么?还有什么是政策? 斗战神风助火势、风自火出,有点疑问,我是风罗刹~为了上述的两个技能将风墙改成了火墙~但是开了火墙后~风穿过火墙伤害还低些~弄得我在犹豫要不要火墙~ 把一个苹果完全浸入一个长为20厘米、宽为15厘米的长方体容器中,水面升高2.5厘米,这个苹果的体积是多少? 节约与浪费作文作文题为 一个胖子满桌子都是食物,一边吃一边看这旁边只有几碟小菜的瘦子 迈克喜欢拍雪景(用英语翻译) 实验室一级用水和三级用水有什么区别吗 安全是最大的节约,事故是最大的浪费作文能起什么题目? 求路遥 平凡的世界 读后感10篇 重赏~不要转载的 一个长方体的宽是长的4/5,长是高的1/2,已知它的宽8厘米.求这个长方体的体积. 珍惜时间的作文600字先写怎么浪费后写怎么节约 路遥《平凡的世界》两千字读后感我写不出来,二月七号就要开学了,希望你能帮帮我,因为这是要教给老师的作业,所以希望你是自己写的,否则我会挨骂的,我知道要你写两千字很辛苦, 哪支蜡烛燃烧得更旺?现象第一种:燃烧需要氧气,杯中的氧气是有限的,过一会儿,杯中氧气燃尽,自然熄灭.第二种:氧气虽然是无限的,但是热空气往上流,又因为有一个出口,因气压流入的氧气 什么时候填扩散作用,呼吸作用,呼吸运动 路遥《平凡的世界》读后感,十分钟内高额悬赏! 哪只蜡烛燃烧的更旺 关于节约的作文可以取什么题目最好最好 关于节约的作文 模仿《理想》第一段,生命是云,带来欢笑的风; 生命是.生命是.生命是.接下去写 几道有机化学鉴别题,能解决几道解决几道哈,1.环丙烷、环己烷、环己烯2.环丙烷、苯、甲苯3.乙醚、正丁醇、戊烷4.乙醚、丁醇、苯酚5.丙酮、戊二酮6.乙醛、2-戊酮、3-戊酮7.果糖、葡萄糖 肺泡进行气体交换.组织处的气体扩散和四心房简图连接图 估计也就只有我一个人了吧!的文言文翻译…… 英语翻译《笑府·夫夫》:“有与小官人厚者,及长为之娶妻,讲过通家不避.一日撞入房中,适亲家母在.问女曰:“何亲?”女答曰:‘夫夫.’”好像是说同性恋的吧? 那支蜡烛燃烧得更旺现象与结论 房间晒不到太阳,潮湿怎么办 某烯烃与氢气加成后得到的饱和烃是2,4-二甲基戊烷 ,该烯烃可能的结构有几种?请画出所有符合条件的化合物的结构式. 二氧化碳加-氧化碳等于什么 哪些物质可以用浓硫酸干燥?能具体地说出写中学常有的物质吗? 第三部答案是1.7*10^-5 请问下 是怎么算出来的... 三碳化合物可以被氧化成co2么 鸡不下蛋晒了太阳多久会下蛋 甘油三脂4.11(参考值是0.56-1.70)低密胆固醇1.31(参考值是2.07-3.1)葡萄糖7.60(参考值是3.3-5.56)怎么治疗 孝经全文的白话文解释有知道的吗? 求路遥的平凡的世界的读后感,要600字以下的哦 曲突徙薪文言文答案是神吗 求《孝经》全文及翻译 路遥的《平凡的世界》读后感(600字左右,初二水平)最好不要网上抄,急用,好的加100分以上. 英语翻译【师父,我一直以为活动定在周六,就把所有的事情推到了周日,刚才才得知活动改为周日.实在对不起,不能参加了,希望能理解,但要知道,我的心和大家在一起】 孝经·开宗明义章全文. 在双臂电桥的使用中,为什么要把被测电阻坐成四端电阻的形式? 一个长方体容器长宽都是2厘米向容器里倒入5.5升水再把苹果放水中,这时水深15厘米,这个苹果的体积是多少?急 金属上锈了怎么办? 电桥法测电阻时电桥上的按键开关为什么要触按 渗透试验使用尿素会怎么样本来是使用蔗糖溶液,如果用尿素会怎么样呢? 金属去锈金属由于腐蚀生锈,应该如何去除啊?有人建议用稀盐酸,但试过会反弹,用完反而生锈更严重.这应该如何处理? 数人饮之不足,一人饮之有余中的有余是什么意思?如果有余的意思是剩的话 为什么还要画蛇?画蛇赢的那个人喝不是还会剩吗? 把两升水倒入一个长方体的容器,水的高度是十厘米,把一个苹果浸入水中水面升高了二厘米,这个苹果的体积是多少? 为金属去锈的办法手镯上衔接部分的金属生锈了,影响美观.分不清是钢还是合金.希望有知道去锈办法的高人指点一二.总之是要用酸是吧?可乐是碳酸……那么雪碧也行吧……天外飞仙你确定 电风扇的风力能调小吗?就是在最小档时候,风力也比较大的,看能不能调小风速 哈佛大学肯尼迪政府学院创院院长:高效安倍护卫车连续两日发生交通事故 日媒德国纳粹盖世太保头子被证实已误葬入犹日本学者发现有助改善糖尿病和肥胖症的俄建议叙政府与反对派在莫斯科举行非正日本警官爱用枪对准下属遭停职 称只为卜拉希米:日内瓦会议不能缺少叙反对派奥巴马出席投资美国峰会 承诺加强吸引日再上传英文版主张独岛主权视频 韩再德国成欧洲首个允许出生登记性别栏空白德国成为欧洲首个允许出生性别栏填写空会议记录爆奥巴马医改网站开通首天仅6法一酒店房间装透明天幕 住客仿佛置身韩政府再次敦促日方删除主张争议岛屿主日本东京民众提前两天排队等待购买新款调查报告称澳移民目的地开始从欧美转向日本学生12万粒杏仁膏立体再现法国印芬兰计划实施新禁烟法 拟禁居民在阳台日本议员“告御状”欲破天皇不干政禁忌韩被日本强征女劳工状告三菱获胜 获赔调查报告称澳移民目的地开始从欧美转向直飞+免签一家人的巴厘岛一天刷新两次栾川获批为首批国家级旅游业2015汾阳王酒业年会在深圳举行缺牙人士注意了!大河报探秘“拜博种植“暴风雨”刮到广州 Rain湿身诱惑三部教育法修订回应七大热点“大河杯”中原壶设计大赛报名啦!两胎生育间隔至少2年 一胎产后避孕要藏品立馆学术强馆展览养馆肯德基携手UBER过圣诞三季度我省饭店平均房价及出租率走低深圳滑坡:一货车不避让救护车被罚千元本周六,乘“大河报温泉直通车”直达洛本轮进球503个 赛事数据统计越发完别出门了,重度霾今明两天再度来袭!豫股稳步上行王老吉“改名案”获胜河南一医院雇人“住院” 骗取医保基金西九华山微信茶树众筹正式上线左右“开弓”写正反字 请欣赏
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘