vb编程指定扩展名

来源：百度知道 编辑：UC知道 时间：2024/05/02 08:55:42
有知道VB6里怎么注册文件格式吗
就是指定的扩展名双击用我做的程序打呀
急用，谢谢
引用的注册表模块在那里呀，没找到呀

提供一个函数给你，在使用这人函数之前你必需先做一个注册表操作函数，建议直接引用VB6提供注册表操作模块。这个模块安装VB6时已自带，新建模块时使用模板就行了。

'================================================================================
'添加、删除文件关联 OK 参数：后缀名,文件说明,添加/删除,[文件图标索引]
'================================================================================
Public Sub SET_LINK(mSuffix As String, mStyle As String, mState As Boolean, Optional Iconi As Integer)
Dim mLink As String '关联的后缀名
Dim mOpen As String '关联打开的程序路径

On Error GoTo RegKeyError
mLink = LCase(mSuffix)
mOpen = App.Path & "\" & App.EXEName & ".exe" '你要关联打开的程序路径。
If mState Then
'设置文件关联
Call UpdateKey(HKCR, "." & mLink, "", mLink & ".file")
Call UpdateKey(HKCR, mLink & ".file", "", mStyle)
Call UpdateKey(HKCR, mLink & ".file\DefaultIcon", "", m