Индикатор выполнения программы

[OMEGUS]

Народ такая идея: как пользователь показать что программа работает а не висит если идет очень длинная и сложная обработка данных ?

ProgressBar конечно выход но и его не хватает что бы показать динамику работы программы...

Мне бы просто индикатор какой-нибудь что бы два цвета менялись.

Есть такие элементы в VB6 или еще что то ?

Спасибо...

[Ramzes]

Чтобы цвета менялись...хм

да действительно трудная задача

PictureBox
Image
TextBox
Label
Form
...
Свойство BackColor

[Ramzes]

OMEGUS И чего ты такго делаешь что тебе не хватает ProgressBar'a ты значение max поменя

Или я чего то не понял

[OMEGUS]

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

Мне бы просто какую-нибудь функцию которая сообщала бы что программа выполняется а не висит...

[Ramzes]

Можешь окошко выводить с текстом "Подождите идет выполнение действий"

[OMEGUS]

Не ну это здорово а если программа зависнет в этот момент и пользователь так и будет ждать .... ждать... ждать.. ???

Что бы как то происходил анализ таск бара ... или еще как-то ....

[GSerg]

Начиная с XP у прогрессбара есть свойство MARQUE. Он при этом бегает просто от левой границы к правой... Можно лицерзеть при загрузке XP... Имитируется весьма легко движущимся шейпом

[Ramzes]

Млин, совсем не хочешь думать!!! Да есть вагон и маленькая тележка способов как известить юзера о том что программа работает

[OMEGUS]

А что такое шейп и как его двигать ?

[vvs_adm]

Да есть вагон и маленькая тележка способов как известить юзера о том что программа работает

Блин, сообщи пару способов мелкосовтовцам, плиз, а то эти гады при запуске Win2000 Pro совсем об этом не побеспокоились

[Шурик]

Да есть вагон и маленькая тележка способов как известить юзера о том что программа работает

Блин, сообщи пару способов мелкосовтовцам, плиз, а то эти гады при запуске Win2000 Pro совсем об этом не побеспокоились

Хе... как говорят умные люди, а не всякие там Шурики
"RTFM, батенька, RTFM"...
помоему правильно накалякал...

[Ariman]

Наверное, можно вывести показ прогрессбара в отдельный поток...
По идее, тогда на него не будет влиять то, что происходит в основном потоке... В ВБ это реально? В с++ - там точно реально

[STanli]

Можешь сделать висящую в трее иконку, изменяющуюся при действиях программы (там где их много), вроде и видно, и понятно.

[OMEGUS]

А как сделать висящую в трее иконку.... ?

[Шурик]

Код: Выделить всё


'КОД МОДУЛЯ

Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long
Dim nidTemp As NOTIFYICONDATA
nidTemp.cbSize = Len(nidTemp)
nidTemp.hWnd = hWnd
nidTemp.uID = 0&
nidTemp.uFlags = NIF_ICON Or NIF_TIP
nidTemp.uCallbackMessage = 0&
nidTemp.hIcon = Icon
nidTemp.szTip = tip & Chr$(0)
SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp)
End Function

'КОД ФОРМЫ

'Затем уже в событиях формы вы можете пользоваться вышеприведеными API-функциями.
'Запустите программу. Иконка появится в трее. Наведите на нее курсор, и вы увидите
'надпись "Проверка", теперь кликните в любом месте формы и снова наведите на иконку...

Private Sub Form_Click()
SetTrayIcon NIM_MODIFY, Me.hWnd, Me.Icon, "Работает? Работает!"
End Sub
Private Sub Form_Load()
SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Проверка"
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetTrayIcon NIM_DELETE, Me.hWnd, 0&, ""
End Sub


[shest]

Меня тоже эта тема интересует, только хм.. с другой стороны. Как внимание пользователя отвлечь-понятно, хоть метку на метку разных цветов наложить и width менять, а как отследить событие сканирования одной записи в бд при поиске? Ведь, допустим, при sql запросе Jet перебирает все записи указанной таблицы?
Ответьте, если не трудно.
Спасибо.

[ism]

Сделай анимацию как в DrWeb или при сканировании диска в 98. Так юзер будет знать, что ты не висишь

[shest]

Как отвлечь пользователя, это не вопрос, но хотелось бы настоящий индикатор сделать

[Шурик]

CAPTION у формы сделай бегущей строкой...

[shest]

Под словом "настоящий" я имею ввиду, чтобы отслеживал сканирование записей при поиске

[Q2W]

Помоему всё просто: берёшь делаешь следующий контрол:
На контроле ставишь шейп. При изменении ширины контрола ширина шейпа изменяется соответственно.
Ставишь там же таймер с интервалом ~100
При каждом срабатывании таймера передвигаешь шейп на 1 пиксель вправо. Если при этом свойство x1 (так по-моему) шейпа = ширине контрола, присваиваешь ему значение ширины шейпа с минусом.

В результате имеем:
До срабатывания таймера: видим контрол и шейп в первоначальной позиции.
После срабатывания таймера: шейп сдвинулся вправо на 1.
посте того, как шейп полностью ушёл за правый край контрола, он начинает вылазить из-за левого края.

Как раз такую картину мы видим при загрузке ХР.
Тока там вместо шейпа - картинка.

[OMEGUS]

Ну е мое .... !!!!

[shest]

Да в общем хорошая идея. При таком крутящемся индикаторе и юзер не скучает и сам индикатор можно не привязывать к событию сканирования. Я так и сделаю пожалуй.
Спасибо

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=112343#112343

Почему-то всё чаще замечаю, что полное игнорирование написанного другими выше приобретает всё большее распространение

[Q2W]

Начиная с XP у прогрессбара есть свойство MARQUE. Он при этом бегает просто от левой границы к правой... Можно лицерзеть при загрузке XP... Имитируется весьма легко движущимся шейпом

Ну так то ж начиная! а в 2k, me, 9x?

[shest]

Почему-то всё чаще замечаю, что полное игнорирование написанного другими выше приобретает всё большее распространение

Почему игнорирование ? Просто убедившись, что придётся ограничиться отвлечением пользователя, выбрал наилучший вариант