| Вопрос: ProgressBar in Excel | Добавлено: 28.09.04 17:36 |
Автор вопроса:  night-roll
|
|
видел чудную фишку в Экселе, при сохранении файла в статус баре появляется прогресс выполнения сохранения.
можно ли этот прогресс выудить и использовать в своих целях или хотя бы показать его(здесь же в Экселе)? и ещё 1 вопросик - пишу текст в статус бар(любой), а как потом вернуть прежний (самому написать?) и почему-то этот текст потом не изменяется (даже если в стандартном случае должен)?: _______________________________________ спасибо за внимание! |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Stas2k Вопросов: 6 Ответов: 16 |
Профиль | | #1 | Добавлено: 30.09.04 10:36 |
| Про прогресс-бар ничего не скажу, а вот чтобы потом текст менялся просто напиши Applicaion.StatusBar="". | ||
|
Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 30.09.04 13:14 |
| Не, а ну правда, интересно про прогресс-бар! Вот бы кто нашел решение, ведь можно показывать, как идет выполнение макроса, который долго ворочается. Кто найдет способ - обязательно пишите!!! | ||
|
Номер ответа: 3 Автор ответа: Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #3 | Добавлено: 03.10.04 00:06 |
|
Стандартными средствами прогресс-бар в статус-баре не сделаешь, только API-функциями.
Я делаю строку из Chr(152) обычным методом: Application.StatusBar = strN |
||
|
Номер ответа: 4 Автор ответа: ДмитВопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #4 | Добавлено: 03.10.04 17:31 |
|
Есть такая идея: На форме помещаешь контрол (в частности прогресс-бар), двигаещь форму так, что-бы
нужный элемент находился на месте (в частности на статус-баре) и обрезаешь лишнюю форму с помощью функций: FindWindow, CreateRectRgn, SetWindowRgn. Вобщем пример -dimit.pochta.ru/nachinka/progressbarexcel.zip |
||
|
Номер ответа: 5 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #5 | Добавлено: 06.10.04 01:45 |
|
'да, чё-то Chr(152) не слишком красиво!
я считаю, если Excel пользуется такой фишкой, то она лежит в готовом коде, а если существует готовый код, то им можно воспользоваться - другое дело, где этот код лежит 
|
||
|
Номер ответа: 6 Автор ответа:  Anry DeriabineВопросов: 14 Ответов: 29 |
Профиль | | #6 | Добавлено: 07.10.04 22:35 |
|
А как вообще привязывается Progress Bar?
Ну хоть к форме какой-нибудь? Я что-то не понял, как его использовать. По справке ничего не нашел, в своих книгах то же, а спросить не у кого. Если ломает писать примерчик, дайте пожалуйста ссылочку, где можно почитать. Спасибо. |
||
|
Номер ответа: 7 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #7 | Добавлено: 08.10.04 03:44 |
|
Special for you (Anry)
http://www.vbnet.ru/faq/showtopic.asp?id=344 |
||
|
Номер ответа: 8 Автор ответа: Anry DeriabineВопросов: 14 Ответов: 29 |
Профиль | | #8 | Добавлено: 08.10.04 13:16 |
| Special Thanks for You (ActiveX) | ||
|
Номер ответа: 9 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #9 | Добавлено: 09.10.04 10:07 |
|
ай да Дмит, просто чудо-человек!
чудный примерчик progressbarexcel.zip ОГРОМНОЕ СПАСИБО |
||
|
Номер ответа: 10 Автор ответа: DimakartВопросов: 2 Ответов: 12 |
Профиль | | #10 | Добавлено: 17.10.04 21:59 |
А вот так не нравиться ???
 im циклов As Integer
For циклов = 0 To 300 If Right(CStr(циклов), 1) = "0" Then 'изменение через 10 циклов Строка = Строка & Chr(22) End If Application.StatusBar = Строка Цикл Next |
||
|
Номер ответа: 11 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #11 | Добавлено: 18.10.04 00:23 |
|
Дмит, это просто СУПЕР! МАЛАДЭЦ!!! Я тя уважаю Мне всегда недоставало в VBA hWnd в UserForm, а оказывается всё ТАК ПРОСТО, FindWindow
А с CreateRectRgn, SetWindowRgn можно неровные нестандартные юзер-формочки повырезать
|
||
Страница: 1 |