| Вопрос: Подсказка из TRAY | Добавлено: 21.03.06 08:55 |
Автор вопроса:  DaaGER | Web-сайт: smartic.ru | ICQ: 329195567 |
| Я видел как во многих прогах, если они свёрнуты в tray, подсказки вылазят прям из трея. Мой вопрос состоит в том КАК ЭТО СДЕЛАТЬ МНЕ???!!! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  SL ICQ: 277007669 Вопросов: 10 Ответов: 86 |
Профиль | | #1 | Добавлено: 21.03.06 09:17 |
| по-моему, в примерах, был такой примерчик.... | ||
|
Номер ответа: 2 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 21.03.06 09:58 |
|
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 'Константы для добавления, удаления и модификации вашей икноки:
Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 'Константы ответственные за события происходящие внутри границ иконки, расположенной в Traybar: Public Const WM_MOUSEMOVE = &H200 Public Const NIF_MESSAGE = 1 Public Const NIF_ICON = 2 Public Const NIF_TIP = 4 'Константы ответственные за события поведения мышки происходящие внутри границ иконки, ' расположенной в Traybar: ': Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_LBUTTONDBLCLK = &H203 'Для правой клавиши мышки: Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public Const WM_RBUTTONDBLCLK = &H206 'Для средней клавиши мышки: Public Const WM_MBUTTONDOWN = &H207 Public Const WM_MBUTTONUP = &H208 Public Const WM_MBUTTONDBLCLK = &H209 'Объявляем переменную определяемую пользователем: 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 Теперь переключись на форму, и в ней(ФОРМЕ) впиши код: 'На форме в разделе General объявляем переменную определенную как тип пользователя: Dim nid As NOTIFYICONDATA Private Sub Command1_Click() ' Добавить иконку формы в Traybar nid.cbSize = Len(nid) nid.hWnd = Form1.hWnd nid.uID = vbNull nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE nid.uCallbackMessage = WM_MOUSEMOVE nid.hIcon = Form1.Icon 'При наведении курсора на Иконку, выдвинется текст: "РАРАРРА": nid.szTip = " РАРАРРА " & vbNullChar Shell_NotifyIcon NIM_ADD, nid End Sub Private Sub Command2_Click() nid.hIcon = Form1.Icon nid.szTip = "New Icon" & vbNullChar Shell_NotifyIcon NIM_MODIFY, nid End Sub Private Sub Command3_Click() Shell_NotifyIcon NIM_DELETE, nid End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Объявляем переменные: Dim msg As Long Dim sFilter As String msg = X / Screen.TwipsPerPixelX Select Case msg Case WM_LBUTTONDOWN 'Сюда ты можешь вставить код, который захчешь: MsgBox "Нажата левая кнопка мыши(Нажата)" Case WM_LBUTTONUP 'Сюда ты можешь вставить код, который захчешь: MsgBox "Нажата левая кнопка мыши(Отжата)" Case WM_LBUTTONDBLCLK 'Сюда ты можешь вставить код, который захчешь: MsgBox "Ты кликнул 2 раза по ИКОНКЕ(Левой кнопкой)" Case WM_RBUTTONDOWN 'Сюда ты можешь вставить код, который захчешь: 'Обычно это PopupMenu: MsgBox "Нажата правая кнопка мыши(Нажата)" Case WM_RBUTTONUP 'Сюда ты можешь вставить код, который захчешь: MsgBox "Нажата левая кнопка мыши(Отжата)" Case WM_RBUTTONDBLCLK 'Сюда ты можешь вставить код, который захчешь: MsgBox "Ты кликнул 2 раза по ИКОНКЕ(Правой кнопкой)" End Select End Sub |
||
|
Номер ответа: 3 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #3 | Добавлено: 21.03.06 12:00 |
|
присоед в вопросу
2 root надо штоб сама выскакивала без подвода мышки или нажатия клавиш. например - по таймеру, или по нажатию Command4 |
||
|
Номер ответа: 4 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #4 | Добавлено: 21.03.06 12:15 |
|
а вот и ответ
http://www.vbnet.ru/samples/download.aspx?id=412 |
||
|
Номер ответа: 5 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #5 | Добавлено: 21.03.06 21:44 |
| Фигня! Я пробовал с этим работать, только мне вдобавок нужны ToolTip и меню. Окошко не скачет. XPSP2 | ||
|
Номер ответа: 6 Автор ответа: VerhoLomВопросов: 20 Ответов: 285 |
Профиль | | #6 | Добавлено: 25.03.06 17:00 |
| Я звиняюсь за рекламу, но можна такое тута посмотреть: http://www.vbaccelerator.com/home/VB/Code/Libraries/Shell_Projects/SysTray_-_The_Easy_Way/article.asp | ||
Страница: 1 |