Диалоговое окно "Выбор папки"

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 24.07.2007 (Вт) 17:54

Блин. Первая 17, вторая 1, если ничего не путаю.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 24.07.2007 (Вт) 18:03

Код: Выделить всё
Dim CSIDL_DRIVES, BIF_RETURNONLYFSDIRS As Integer
a = dhBrowseForFolder(CSIDL_DRIVES, BIF_RETURNONLYFSDIRS, strFolder, 0, "Выберите папку")
MsgBox a


"a" всегда принемает значение нуля......

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 24.07.2007 (Вт) 18:07

Код: Выделить всё
a = dhBrowseForFolder(17&,1&, strFolder, 0, "Выберите папку")
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 24.07.2007 (Вт) 18:17

А кстати.... Зачем для чево всё это нагородили?

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 24.07.2007 (Вт) 19:09

to tyomitch

Мне непонятно что должен делать Ваш код...
Чтото добавилось в самом диалоговом окне, но оно особо на работу неповлияло....

Пока неясно как обойтись без Бат файла, поэтому вопрос о программной задержки на 2-3 сек открыт :roll:

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Re: Диалоговое окно "Выбор папки"

Сообщение tyomitch » 24.07.2007 (Вт) 20:00

Pasha47 писал(а):Можно например сделать так чтоб в поле где долженн быть путь, стало "Мой компьютер" .
Тобишь несуществующий путь.....

Может кто подскажет что по лучше?
Изображение

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 24.07.2007 (Вт) 20:50

Хм.. Чтото меня глючит..... Сейчас прописал всё по новой и увидел правильный и работающий вариант..... До этого была вообще другая картина....

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 24.07.2007 (Вт) 23:24

А как быть с задержкой?

Нашёл вот :
Код: Выделить всё
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 200 'задержка в 200 милисекунд


Но создаётся впечатление что программа зависла.....
Может у ково есть предложение поинтересней?

sergey-911
Постоялец
Постоялец
 
Сообщения: 545
Зарегистрирован: 17.01.2005 (Пн) 19:10

Сообщение sergey-911 » 25.07.2007 (Ср) 0:43

С уважением, Сергей.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 25.07.2007 (Ср) 15:41

Спасибо.... Сейчас немного перепишу код.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 25.07.2007 (Ср) 20:30

http://bbs.vbstreets.ru/viewtopic.php?t ... owsefolder

Модуль от товарища alibek'a
Что там отвечает за путь к указанной папке и как правильнно вызвать нужную функцию?

sergey-911
Постоялец
Постоялец
 
Сообщения: 545
Зарегистрирован: 17.01.2005 (Пн) 19:10

Сообщение sergey-911 » 25.07.2007 (Ср) 22:41

Pasha47, тебе и так все на блюдечке преподнесли... Тот же модуль... :wink:
sergey-911 писал(а):Всем, кому потребуется исходник диалога выбора папки - он здесь!
Огромное спасибо alibek. :D
Вложения
Folder.rar
Диалог выбора папки
(2.5 Кб) Скачиваний: 62
С уважением, Сергей.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 25.07.2007 (Ср) 23:20

Спасибо. Незнаю что за фигня....

Я проделывал в течении 2 часов различные варианты... И тот что в примере, и более сложные.. Казалось что я полный идиот..

Скопировал код модуля по новой.... заработало :x :shock:
Незнаю как можно было криво скопировать в первый раз.

udpn
Обычный пользователь
Обычный пользователь
 
Сообщения: 51
Зарегистрирован: 24.07.2007 (Вт) 11:43

Сообщение udpn » 26.07.2007 (Чт) 10:04

Код великоват, но можешь выудить только необходимое
[Простыня неформатированного кода на 10 страниц удалена --tyomitch]
Не ищите смысла там, где его не ложили (c) проф. В.В. Горяйнов

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 26.07.2007 (Чт) 13:28

