| |
автор: Alex (30.11.-1 в 00:00) |
|
| | Прошу прощения за ламерство!
Подскажите пожалуйста как привязать "Класс для вызова диалога открытия файла" к кнопке в форме? | |
| |
| |
| |
автор: osmor (30.11.-1 в 00:00) |
|
| | весь нижеприведенный код вставить в обработчик события кнопки Dim odialog As New clsOpenDialog
Dim strSelFile As String
With odialog
.StartFolder = "c:/windows" стартовая папка. Можно не задавать. По умолчанию c:/
.strTitle = "Укажите файл для проверки" заголовок окна. Можно не задавать. По умолчанию "Открытие файла"
.strFilter = "Базы Access (*.MDB);*.mdb;Все файлы (*.*);*.*" строка для фильтра. Можно не задавать. По умолчанию "ВСЕ файлы"
If .OpenDialogFileName(Me.hWnd) = "" Then нажата кнопка "отмена"
MsgBox "ничего не выбрано"
Else выбран файл выводим его атрибуты
MsgBox "Полное имя - " & .strFullName & vbCrLf & _
"Путь к файлу - " & .strPath & vbCrLf & _
"Имя файла - " & .strFileName & vbCrLf & _
"Расширение - " & .strFileExt
End If
End With | |
| |
| |
| |
автор: osmor (30.11.-1 в 00:00) |
|
| | ответил... и только потом подумал... вопрос вероятно в другом по порядку.
1. создать модуль класса.
- перейти на закладку модули
- меню "вставка"-"модуль класса"
2. весь код из примера до строк
[blue]пример вызова[/blue]
[blue]Private Sub cmdOpenDialog_Click()[/blue]
вставить с созданный модуль класса
3. сохранить модуль класса под именем [blue]clsOpenDialog[/blue]
4. в форме создать кнопку
в обработчик события "нажатие кнопки" (Click) вставить код из предыдущего топика.
Вот так наверное ... | |
| |
| |
| |
автор: zes_hip (30.11.-1 в 00:00) |
|
| | Re: ответил... и только потом подумал... вопрос вероятно в другом ) | |
| |
| |
