ОбщийДиалог.ПоказатьДиалог (CommonDialog.ShowDialog) Метод

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ДиалогВыбораКаталога1 = Ф.ДиалогВыбораКаталога();
ДиалогВыбораКаталога1.КорневойКаталог = Ф.ОсобаяПапка.МойКомпьютер;
ДиалогВыбораКаталога1.Описание = "Это описание";
ДиалогВыбораКаталога1.ПоказатьКнопкуНовогоКаталога = Истина;
Результат = ДиалогВыбораКаталога1.ПоказатьДиалог();
Если Результат = Ф.РезультатДиалога.ОК  Тогда
    Сообщить("ДиалогВыбораКаталога1.ВыбранныйПуть= " + ДиалогВыбораКаталога1.ВыбранныйПуть);
КонецЕсли;

ДиалогОткрытияФайла1 = Ф.ДиалогОткрытияФайла();
ДиалогОткрытияФайла1.НачальныйКаталог = "C:\Program Files (x86)\AutoIt3";
ДиалогОткрытияФайла1.ИмяФайла = "Au3Check.exe";
Если ДиалогОткрытияФайла1.ПоказатьДиалог() = Ф.РезультатДиалога.ОК  Тогда
	Сообщить("Выбран файл: " + ДиалогОткрытияФайла1.ИмяФайла);
КонецЕсли;

ДиалогСохраненияФайла1 = Ф.ДиалогСохраненияФайла();
ДиалогСохраненияФайла1.Заголовок = "Сохранить текст";
ДиалогСохраненияФайла1.Фильтр = "Текст в формате RTF (*.rtf)|*.rtf|Все файлы (*.*)|*.*";
Если ДиалогСохраненияФайла1.ПоказатьДиалог() = Ф.РезультатДиалога.ОК  Тогда
	ЗаписьТекста = Новый ЗаписьТекста;    
	ЗаписьТекста.Открыть(ДиалогСохраненияФайла1.ИмяФайла);    
	Стр = "Текст для сохранения";    
	ЗаписьТекста.Записать(Стр);    
	ЗаписьТекста.Закрыть();    
	Сообщить("Сохранён файл: " + ДиалогСохраненияФайла1.ИмяФайла);
КонецЕсли;
	
Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ДиалогВыбораКаталога1 = Ф.ДиалогВыбораКаталога();
ДиалогВыбораКаталога1.КорневойКаталог = Ф.ОсобаяПапка.МойКомпьютер;
ДиалогВыбораКаталога1.Описание = "Это описание";
ДиалогВыбораКаталога1.ПоказатьКнопкуНовогоКаталога = Истина;
// ДиалогВыбораКаталога1.ПоказатьДиалог();

Сообщить(?("" + ДиалогВыбораКаталога1 = "КлДиалогВыбораКаталога", "", "!!! ") + "ОбщийДиалог.ПоказатьДиалог (CommonDialog.ShowDialog) Метод" + " " + ТекущаяДата());