Неплохой ProgressBar - налетайте
Я себе воткнул везде в Excel VBA
у меня есть задачи которые выполняются более 30 мин :)
это импорт и експорт данных из DBF и в DBF и в отчетные документы Excel
и бухгалтера тащатся от вида этого градусника.

Jojo®

А вот еще будильник :)

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Public Sub Sound()
Dim retval As Long
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
Sleep (100)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
Sleep (100)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
End Sub

Jojo®

Млин покороче ...
Public Sub Sound()
Dim retval As Long ' возвращаемое значение

For i = 1 To 3
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
Sleep (100)
Next i

End Sub

Jojo®

Во крутая буржуйская ссылка
обязательно сходите
много интересных весчей

http://www.cpearson.com/

Jojo®

http://www.cpearson.com/excel/topic.htm

Jojo®

Млин ну понаписали тут без меня ...:)
А Stepler млин ... у тя чё китайская версия WIndows, ладна еще проблемы с кодировкой ... в придачу твои zip коцанные ...

Ну все равно спасибо ублажил ..., сходи вот сюда и почитай -весчи
http://www.bulgakov.org/joke.html

Jojo®

Stepler а может тебе пора отформатить винт ? Помочь :) ?

Jojo®

Одын пашел ...:)

Jojo®

спам валит на мой ящик
спамер

Jojo®

Сегодня, в пятый раз я получил от Вас письмо с
предложением посматреть какой то снег.
Денег у меня нет, но в благодарность
за Ваше внимание я решил выслать небольшую посылку.
Смотрите прикрепленный файл Бомба.zip (10 MB).
Извините меня, если я Вас чем-нибудь обидел, ведь я не
настоящий спамер, я еще только учусь. Но два вопроса
не дают мне покоя:
1. Возможно файл, который я Вам посылаю слишком мал
по размерам. В следующий раз я вам вышлю файл Мусор.zip (30
МБ). В нем больше информации. Покопайтесь там, может быть Вам
что-нибудь пригодится.
2. С другой стороны, 5 копий этого письма, которые я отправляю
сегодня наверное недостаточны для прочтения. Я постараюсь
учесть это, и завтра Вам вышлю 20 дополнительных копий.
Просто сейчас я очень сильно занят, т.к. открываю новые
почтовые ящики для того, чтобы нельзя было блокировать почту.
После этого никто не сможет мешать мне переписываться с
Вами и посылать свежие и большие сообщения.
С Большим уважением,

Jojo®

Прошу прощения :)
Да пускай называется так как есть ...
ProgressBar мы зовем градусником ...
или
можно так:
ProgressBarы на все случаи жизни ...

Jojo®