Вопрос № 121260: Здравствуйте Уважаемый HookEst.Большое спасибо за ответ и пример. И тут возникает ещё один вопрос, а нельзя ли не используя сторонниие ActivX, чтоб при происхождении какого то определённого события около иконки (над Треем) выводилось сообщение ( Я ис...
Вопрос № 121.260
Здравствуйте Уважаемый HookEst.Большое спасибо за ответ и пример. И тут возникает ещё один вопрос, а нельзя ли не используя сторонниие ActivX, чтоб при происхождении какого то определённого события около иконки (над Треем) выводилось сообщение ( Я использовал ActivX Ballon Control Автор Ситник Сергей) , так как при передачи программы приходиться ещё отправлять этот компонент, да и инсталяционный пакет прибавляет в весе. Заранее благадарю за ответ.
Я подписан на вашу рассылку и читая Ваши ответы на вопросы эксперементирую в своих программах с кодом, уменьшая его использовав Ваши варианты ответов, и конечно же набираюсь опыта. Ещё раз спасибо. С Уважением Польхович Игорь.
Отвечает: HookEst
Здравствуйте, Полюхович Игорь Львович! В крайнем случае, Вы вообще можете создать свою собственную форму с нужным сообщением и показывать ее в нужный момент. Но в версии Shell 5.0(идет уже с IE5) появилась такая фишка, как BaloonTooltip.
Открываете проект из моего предыдущего ответа, в модуле заменяете декларацию NOTIFYICONDATA на: 'Декларация для NotifyIcon Public Type NOTIFYICONDATA cbSize As Long hwnd As Long uId As Long uFlags As Long uCallBackMessage
As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeout As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type
добавляете константы: Public Const NIF_INFO = &H10 'константы иконок выводимых в BaloonTooltip Public Const NIIF_NONE = &H0 Public Const NIIF_INFO = &H1 Public Const NIIF_WARNING = &H2 Public C
onst NIIF_ERROR = &H3
на форму поместите кнопку Command1 в модуль формы допишите: 'выводит BaloonTooltip с тексто Msg, заголовком Title и иконкой Icon Private Sub PopUp(ByVal Msg As String, Optional ByVal Title As String, Optional ByVal Icon As Long) With nid .uFlags = NIF_INFO .szInfo = Msg & vbNullChar .szInfoTitle = Title .dwInfoFlags = Icon End With Shell_NotifyIcon NIM_MODIFY, nid
End Sub
Private Sub Command1_Click()
PopUp "You clicked at " & Now, Caption, NIIF_INFO End Sub
запустите и нажмите на кнопку Успехов.
Ответ отправил: HookEst (статус: Практикант)
Ответ отправлен: 02.02.2008, 10:49 Оценка за ответ: 5 Комментарий оценки: Спасибо это даже лучше того , что мне было нужно.