С выбором файла и папкой для сохранения разобрались. :)

Перекодировка WIN / DOS

Программу я написал... Используя поиск конечно.
(Приложил, кому будет интересно)

Так вот наблюдения:
При ручном редактировании батника идёт сообщение что имеется текст в Юникоде и говорят или потеряете данные или сохраняйте в Юникоде.
Как я понял при сохранении в юникоде неработает батник вообще.
А при выборе первого происходят изменения в тексте, что естественно потом неработает.

Может поэтому у меня до этого были проблеммы с программным редактированием батника....

Как тут быть?

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 26.07.2007 (Чт) 13:29

А вот и исходник
Вложения
CodText.rar
(5.43 Кб) Скачиваний: 69

sergey-911
Постоялец
Постоялец
 
Сообщения: 545
Зарегистрирован: 17.01.2005 (Пн) 19:10

Сообщение sergey-911 » 26.07.2007 (Чт) 17:51

Pasha47 писал(а):Немного расскажу о программе:
Есть программа DjVuDecode, которая работает под ДОС.
Она занимается тем, что берёт книгу в формате .djvu и преобразует страницы в картинки (например .bmp). Тобишь с ней надо работать в командной строке.... Но дело в том что не все разберутся с командами и 90% пользователей просто небудут её пользовать. Незнаю кто сделал эту программу но в добавок к ДОСу ещё можно прибавить, то, что в программе нельзя указать диапазон страниц для преобразования.
Для этих целей один из людей приспособил .bat фаил...... А я хочу сделать редактор этово файла, дабы облегчить жизнь пользователям :)


А не проще написать прогу, которая будет не конфигурить чужой батник, а сама работать с данной прогой? Или пойти ещё дальше, написать самому прогу, нужную тебе. А если чуть поискать, то наверника есть куча аналогичных прог, уже написанных и корректно работающих под винду, еще более доработанных. :D
С уважением, Сергей.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 26.07.2007 (Чт) 18:46

А не проще написать прогу, которая будет не конфигурить чужой батник, а сама работать с данной прогой?

Вообщемто возможно.... Батник это самое простое что можно было придумать..

Или пойти ещё дальше, написать самому прогу, нужную тебе.

лол. Я и так вроде с простой прогой разобраться немогу.

А если чуть поискать, то наверника есть куча аналогичных прог, уже написанных и корректно работающих под винду, еще более доработанных.

Неужели я это читаю на форуме программистов? :o
Смысл программирования вижу иначе..... В данный момент - опыт.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 30.07.2007 (Пн) 22:55

Чтото невыходит никак русские слова там запустить... Видать неподдерживается....

А вот вопросик....
Есть две формы: Основная и вторичная.
С основной формы нужно загрузить вторичную. Вторичная должна сделать некоторые дела и закрыть сама себя...
Как правильнно её запустить (вторичную) и как правильнно её закрыть?

Я пользовал FRMvt.enabled , но кажется что при втором запуске вторичной формы невыполняется Form Load. :? Значит чтото нето заюзал ....

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 31.07.2007 (Вт) 7:10

В батниках используется OEM-кодировка.
Конвертируй кириллицу в нее.
Lasciate ogni speranza, voi ch'entrate.

Pasha47
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 22.07.2007 (Вс) 18:29

Сообщение Pasha47 » 01.08.2007 (Ср) 14:27

А что из этово ОЕМ-кодировка?
Win = 1251
DOS = 866
Koi = 20866
Iso = 28595
UTF8 = 65001

А что на счёт
Есть две формы: Основная и вторичная.
С основной формы нужно загрузить вторичную. Вторичная должна сделать некоторые дела и закрыть сама себя...
Как правильнно её запустить (вторичную) и как правильнно её закрыть?
:?:

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 01.08.2007 (Ср) 14:28

1) DOS = 866
2) Load / Show / Hide / Unload
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Пред.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 37

    TopList