FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9114
Вход
Анимированная иконка

Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы. Применение этого класса очень удобно, если вы хотите показать, что ваша программа не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка анимируется, значит мы еще живы


 
Прислал: Неизвестно   Категория: Интерфейс


Анимированная иконка

Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы. Применение этого класса очень удобно, если вы хотите показать, что ваша программа не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка анимируется, значит мы еще живы.

Скачайте класс ...

Теперь выберите место в программе перед каким-нибудь больним вычислением или поиском и вставьте нижеследующий код ...

&& Классу необходимо передать массив, содержащий названия файлов-иконок:

LOCAL laIconList
DIMENSION laIconList[4]
laIconList[1]="icon01.ico"
laIconList[2]="icon02.ico"
laIconList[3]="icon03.ico"
laIconList[4]="icon04.ico"

&& Теперь нужно программа создать объект таймера:

SET CLASSLIB TO animate
THISFORM.ADDOBJECT("tmrIcon","animicon",@laIconList)

&& И наконец, вам нужно активизировать таймер путем установки интервала:

THISFORM.tmrIcon.Interval=500 && пол-секунды

&& Вот и все :)

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.823) Вложение [4.4]kb
Дополнения пользователей
Анимированная иконка
[+][?]
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика