ник: Йожык
В базе реализована рассылка сообщений пользователям.
Некоторые юзеры злятся, когда много сообщений и по каждому окошко всплывает...
Суть, если в таблице сообщений добавляется запись, и чекер "Прочитано" не стоит
Лампочка будет мигать желтым/красным в меню
Если непрочитанных нет - белая.
Никаких подключений библиотек не требуется.
На OnAction кнопки меню вешаете открытие непрочитанных сообщений.
Процедура вставляется в модуль скрытой формы, которая работает по таймеру ,проверяя сообщения. Если сообщения есть:
Call changebulb(352)
Если сообщений нет:
Call changebulb(342)
Sub changebulb(clr&)
Dim cmbs As Object, oPopUp As Object
Set cmbs = Application.CommandBars("ОболочкаТест")
For Each oPopUp In cmbs.Controls
If oPopUp.ToolTipText = "Подшивка Вестник АРК" Then
If clr = 352 And (oPopUp.faceID = 342 Or oPopUp.faceID = 343) Then
oPopUp.faceID = 352 'Красная
ElseIf clr = 352 And (oPopUp.faceID = 342 Or oPopUp.faceID = 352) Then
oPopUp.faceID = 343 'желтая
Else
oPopUp.faceID = 342 ' белая
End If
Exit For
End If
Next
End Sub
|
