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

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的用法说明。

编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 检测运程数据传送的断线-VB资料 简单电子邮件发送程序-VB资料 VB建立拨号联接 -VB资料 将所有窗口最小化-VB资料 VB利用IE控件访问Internet VB利用IE控件设计简易浏览器 VB利用Mscomm32控件判断MODEM是否打开,或者正在工作,并且判断拨号时是否遇忙音 VB利用TAPI进行电话拨号 利用VB访问Internet 利用VB设计聊天室 利用Visual Basic实现无线通讯 VB利用Winsock控件实现局域网通信 VB如何从 Internet 上取回某一个网页的內容? VB如何检测是否已连接到Internet? VB如何利用Winsock控件编写自己的Internet程序 VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸 VB如何启动拨号网路中的连线? VB如何使用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序? VB如何用VB打开默认浏览器或默认发信程序? 请问哪里可以下载RIP,OSPF的源代码? 为什么在sql explorer里面可以执行的sql语句在delphi里面不可以执行呢 一个servlet调用另一个servlet编译问题 Jbuilder7注册文件哪有下载?谢谢 哪位有网上商场系统结构分析的文档!!(高分) 急用:怎么用控制台命令查看进程,并终止进程? 请问DELPHI编写使用SQL SERVER 2000的管理端用什么连接好点? 喜欢吉他的程序员来谈谈 用InstallShield如何安装COM+组件 帮我看看!先给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!!的工具 进程外组件的关于注册的问题? 玻璃除霜的问题.好评! certificate的英文意思 sport中的"p"读"p"还是"b"?在英语单词中s的后面一个辅音例如:f t d p k 等读什么音? 这个玻璃开关保险有几个. 会计题.生产甲产品领用原材料a材料5000kg,单价10元,b材料2000kg,单价4元.求分录. 聚合物移动电源,哪个好用点?RT,想买款聚合物的移动电源,不是聚合物的不要,质量太差,求荐一款. 饱和溶解度怎么计算?有公式吗?楼下能给具体点的解释一下吗? 可导 连续 微分 有点晕,跪求大神给个好理解的说法.直观一点~不要说那些可导一定连续什么的 方便记忆的话 2.31中2是什么意思?20.04中2是什么意思? certification 和 verification的区别如题 雅思中,qualification资格证 certificate证书 有什么差别? 力不增大,用10N的力拖动一物体匀速运动,其摩擦力也是10N.现在要速度是原来的2倍,仍然匀速运动,问摩擦力是大于10N,还是小于10N,还是等于10N?老实说是等于10N,可我觉得应该是大于10N啊,不加力 如何去看溶解度图像.如何判断是否达到饱和容液? 光在透明介质中沿直线传播对吗? 哪些品牌的移动电源是用聚合物做的? 钢化透明玻璃与普通透明玻璃色彩相同吗我的意思是说如果放两块5平米左右的在一个空间里从视觉上能看出它们的不同色彩么还是它们两块就是一样看不出来呢从视觉要怎么样才能分辩出来 植物体中的一切有机物是不是都是植物直接从无机物合成而来?糖类 氨基酸 磷酸 脂质 核糖体等等这一切有机物,植物体都是自身合成的吗?植物是不是不能从外界摄取现成的有机物,或者说即 加速度需要力 那为啥向上加速度 却超重?比如电梯.向上加速上升.那么需要一个向上的力是吧?那么不应该失重 怎么变成超重了?那么 一个小车受到向左的加速度 里面有一个物体 这个物体水 holmesglen的diploma和certificate有什么区别?哪个好用一点?想在holmesglen念bakery&patisserie 可是发现这个还有diploma和certificate 这两个有什么区别 哪个好用一点?diploma是Diploma of Hospitality (Patisserie) certific 水电离为什么要强调稀溶液时Kw不变浓溶液为什么不适用''' 60°时硝酸钾的溶解度为110克.60°时将60.0克硝酸钾放入50.0克水中,充分溶解后,所得溶液中溶质的质量时将60.0克硝酸钾放入50.0克水中,充分溶解后,所得溶液中溶质的质量分数是多少? certificate与diploma区别 红外光谱为什么要用 稀溶液! 关于电势的问题 在线求解正电荷产生的电场中各点的电势是正值,负电荷产生的电场中各点的电势是负值,且越靠近正电荷的地方电势越高,越靠近负电荷的地方电势越低 为什么 同桌女,上课干那个怎么办同桌是女的,她狂追exo什么的,说话特肉麻,同学们说她发情期,自习课时写着作业,她居然把手放在自己裤子里摸索,我假装写作业装没看到,她却眼神迷离地看着我,一脸 cacl2使布条退色下列物质,不能使有色布条退色的是A 次氯酸钠 B次氯酸钙 C氯水 D氯化钙求详细过程 中国移动通讯(汉译英) 有比较好用的手机移动电源吗?是哪一种啊? 成立“关爱留守儿童”协会策划书怎么写uqT 移动 汉译英我想知道,移动电话里说的那些您拨叫的用户占时无法接通,还有,您拨叫的用户已关机,您拨叫的用户不在服务区,等等,要和移动一摸一样的,.. we've got the 急求一份关于关爱孤残儿童活动的策划书 汉译英:“一张地图,不论多少详尽,比例多少精确,它永远不能带你在地面上移动半步”我这跛脚的英语译得很生硬, 溶进和融进的区别 一个人从懂事以来只活了多少年?比如一个人活八十岁.从20岁开始懂事.他到底活了多少年20以前不算.你们猜哈 『慢慢地你会明白』是什么意思啊!?拜托各位了 3Q 下列各组中的离子能大量共存于同一溶液中的是A.Fe3+ Na+ F- I- B.Fe3+ K+ NO3- SCN-C,Fe2+ K+ Cl- I-D,K+ Fe2+ MnO4- SO4 2- 消防系统气压罐容积问题消防系统中的稳高压系统给水(稳压泵和气压罐)中气压罐的容易怎么确定呀 可不可以用气压罐代替高位水箱呢 ZARA的包为什么沾水就变色了?3Q沾水变色之后该怎么处理?会不会颜色就回不来了啊? 公式编辑器中如何使大括号内的方程都左对齐? Fe3O4为什么会有磁性 化学必修一第一章复习题 第一题为 已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为----这是一份试题 求第一题为已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为---- 的必修一化学第一章 英文里的certificate 和 diploma有什么区别?这两者的意思分别是什么? 磁化率是?及磁化率用途给出公式,现在自学中, 人平均年龄活多少年啊拜托各位了 3Q? 以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《龟虽寿》 夕阳无限以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《 原肠胚是不是属于早期胚胎? fff团只烧异性恋咩? 地埋式污水处理设备埋设深度一般为多少 为什么单刀双掷开关接3个接线柱 即热式电热水器,离子加热是什么原理?比紫铜加热管哪个好?淘宝上所谓的史密斯紫铜管pk许多离子加热新技术不知哪个好?有个叫什么--双核-镍金甲盾离子加热管,号称最新技术,能效转化率近10 certificate是否是可数名词 certificate 单刀双掷开关属于串联还是并联 老骥伏枥 志在千里 烈士暮年 壮心不已表达了作者怎样的情怀? fumigation certificate是什么意思 质量m、电量q带正电荷的小物块,从半径为R的1/4光滑圆槽顶点由静止下滑,整个装置处于电场强度E,磁感强度为B的区域内(图12-46).则当小物块滑到底端时对轨道的压力为____. 玻璃小说 roseonly certificate是什么意思 S后面的p都要读成b吗?帮我解释一下该怎么判断 墨西哥20岁男子贩毒杀害数十人 墨警潘基文强烈谴责刚果(金)反政府武装袭非正式出口民调:执政联盟候选人胜出格男子把10公斤黄金扔进垃圾场 当地掀世界最高人找到真爱将结婚 两人相差7美将军称驻阿富汗部队将经由俄罗斯领空美国官员:奥巴马早知国安局监听默克尔世界最高人找到真爱将结婚 两人相差7以总理:伊朗有能力在数周内提炼武器级塞尔维亚为铁托遗孀举行国葬 2万多人美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局昆西 琼斯向杰克逊信托人索赔6080潘基文强烈谴责刚果(金)反政府武装袭河南济源回应7公里6个“收费站”称非媒体称养老金并轨已无悬念 执行路线图阿根廷国会选举受瞩目 现总统或丧失部加拿大机场现可疑包裹 警方搜查机场附格陵兰拟向中澳开放铀矿与稀土 仍需丹美国官员:奥巴马早知国安局监听默克尔浙江高校获专业设置“自主权\" 不再新华微视评:越南您这船不经撞 或要承高等教育出版社建社60周年座谈会举行美国与伊朗就核问题双边会谈在日内瓦结葡萄牙总统呼吁各主要政党寻求共识共克立陶宛举行“马刀打击2014”多国军128万,娄底为何重谢河南救人英雄标题导航哈尔滨百年犹太老会堂奏响新乐章多元化服务支持湘企“走出去”西安警方摧毁一特大入室盗窃犯罪团伙标题导航湖南福彩为游客型彩民解兑奖之忧湖南中汽南方开启炎炎夏日购车季 零“黄金圣斗士”亮相南京(图)山西出台多项政策鼓励小微企业吸纳就业甘肃省食品安全宣传周活动在兰州启动情感:为了爱情与家人闹崩 私奔4年后兰州水上巴士试运营首日 700余市民兰州市新增一国家重点实验室兰州:月底城关将试运行自行车租赁服务中国食品药品检定研究院与甘肃协议推进
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