| Вопрос: помогите с Common Dialog | Добавлено: 16.01.07 16:38 |
Автор вопроса:  villain
|
| как с помощью CD открыть файл, например,какую-нить форму VB |
| Ответы | Всего ответов: 32 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 16.01.07 17:29 |
|
Форма в твоей запущенной прграмме не есть, файл.
Уточни что ты хочешь. Может этого Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Call ShellExecute(0, "Open", "C:\моя форма.exe", "", "c:\", 1)
|
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 16.01.07 17:33 |
| А CD файлы открывает или сохраняет. | ||
|
Номер ответа: 3 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #3 | Добавлено: 16.01.07 19:20 |
| Точнее загружает их в программу. | ||
|
Номер ответа: 4 Автор ответа: villain Вопросов: 1 Ответов: 8 |
Профиль | | #4 | Добавлено: 16.01.07 20:26 |
| а поточне можно,я "кипятильник",плиз | ||
|
Номер ответа: 5 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #5 | Добавлено: 16.01.07 21:19 |
|
Этот компонент позволяет нам использовать отдельно стандартные окна Windows
- открытия файлов (Open) с помощью метода ShowOpen - сохранения файлов (Save As) c помощью метода ShowSave - менять установки принтера (Printer) c помощью метода ShowPrinter (.Action=5) - выбор шрифтов и стилей (Font) c помощью метода ShowFont (.Action=4) - выбор цвета из палитры (Color) c помощью метода ShowColor Но если он открывает файл например .txt, то тольковнутри твоей программы например в TextBox-е а не запустит тебе стандартный блокнот. O'key |
||
|
Номер ответа: 6 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #6 | Добавлено: 16.01.07 21:23 |
|
Вот тебе пример
http://vbzero.narod.ru/downloads/standwin.zip |
||
|
Номер ответа: 7 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #7 | Добавлено: 16.01.07 21:50 |
|
А если быть ещё более точным ,то CD вообще ничего не открывает и не сохраняет.Используется как средство получения выбранного файла для сохранения или для открытия...,возвращает выбранный цвет... и т.д...
С ув. Alex. |
||
|
Номер ответа: 8 Автор ответа:  villainВопросов: 1 Ответов: 8 |
Профиль | | #8 | Добавлено: 16.01.07 21:52 |
|
мне надо с пом.CD открыть файл VB "*.exe",на сайте пример нашел,че надо дописать,а то он тока выводит сообщение?
Private Sub ShowOpen() On Error GoTo ErrorHandler CommonDialog1.CancelError = True CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|" CommonDialog1.FilterIndex = 3 CommonDialog1.InitDir = "  :\DOCUMENTS"
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen '*********** 'Здесь распологается Ваш код (не забудьте, что путь к выбранному файлу Вы считываете из свойства FileName) MsgBox CommonDialog1.FileName '********** Exit Sub ErrorHandler: If Err.Number = 32755 Then Exit Sub End Sub Private Sub Command1_Click() Call ShowOpen End Sub |
||
|
Номер ответа: 9 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #9 | Добавлено: 16.01.07 21:52 |
|
Поправлюсь...получения имени файла...,а дальнейшее полностью на тебе.
С ув. Alex. |
||
|
Номер ответа: 10 Автор ответа: villainВопросов: 1 Ответов: 8 |
Профиль | | #10 | Добавлено: 16.01.07 21:59 |
| а как выбрать допустим файл VB *.exe и чтоб он открвлся,помогите кто-нить,плиз | ||
|
Номер ответа: 11 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #11 | Добавлено: 16.01.07 22:04 |
|
Через CD вызываешь окно открыть файл. Сохраняешь путь к файлу, например в переменную А, потом как показывал в первом посте Боцман.
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Call ShellExecute(0, "Open", [B]A[/B], "", "c:\", 1)
|
||
|
Номер ответа: 12 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #12 | Добавлено: 16.01.07 22:04 |
|
Угу,в свойстве CommonDialog.FileName ты получаешь имя файла для открытия+путь.
А затем работаешь с файлом сам. NFile = FreeFile Open CommonDialog.FileName For Append Shared As #NFile Print #NFile, Format$(Date, "dd.mm.yyyy"  Close #NFile
Вот простенький пример... Файл открыли,дописали в его конец дату и закрыли... Следуя твоему примеру по нажатию 'Отмены' возникает ошибка и попадаешь на ErrorHandler: С ув.Alex. |
||
|
Номер ответа: 13 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #13 | Добавлено: 16.01.07 22:04 |
|
Через CD вызываешь окно открыть файл. Сохраняешь путь к файлу, например в переменную А, потом как показывал в первом посте Боцман.
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Call ShellExecute(0, "Open", [B]A[/B], "", "c:\", 1)
|
||
|
Номер ответа: 14 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #14 | Добавлено: 16.01.07 22:05 |
Блин, опоздал. 
|
||
|
Номер ответа: 15 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #15 | Добавлено: 16.01.07 22:10 |
|
Для начала настрой фильтр только на *.exe.
Всё-таки удобней когда отображаются файлы нужного типа. CommonDialog1.Filter = "File exe (*.exe )|*.exe А там следуй как выше по тексту ShellExecute...или оператором VB Shell
С ув. Alex |
||