Трэй

[v@Mp!rO]

Я тему перед этим создал а потом забыл что мне еще кое-что надо.
Сори...

Как добавить значек в трей я знаю.
А как его от-туда убрать???

И еще одно.
Никто не знает почему таймер неточно время считает?
Я сравнивал с секундомером таймер отстает?!

Спасибо всем кто ответит.

[Vovik]

А на сколько он у тебя грешил? Я помню писал длл, не хотел внутри размещать форму с таймером и для этого сдлеал свой таймер через API...При сравнении получил что оба таймера работают полность одинаково...

[Sebas]

Таймер не учитывает время обработки предыдущего события.

Исли нужен точный таймер ипользуй с на порядок меньший интервал и проверяй через АПИ GetTickCount

[v@Mp!rO]

На таймере стоит интервал 1000.
Через каждую секунду(1000) таймер прибавляет к секундам 1, если секунд 59 то они обнуляются и 1 добавляется к минутам, тоже самое с минутами. Полученое время печатается на форме.

[v@Mp!rO]

2Sync

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

Как от этого избавится?[/quote]

[xolod]

Ты как иконку в трей добавляешь?

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

Shell_NotifyIcon NIM_ADD, NOTIFYICONDATA_TYPE

Ведь так??

Так удалять ее надо через

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

Shell_NotifyIcon NIM_DELETE, NOTIFYICONDATA_TYPE

главное чтобы NOTIFYICONDATA_TYPE был одинаков в двух случаях

[v@Mp!rO]

Вот мой код:

Добавление

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

Dim nid As NOTIFYICONDATA

Function addIcon(ico As Integer)
Shell_NotifyIcon NIM_DELETE, nid

main.WindowState = 1
main.Hide

nid.cbSize = Len(nid)
nid.hWnd = main.hWnd
nid.uID = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallbackMessage = WM_MOUSEMOVE

Select Case ico
Case 0
nid.hIcon = icN
AppCS = d8m_invisible
Case 1
nid.hIcon = icC
out.Enabled = True
AppCS = d8m_counting
Case 2
nid.hIcon = icP
AppCS = d8m_paused
Case 3
nid.hIcon = icS
AppCS = d8m_stoped
End Select

nid.szTip = "D8M StarTimer 1.0b" & vbNullChar

Shell_NotifyIcon NIM_ADD, nid
End Function

Удаление

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

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Значек так и остается. Пока курсор не наведеш.

[xolod]

Накатал я тебе контрол (в сорцах естевственно).
Учись.