Программирование
Веб программирование

Компоненты VB. Microsoft Common Dialog Control 6.0

 
 

С помощью этого компонента можно вызывать окно открытия файлов, сохранения, выбора цвета... Для начала подключи его(если забыл то посмотри в шаге 34). На форму кинь текстовое поле, 3 кнопки, и CommonDialog(назови его CD1). Начнем мы с открытия файлов.

Открытие файлов:

 Сделай свойство Caption у Первой кнопки = "Открыть". Вот сейчас мы программу сделаем, у которой выбранный файл в Окне Открытия файлов записывался в текстовое поле. Код:

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
Text1.Text = CD1.FileName ' Свойство FileName нужно для того чтоб узнать какой файл был выбран
End Sub

Свойства:

  1. InitDir - это свойство определяет папку, которая будет при открытии Окна выбора файлов первой. Короче сделай свойство InitDir = A:, и тогда при запуске окна выбора файлов первый будет диск A:(можно написать c:games - тогда первый будет папка Games) 
  2. DialogTitle - это свойство определяет заголовок окна(например у окна выбора файлов заголовок по умолчанию - "Открыть") 
  3. FilterName это свойство указывает начальные значения текстового поля(Имя Файла). Например если туды вписать Базик, то при запуске окна в поле Имя файла будет вписанно Базик 
  4. Filter - Это что - то типа фильтра, т.е. здесь можно указать чтоб можно было выбирать только текстовые файлы, или exeшники... Например можно написать так:
Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
End Sub

Private Sub Form_Load()
CD1.Filter = "Ворд|*.doc|Текстовые|*.txt|Приложения|*.exe|Все файла|*.*|" ' Даем право выбора юзеру
End Sub

Есть вопросы? Спроси на нашем форуме!!
Андрей [11.04.2011 19:09]

не FilterName, а FileName (по крайней мере в вб 6.0)

Дэн [26.07.2011 01:22]

В текстовое поле записывается не содержимое тхт файла а директория к нему! сами проверьте, админ исправь пжалста, хочу узнать как открывать файлы))

Георгий [12.01.2012 21:02]

Люди, а как по-простому вызвать не выбор файла, а выбор папки? Есть подобные методы?

алексей [12.01.2012 21:10]

это вообще не возможно!!
нужно сделать папку в zip или rar формат они будут считаться как файлы

Георгий [31.01.2012 09:20]

Да ну? Делают же люди как-то... Найти бы, как... Помогите кто знает, я весь гугл переворошил - не нашел

Razor64 [17.05.2012 17:48]

А может кто-нибудь написать урок про компоненты в vb 6.0? Хотябы кратко - но про все имеющиеся в составе???

M161350 [08.07.2013 14:39]

Подскажите пожалуйста: кинул на форму Picture1 и CommonDialog1 а также Command1. Я хочю чтоб было примерно так:
нашимаешь на кнопку появляется SwowOpen, дальше выбираешь файл, ну например bmp и этот файл должен появится в Picture1. Как сделать
Click Command1
ComonnDialog1.ShowOpen
Это я знаю, а как файл вставить в Picture нет. Что делать?

Coolhacker770 [08.07.2013 15:57]

M161,
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

M161350 [08.07.2013 17:56]

Спаааасииииибоооооо! Рааааабоооотааааееееет!

Ivan40 [09.07.2013 21:24]

С отображением пути выбранного файла в текстовом окне с помощью CommonDialog1 понятно. А как сделать так, чтобы не только отобразился в текстовом окне путь к указанному файлу, но чтобы он действительно по-настоящему открылся, как если бы я без VB6.0 кликнул по файлу двойным щелчком ЛКМ, как это обычно делается в Windows?

alex13sh300 [09.07.2013 21:34]

Shell path

Ivan40 [09.07.2013 21:53]

Что такое Shell Path? Это фрагмент кода что-ли?

alex13sh300 [09.07.2013 21:58]

path строковая перемен хранящая путь

alex13sh300 [09.07.2013 22:05]

