| Вопрос: Помогите! | Добавлено: 08.04.06 21:12 |
Автор вопроса:  Ven0m
|
| Мне очень нужно написать програм, которая б откривала папку з *.rtf файлами( там они пронумерованые), и я б мог между ними переключатса вперед и назад (например как в XnView или ACDsee з графическими файлами. Как ето сделать, помогите :( |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  trialist Вопросов: 14 Ответов: 76 |
Профиль | | #1 | Добавлено: 08.04.06 21:26 |
|
ставиш на форму файллистбокс с визибл=фолс
в его свойчтво path записываеш путь к твоей папке в форм_кейпресс (с анализом, чтобы работало на нажатие кнопки вниз или PageDown): files.ListIndex = Val(files.Tag) + 1 files.Tag = files.ListIndex loadrtf files.Text |
||
|
Номер ответа: 2 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #2 | Добавлено: 08.04.06 21:50 |
|
ставиш на форму файллистбокс с визибл=фолс
1. надо проверять на кол-во файлов. (.listcount)
в его свойчтво path записываеш путь к твоей папке в форм_кейпресс (с анализом, чтобы работало на нажатие кнопки вниз или PageDown): files.ListIndex = Val(files.Tag) + 1 files.Tag = files.ListIndex loadrtf files.Text 2. filelistbox - это фигня, самый нормальный способ - api (FindFirstFile, FindNextFile...). 3. Если уж решено юзать filelistbox, то нужно менять .pattern ( = "*.rtf"  .
P.S. "ставиш", "записываеш"... Я "звиняюсь" реформа русского языка была? 
|
||
|
Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 09.04.06 07:16 |
| Человек из Украины, чувствуется. | ||
|
Номер ответа: 4 Автор ответа:  trialistВопросов: 14 Ответов: 76 |
Профиль | | #4 | Добавлено: 09.04.06 12:39 |
|
Человек из Украины, чувствуется.
я не из Украины, просто "ь" не всегда на клаве нажимается, иногда долбаю пока не введет, а иногда забываю. .pattern ( = "*.rtf"
. Ну да, про это забыл |
||
|
Номер ответа: 5 Автор ответа: Ven0m Вопросов: 3 Ответов: 2 |
Профиль | | #5 | Добавлено: 09.04.06 16:11 |
| Напишыте мне пожалуста полный код, я не очень знаю Basic, што такое API u што такое .listcount???? | ||
|
Номер ответа: 6 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #6 | Добавлено: 09.04.06 16:35 |
|
што такое .listcount FileListBox1.ListCount
|
||
|
Номер ответа: 7 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #7 | Добавлено: 09.04.06 17:55 |
|
А кстати, у меня VB нелицензия и с глюками,
элемент rtf при попытке установки на форму говорит - "У Вас нет прав для использования...." Может добрый человек какой вышлет мне этот элемент на e-mail: s-7-s@yandex.ru из своей систем32... |
||
|
Номер ответа: 8 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #8 | Добавлено: 09.04.06 20:45 |
|
Может добрый человек какой вышлет мне этот элемент на e-mail: s-7-s@yandex.ru из своей систем32... Хм...
што такое API Это будет трудно объяснить. Скорее всего, тебе будет легче с FileListBox'ом.
|
||
Страница: 1 |