![]() |
Как вызвать диалоговое окно открытия файла?
На форме одна кнопка и один picturebox. При нажатии на кнопку должно появляться стандартное диалоговое окно открытия файла. Как это сделать? Я так понимаю что при помощи Api, но у меня не получается. Объявляю Api-функцию так:
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long Option Explicit При компелировании выдаёт ошибку compile error: User-defined type not defined. Что я не так делаю? |
На VBScript — это можно сделать следующим образом
Код:
Set objDialog = CreateObject("UserAccounts.CommonDialog") |
А как этот код видоизменить, чтобы можно было выбирать не один а несколько файлов?
|
caustic, чтобы выбирать — изменить можно, достаточно использовать в свойстве «.Flags» константу OFN_ALLOWMULTISELECT «CommDlg.h» из Platform SDK. Вот только получить выбранные файлы невозможно ;). Попробуйте подобрать себе что-нибудь отсюда: vbscript: вызов интерактивного диалога открытия файла.
|
пасиба, ужо подобрал))
|
Время: 14:06. |
Время: 14:06.
© OSzone.net 2001-