Диалоговые окна visual basic

Диалоговые окна Open и save используются в программах, которые производят работу с файлами: их удаление, перемещение, сохранение, открытие и т.д.

Диалоговое окно Open очень сильно похоже на окно Save, т.к. они выполняют идентичные функции. Оба эти окна отличаются только заголовками. Имеют одинаковые поля: Список папок, список файлов, имя файла, типы файлов (фильтр), а также кнопки: ОК и Отмена.

Диалоговые окна являются стандартными окнами Windows и поэтому их можно вызвать при помощи элемента управления Common Dialog, который входит в комплект стандартной поставки Windows.

Итак, добавьте описанный выше компонент на форму. А теперь для вызова окна открытия файла введите такой вот код, например для кнопки Command1:

Private Sub Command1_Click()
Dim sFileName
CommonDialog1.ShowOpen
CommonDialog1.FileName = sFileName
End Sub

Этот программный код позволяет сохранить имя файла (вместе с путем места его нахождения) в переменную sFileName. Замечу, что при этом файл открываться не будет. Просто вы узнаете какой бы файл хотелось открыть пользователю, а для того чтобы этот файл все таки открыть нужно добавлять другой программный код. Например, исполняемые файлы можно открыть с помощью оператора Shell, а текстовый файл при помощи Open. Но это уже не касается темы данной статьи.

Для отображения окна сохранения файла вам пригодится следующий код:

Private Sub Command1_Click()
Dim sFileName
CommonDialog1.ShowSave
CommonDialog1.FileName = sFileName
End Sub

Данный пример полностью аналогичен предыдущему.