vb中commondialog的filter怎么添加文件类型？

举个小例子你就明白了

窗体上放置

command1

commondialog1

然后写如下代码

Private

Sub

Command1_Click()

CommonDialog1.Filter

=

"文本文件|*.txt|word文件|*.doc"

'

指定过滤文件类型

CommonDialog1.FilterIndex

=

1

'默认为文本类型

CommonDialog1.InitDir

=

"d:\"

'默认打开路径D盘

CommonDialog1.ShowOpen

End

Sub

Private Sub Command1_Click()

CommonDialog1.Filter = "QQ/TM/FinePlus/QQ游戏|QQ.exetm.exeFinePlus.exeQQGame.exe|所有可执行文件|*.exe|"

CommonDialog1.ShowOpen

End Sub

用|分割,每两个定义一个类型,前面是提示,后面后缀名

首先要自创文件格式，首先要明白计算机文件的原理，一种格式，不仅仅后缀不同，每一种格式的文件都有属于自己的结构，编（解）码方式，不是一天两天能搞定的，你必须先掌握扎实的基础，比如BMP文件由文件头、位图信息头、颜色信息和图形数据四部分组成。你要先设计好每部，才能创造新的格式。

当然，有一种简单的方法，可以满足你的乐趣，就是直接改后缀，在vb中：

dim

a

as

string

a="新格式"

Open

"c:\1.haa"

For

append

as

#1

print

#1

a

close

#1

这样就会在c盘创造一种haa的格式文件，只有你知道它是什么，但这只是表面现象而已，不算真正的新格式！

GBA模拟器可以打开gbc文件

---