shell функция для таких операций как запуск проги или открытие файла при помощи той проги которой она может открться
например тхт откроеться блокнотом

Ivan40 [09.07.2013 23:41]

И мне надо написать код:

Private Sub Command1_Click()
CommonDialog1.ShowOpen=CommonDialog1.Shell
End Sub

Правильно?

Coolhacker770 [10.07.2013 06:44]

Text1.Text = CommonDialog1.FileName
Shell "notepad " & CommonDialog1.FileName, vbNormalFocus

alex13sh300 [10.07.2013 12:41]

Shell "cmd /X /C start " & (Путь к файлу)- "C:\1.txt"

alex13sh300 [10.07.2013 13:10]

http://vbbook.ru/visual-basic/vb-rabota-s-faiylami-zapysk-faiylov/

Ivan40 [10.07.2013 14:35]

Coolhacker, спасибо! Работает! :) Этот код, как я увидел, направлена на создание нового txt-документа. Только вот exeшный файл на эту программу выдаёт ту же ошибку, что я описал в уроке 34. Эта ошибка связана с вставлением на форму компонента Microsoft Common Dialog Control 6.0. Что-то там не клеится... А в остальном работает. А вариант alex13sh я потом попробую. Только такой вопрос: (Путь к файлу) - это и есть "C:1.txt", как вариант или перед этим фрагментом кода нужно что-то ещё писать?

alex13sh300 [10.07.2013 14:51]

Пример, открывает необязательно Блакнотом , а тем что у тебя вреестре прописанно
у некоторых пользователей стандартная программа для открытие ТХТ может быть ворд или что то другое, такой код открывает файл взависимости от расширение и от того что в реестре прописанно на открытие этого расширение


Shell "cmd /X /C start " & "C:1.txt"

Coolhacker770 [10.07.2013 17:38]

Component 'ComDlg32.OCX' or one of its dependencies not correctly registered: a file is a missing or invalid

обращаем внимание на причину:
a file is a missing or invalid
и делаем выводы

Ivan40 [10.07.2013 18:48]

То есть файл утерян или повреждён? Я правильно перевёл?

Coolhacker770 [10.07.2013 20:00]

угу

Ivan40 [10.07.2013 21:21]

Так что с ним делать? Вот не принимает exeшный файл Microsoft Common Dialog Control 6.0 и всё. Всё работает исправно, а вот exeшный файл не запускается. :(

Coolhacker770 [11.07.2013 05:34]

вот так даже и не знаю чего предложить. у вас ос-то какая?

alex13sh300 [11.07.2013 10:44]

запуск ЕХЕ
Shell "c:\neme.exe"
просто пиши путь

EverybodyLies280 [11.07.2013 13:15]

парад советов

EverybodyLies280 [11.07.2013 13:22]

либо таскайте с собой COMDLG32.ocx, либо запускайте через shell [о чем выше написали неоднократно]

Ivan40 [12.07.2013 12:49]

У меня стандартная Семёрка.

Coolhacker770 [12.07.2013 12:54]

у меня тоже, и, как ни странно, common dialog работает. вам там EverybodyLies написал. сам файл можно наверняка найти в интернете.

Ivan40 [14.07.2013 21:15]

Ладно, я попробую его вариант...

Ivan40 [23.07.2013 19:16]

Что мне делать? У меня панель инструментов Toolbars развернулась во весь экран в формате General и всё! Я на что-то нажал и у меня она стала такой! Как мне обратно сделать так, чтобы Toolbars было сбоку, как раньше, а не во весь экран?

alex13sh300 [23.07.2013 19:30]

за шапку перенести. там автоподстрой идёт , при попытке переместить

Ivan40 [23.07.2013 19:33]

Всё! Я загрузил comdlg32.ocx в Windows/system32, но из приложения в VB Components компьютер его не видит. Что с этим делать?

Ivan40 [23.07.2013 19:34]

Всё, инструменты вернул назад. А вот что делать с comdlg32.ocx дальше?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.