如何定义自己的文件格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何定义自己的文件格式

共有4434人关注过本帖树形打印复制链接主题：如何定义自己的文件格式

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/25 20:19:00 [显示全部帖子]

第一步：添加后缀名，添加项 .test

第二步：往.test里设置打开的对应程序 xxxxx.test

第三步：往root路径添加 xxxxx.test项，然后设置 defaultIcon

参考狐表.table或者.jpg的设置。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/26 22:20:00 [显示全部帖子]

感觉有趣，就简单做了一个这样的例子。代码挺简单的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件关联图标例子.table

[此贴子已经被作者于2013-8-26 22:19:58编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/26 22:21:00 [显示全部帖子]

全局代码

Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long)

Private Const SHCNE_ASSOCCHANGED = &H8000000

Private Const SHCNF_IDLIST = &H0

Public Sub Refresh() '立即刷新系统!!!

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)

End Sub

按钮代码

Registry.SetValue("HKEY_CLASSES_ROOT\.helen", "", "helen的打开程序") '建立 .helen 项,填入对应打开的程序

Registry.SetValue("HKEY_CLASSES_ROOT\helen的打开程序\DefaultIcon", "", ProjectPath & "test.ico") '建立打开程序的信息(图标)

Registry.SetValue("HKEY_CLASSES_ROOT\helen的打开程序\shell\Open\Command", "", "C:\WINDOWS\notepad.exe %1") '用记事本打开.helen文件

Refresh()

msgbox("设置成功,请建立.helen文件测试验证")

主题：如何定义自己的文件格式