分享
 
 
 

文件关联

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

如何在 VB6.0中 创建自己的文件类型

在Windows中,当我们双击一个.txt文件的时候,“记事本”程序会自动打开,并且显示.txt文件的内容;当我们将一个.txt文件拖到“记事本”的图标上的时候,“记事本”程序也会自动打开,并且显示.txt文件的内容。在Windows中,这种技术称为“文件关联”,是一种非常实用,大大方便操作者的功能。当我们自己设计了一个程序,往往自己的程序需要使用自己定义的文件才能运行。例如,我曾经设计了一个“填字游戏”,这个游戏需要一种“字谜文件”来支持,如果用户要玩“填字游戏”,他们必须首先启动“填字游戏”的程序,然后在菜单上面选择“文件”,然后是“打开字谜”,接着在“打开字谜”的对话框中选择一个字谜文件,最后按下“开始游戏”才能进行游戏。我一直在想,能不能简化这些操作,用户只要双击“字谜文件”,系统就能自动完成前期的操作,用户只要按下“开始游戏”就能进行游戏了。可能在VC中这样的功能很容易实现的,但是VB行不行呢?答案是“完全可以!!!”

首先,为了简化说明过程,我们要明确一下任务,现在假设有一个我们自定义的文件类型 .abc ;还有一个VB程序。当我们双击自定义文件 .abc的图标,或者我们将图标拖到程序图标的时候,我们要求程序能够自动启动,同时获得 .abc文件的文件名,这样,就能对这个文件进一步操作了。(为了说明问题,我们假设,当程序自动运行后将文件名作为窗体的标题,当然,你也能获得文件名后,用你的程序打开这个文件。)

好了,下面就开始编写程序了。第一个要解决的问题就是如何用程序将.abc文件和我们的VB程序“关联”起来呢?在这里,我们使用修改“注册表”的方法来实现文件关联。让我们先定义一个模块,在模块中定义一些常量和API函数。

(以下常数要使用到的,我会加以说明)

Option Explicit

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Public Const HKEY_PERFORMANCE_DATA = &H80000004

Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Const HKEY_DYN_DATA = &H80000006

(以上函数是一些注册表的常量,用来定义 hKey)

Enum ValueType

REG_NONE = 0

REG_SZ = 1

REG_EXPAND_SZ = 2

REG_BINARY = 3

REG_DWORD = 4

REG_DWORD_BIG_ENDIAN = 5

REG_MULTI_SZ = 7

End Enum

(这个枚举是用来定义 dwType)

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,

phkResult As Long) As Long '这个函数是用来创建注册表的主键

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long '这个函数用来关闭打开的注册表

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 '这个函数用来改写注册表的键值

相关的三个API函数是:RegCreateKey[建立SubKey]和RegClose[关闭SubKey]

详细说明:

RegCreateKey函数:

VB声明 Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA"

(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

hKey:Key Handle

lpSubKey:SubKey名称或路径

phkResult:若RegOpenKey执行成功,则这一参数返回Subkey的hKey.

返回值: =0,表示成功;≠0,表示失败。[注意这一点与别的API函数不太一样]

它的参数用法与RegOpenKey一样。所不同的是RegOpenKey只能打开已经有的SubKey,而RegCreateKey则可以建立SubKey,比较特别的是,如果调用RegCreateKey所建立的SubKey是一个已经存在的SubKey,则它的功能和RegOpenKey相同。由于RegCreateKey的这种特性,有的程序员干脆不用RegOpenKey,而用RegCreateKey来统一代替RegOpenKey。

RegClose函数:

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

当我们不再存取Registry时,将打开或建立的SubKey关闭是一个比较好的习惯,就正如我们在使用C语言的文件打开函数后必须要关闭一样。

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

hKey:Key Handle

lpSubKey:Subkey名称或路径

dwType:数据类型,但在这里只能接受REG_SZ[字符串类型]

lpData:所设置的字符串

cbData:lpData字符串的长度,这一长度包括chr(0)字符。

关于dwType的可能取值

有了这些注册表的操作函数后,我们就开始定义我们的文件类型了。这个过程其实很简单的。

1.在注册表中定义 .abc 文件 说明这个文件的类型是用户文件 "userfile"

2.在注册表的"userfile"中定义打开这种文件的程序(就是我们的VB程序!)

具体的源代码如下:

Sub Main()

Dim ret As Long, hKey As Long, ExePath As String

ret = RegCreateKey(HKEY_CLASSES_ROOT, ".abc", hKey) '定义 .abc文件

ret = RegSetValue(HKEY_CLASSES_ROOT, ".abc", REG_SZ, "userfile", 9) '定义文件的类型,注意最后一个数字,它是 "userfile"的字节数 + 1

ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile", hKey) '定义"userfile"

ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell", hKey) '定义它的操作

ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open", hKey) '具体定义操作的名称

ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open\command", hKey) '定义操作的动作

ExePath = App.Path & "\" & App.EXEName & ".exe %1" '获得VB程序名称

ret = RegSetValue(HKEY_CLASSES_ROOT, "userfile\shell\open\command", REG_SZ, ExePath, LenB(StrConv(ExePath, vbFromUnicode)) + 1)

'最关键的一步!将 "userfile" 的打开(open)操作和我们的程序关联起来

RegCloseKey hKey

End Sub

这样,当我们以后双击 .abc的图标以后,就能自动打开我们的VB程序了。当然,这样只能实现打开程序,程序怎么能知道我们双击的文件名呢?好,我们现在创建一个窗体来说明一下这个问题。

在加载窗体的时候,加上这样的源代码:

Private Sub Form_Load()

Dim ss As String ’定义一个字符变量

ss = Command() ’最关键的一步!用这个函数来获得命令行参数!!就是上面提到的 "%1" ,换句话来说,就是文件名!

Me.Caption = ss ’好了,窗体上面就是你的文件名了!(当然,有了文件名,想干什么,你就自己决定吧!)

End Sub

当然,你先要判断一下程序是不是第一次运行,如果是第一次运行的话,在加载窗体前,先执行一下 Sub Main(),进行文件的关联。

好了,学会后,你就能在程序中使用自定义的文件了,或许某一天,.mp3的默认打开方式就是你编写的播放器了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有