Проблема с фильтром в CommonDialoge

Kak mne dabavitb isio odin filtr ???
CD1.Filter = 'Cursor Writer (*.CWR)|*.CWR '
I cwr i txt ???

0

Держи класс Dialog, сам разберешься.
Будут вопросы пиши...

' **************************************** **************************************
' * Purpose: Calls the open dialog thru the APIs.
' * File: CCommonDialog.cls
' **************************************** **************************************
Option Explicit

' ***** the type used for the open dialog
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
lFlags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

' ***** variables for the open dialog
Private m_hwndOwner As Long
Private m_lInstance As Long
Private m_sFilter As String
Private m_sCustomFilter As String
Private m_lMaxCustFilter As Long
Private m_lFilterIndex As Long
Private m_sFileName As String
Private m_lMaxFile As Long
Private m_sFileTitle As String
Private m_lMaxFileTitle As Long
Private m_sInitialDir As String
Private m_sTitle As String
Private m_lFlags As Long
Private m_iFileOffset As Integer
Private m_iFileExtension As Integer
Private m_sDefExt As String
Private m_lCustData As Long
Private m_lpfnHook As Long
Private m_sTemplateName As String

Private m_lError As Long ' holds the error

'API function called by ShowOpen method
Private Declare Function GetOpenFileName Lib 'comdlg32.dll' Alias 'GetOpenFileNameA' (pOpenfilename As OPENFILENAME) As Long

'API function to retrieve extended error information
Private Declare Function CommDlgExtendedError Lib 'comdlg32.dll' () As Long

Public Property Get Error() As Long ' returns the error number
Error = m_lError
End Property
Public Property Get hwndOwner() As Long ' returns the hwnd that dialog will appear above
hwndOwner = m_hwndOwner
End Property

Public Property Let hwndOwner(ByVal NewValue As Long) ' sets the hwnd that dialog will appear above
m_hwndOwner = NewValue
End Property

Public Property Get Instance() As Long ' returns the instance
Instance = m_lInstance
End Property

Public Property Let Instance(ByVal NewValue As Long) ' sets the instance
m_lInstance = NewValue
End Property

Public Property Get CustomFilter() As String ' returns the filter string
CustomFilter = m_sCustomFilter
End Property

Public Property Let CustomFilter(ByVal NewValue As String) ' sets the filter string
m_sCustomFilter = NewValue
End Property

Public Property Get MaxCustFilter() As Long ' returns the max size for the filter string
MaxCustFilter = m_lMaxCustFilter
End Property

Public Property Let MaxCustFilter(ByVal NewValue As Long) ' sets the max size for the filter string
m_lMaxCustFilter = NewValue
End Property

Public Property Get FilterIndex() As Long ' returns the filter index (the default filter)
FilterIndex = m_lFilterIndex
End Property

Public Property Let FilterIndex(ByVal NewValue As Long) ' sets the filter index (the default filter)
m_lFilterIndex = NewValue
End Property

Public Property Get FileName() As String ' returns the filename that was selected, includes the path<BR logError

' ***** this initializes MaxFilesize to 256. If this is missing, no dialog will show.
If m_lMaxFile = 0 Then
m_lMaxFile = 255
End If
' *****

m_lError = 0
lRet = 0 'APIReturn property
lExtendedError = 0 'ExtendedError property

' ***** sets types props from the variables
vOpenFile.lStructSize = Len(vOpenFile)
vOpenFile.lpstrFilter = m_sFilter
vOpenFile.nFilterIndex = m_lFilterIndex
' *****

' ***** sets the filename
sFileNameBuff = Space(m_lMaxFile + 1)
LSet sFileNameBuff = m_sFileName & vbNullChar
vOpenFile.lpstrFile = sFileNameBuff
vOpenFile.nMaxFile = m_lMaxFile
' *****

' ***** initialize the title
sFileTitleBuff = Space(m_lMaxFileTitle + 1)
LSet sFileTitleBuff = vbNullChar
vOpenFile.lpstrFileTitle = sFileTitleBuff
' *****

' ***** initialize other properties
vOpenFile.lpstrInitialDir = m_sInitialDir
vOpenFile.lpstrTitle = m_sTitle
vOpenFile.lFlags = m_lFlags
vOpenFile.lpstrDefExt = m_sDefExt
vOpenFile.hwndOwner = m_hwndOwner
vOpenFile.hInstance = m_lInstance
vOpenFile.lpstrCustomFilter = m_sCustomFilter
vOpenFile.nMaxCustFilter = m_lMaxCustFilter
vOpenFile.nMaxFileTitle = m_lMaxFileTitle
vOpenFile.nFileOffset = m_iFileOffset
vOpenFile.nFileExtension = m_iFileExtension
vOpenFile.lCustData = m_lCustData
vOpenFile.lpfnHook = m_lpfnHook
vOpenFile.lpTemplateName = m_sTemplateName
' *****

lRet = GetOpenFileName(vOpenFile) ' call the API

If lRet = 0 Then ' not successful; an error has occurred
m_lError = CommDlgExtendedError() ' gets the error number by calling the API
Else
'sFileName gets part of vOpenFile.lpstrFile to the left of first Chr$(0)
m_sFileName = Left$(vOpenFile.lpstrFile, InStr(vOpenFile.lpstrFile, vbNullChar) - 1)
End If

ShowOpen = lRet ' 0 if an error occurred, non zero if successful
Exit Function

ShowFileDialogError:
MsgBox Err.Description, vbInformation, App.Title ' show an error that occurred in this proc, not in the open dialog
Exit Function
Resume 0

End Function

Private Sub Class_Initialize()
ReDim m_tFilters(0) ' initializes the array
End Sub
================

Обращение хоть из формы, хоть из модуля:

' ***** common dialog constants
'Public Const OFN_ALLOWMULTISELECT = &H200
'Public Const OFN_CREATEPROMPT = &H2000
'Public Const OFN_ENABLEHOOK = &H20
'Public Const OFN_ENABLETEMPLATE = &H40
'Public Const OFN_ENABLETEMPLATEHANDLE = &H80
'Public Const OFN_EXPLORER = &H80000
'Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
'Public Const OFN_LONGNAMES = &H200000
'Public Const OFN_NOCHANGEDIR = &H8
'Public Const OFN_NOLONGNAMES = &H40000
'Public Const OFN_NONETWORKBUTTON = &H20000
'Public Const OFN_NOREADONLYRETURN = &H8000
'Public Const OFN_NOVALIDATE = &H100
' *****

Public Sub OpenDialog(lhWnd As Long)

Dim sFilters As String
Dim lRet As Long

Set m_CCD = New CCommonDialog

On Error Resume Next

m_CCD.Filter = 'Microsoft Access DataBase (*.mdb)' & vbNullChar & '*.mdb' & vbNullChar & vbNullChar

m_CCD.FilterIndex = 1
m_CCD.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST

m_CCD.hwndOwner = lhWnd
m_CCD.InitialDir = App.Path & 'DataBase'
m_CCD.Title = 'Âûáåðèòå á

Почему-то так кончено скопировалось???
Сам не пойму, но в принципе все понятно...

А вот как бы его еще отцентрировать на экране, вот это вопрос???
HELP, PLEASE.