Стандартные диалоговые окна без ActiveX
Все, наверное, знают про стандартные окна открытия и
сохранения файлов. Они есть в каждой программе под Windows. Но как
их показать? Вы либо делали свои похожие формы или просто ставили на
форму ActiveX компонент Common Dialog и вызывали окно всего одной
строчкой (например MyDlg.ShowOpen). Но зато при этом Вам нужно
носить вместе с программой этот .ocx файл, который занимает во много
раз больше места, чем то, в какое увеличился бы Ваш .exe файл, в котором
Вы сами написали на VB свой код вызова этого диалога. Так вот сейчас
я расскажу как этот самый код написть.
Диалоговое окно для открытия и сохранения файлов вызывается
фуекцией GetOpenFileName и GetSaveFileName из comdlg32.dll
Вот синтаксис их объявления:
Declare Function GetOpenFileName Lib _
"comdlg32.dll" Alias "GetOpenFileNameA" _
(OpenFileName As OPENFILENAME) As Boolean
Declare Function GetSaveFileName Lib _
"comdlg32.dll" Alias "GetSaveFileNameA" _
(OpenFileName As OPENFILENAME) As Boolean
Параметер OpenFileName в той и другой функции - это переменная
типа OPENFILENAME, в которой перечислены все свойства диалога. Вот объявление
этого типа:
Type OPENFILENAME
StructSize As Long
Owner As Long
Instance As Long
Filter As String
CustomFilter As Long
MaxCustrFilter As Long
FilterIndex As Long
File As String
MaxFile As Long
FileTitle As String
MaxFileTitle As Long
InitialDir As String
Title As String
Flags As Long
FileOffset As Integer
FileExtension As Integer
DefExt As String
CustrData As Long
Hook As Long
TemplateName As Long
End Type
Теперь надо просто объявить какую-нибудь переменную этого
типа, задать ей свойства и передать её в качестве параметра. Пример программы ниже.
'Переменная с полученным путём до файла
Dim File As String
'Фильтр файлов
Dim CommDlgF As String * 512
'Переменная для передачи API функции
Dim OpenFileName As OPENFILENAME
'Буфер для обработки строки
Dim Buf As Variant
CommDlgF = "Текстовые файлы|*.txt"
'Номер формы
OpenFileName.Owner = Me.hWnd
OpenFileName.Instance = 0
OpenFileName.CustomFilter = 0
OpenFileName.MaxCustrFilter = 0
OpenFileName.Hook = 0
OpenFileName.TemplateName = 0
OpenFileName.CustrData = 0
'Длина файла
OpenFileName.File = String$(512, 0)
OpenFileName.MaxFile = 511
Далее должны присвоить параметр фильтра переменной
OpenFileName, но в отличие от фильтра в ActiveX компоненте,
разделителем между названием типа и расширением файла служит не
символ "|", а нулевой (vbNullChar). Поэтому это вызывает некоторые
сложности при указании фильтра, но для тех, кто привык к "|" пишем
следующий код.
If Len(CommDlgF) > 0 Then
For I = 1 To Len(CommDlgF)
If Mid(CommDlgF, I, 1) = "|" Then
Buf = Buf + vbNullChar
Else
Buf = Buf + Mid(CommDlgF, I, 1)
End If
Next I
CommDlgF = Buf
End If
Здесь всё просто. Если мы указали фильтр, то проходимся
по всей строке и заменяемсимвол "|" на нулевой.
'Присваиваем фильтр
OPENFILENAME.Filter = CommDlgF
'Присваиваем заголовок окна
OPENFILENAME.Title = "Открытие файла"
'Каталог по умолчанию
OPENFILENAME.InitialDir = "c:\"
'Другие свойства диалога
OPENFILENAME.Flags = &H0
'Длина всей переменной
OPENFILENAME.StructSize = Len(OPENFILENAME)
If GetOpenFileName(OpenFileName) = True Then
Buf = InStr(1, OPENFILENAME.File, Chr(0))
MsgBox "Вы выбрали " & Left(OpenFileName.File, Buf - 1)
Else
MsgBox "Ошибка"
End If
Таблица с некоторыми значениями параметра Flags
