我有一个好东东不会用：请问这样用为什么不行，我只要打开（*.txt）的。他却把什么都打开了好象是用了(*.*)一样？

Question

为什么不使用Comm Dialog控件？

Answer 1

commondialog 太大了呀要Comdlg32.ocx=132k，那东西才101k呀

Answer 2

需对lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
进行设置，具体请参考MSDN,查看OPENFILENAME关键字

Answer 3

我的天啊，MSDN太大了要好几百M我的机没有装呀！硬盘(1G)VB5.0
大家难道不用这么好的东西吗？
好东西不用太可惜了。

Answer 4

你再光盘运行不就得了，我比你还惨，我查MSDN时要先把Office山了装MSDN,看过后再把MSDN山了装Office,我多数到微软的MSDN网站查资料

Answer 5

visualbasic2000(齐谐)请问过滤器 怎么用？

Answer 6

jifeng(疾风)我那破光驱读不出来呀！

Answer 7

msdn一定要看，你也可以先找本讲SDK的书先看看。
在OPENFILENAME结构中的lpstrfilter所指的缓冲区是做文件过滤器，每个过滤器是由两个以空字符（0/）结束的字符串组成的，如“文本文件\0*.txt\0”这样。在VB中就要在字符串后加上chr(0)。
如果你把ofn.lpstrFilter = Filter一句改为
ofn.lpstrFilter = "文本文件" + Chr(0) + Filter
效果就出来拉。

Answer 8

再给你个给这一结构赋值的例子，看看吧！
With m_ofn
        .lStructSize = Len(m_ofn)
        .hInstance = App.hInstance
        .hwndOwner = Me.hwnd
        .lpstrFilter = "Bitmaps (*.BMP)" + Chr$(0) + "*.BMP" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
        .lpstrFileTitle = Space(249) + "*.BMP"
        .lpstrFile = .lpstrFileTitle
        .lpstrTitle = "请选择Bmp图片..."
        '.lpstrInitialDir = "C:\Windows"
        .nMaxFile = 255
        .nMaxFileTitle = 255
        '&H51 + &H80000
        .flags = OFN_EXPLORER Or OFN_READONLY Or OFN_SHOWHELP Or OFN_ENABLETEMPLATE _
                Or OFN_CREATEPROMPT Or OFN_NODEREFERENCELINKS Or OFN_ENABLEHOOK        .lpTemplateName = "tt"
        .lpfnHook = GetProcAddress(AddressOf OpenSaveHookProc)
    End With