| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Экспорт в Excel, Проблемы с эксопртом отчета Срочно!, Срочно! Folder Dialog, на Visual Basic Анимированные gif ' ы в программе, Анимированные gif ' ы в программе Необязательные параметры в функциях, Как создать необязательный параметр? СРОЧНО! Программа решения кв.уравнений!, Помогите написать программу решения кв.у Подскажите как работать с коллекциями Статьи и находки Просьба начинаещего программиста Hook, Hook на мыш и клаву(key logger) Как Вы относитесь к курящим девушкам? Оптимизация кода, Нужна прога для Программно отследить подключён ли юзер к инету, Программно отследить подключён ли юзер к Как сделать ячейки в Excel скрытыми. Не могу добавить новое свойство к TextBox, ActiveX Как удалить лист в Excel., Удаление листа в Excel без подтверждения Перенос строки HTML страницы в Excel разбиение Word документа на несколько Delay, for перед каждым шагом делать delay Полупрозрачный label, Полупрозрачный label Запуск программы на компе где нет VB динамические запросы, в VB Проблемы с русскими буквами, Проблемы с русскими буквами Заголовок Frame, Заголовок Frame Помогите новичку в напичсании макроса, сортировка и вывод чести данных Как получить файл в архиве ShutDown PC владелец файла, Как установить? Пункты меню разным цветом, Пункты меню разным цветом Запустить main метод одного класса из другого. Умножиение одного числа на другое Перенос строки, Перенос строки Скажите, пожалуста, как указать путь к файлу котор Как развернуть элементы формы? Проблемма с регистром букв, Не могу реализовать поиск в таблице Меню как в офисе Components-Data Picker???, в каких компонентах засел Дата Пикер Менюшки, Три вопроса по меню в VB Excel , Перевести номер столбца в букву столбца ?, Перевести номер столбца в букву столбца Как вызвать окно "Открыть с помощью", И ещё... Что даст мне Java Поиск в БД, Access97 Как НЕ сохранять изменения в файле? Программа нажимает за нас ОК в чужой программе, Каким образом нажать ОК из чужой проги Как запустить события Что бы не мигали элементы интерфейса, Что бы не мигали элементы интерфейса Реклама в программе, Реклама в программе vb просы...простенькие, вопросы простенькие Свойство тестового поля PDWizard: проблема № 2..., Some files are out of date и тд и тп Составляйте опросы!, см. название темы Документация и книги по Java, Давайте соберём ссылки Получение документации Как Вы относитесь к курящим девушкам? Определение цвета обратного данному, Определение цвета обратного данному проблема с циклами, знаю как сделать на пасе как будет в ВБ? Установка DLL с INF из web-страницы, Как инсталлировать дрова через Web Как Вы относитесь к курящим девушкам? Что нам не нравится в ВБ 6?, кликай сюда:)) Скрипт VBS, Скрипт на vbs для отправки сообщения чер Текстовоя строка, щитывание символов со строки, плз хелп Как определить кнопку Cancel в InputBox? Исходник, Исходник Оптимизация программы под различные разрешения экр, Разрешение экрана Прежде чем задать вопрос, прочтите это! Разрешение выполнения ActiveX в IE Помогите с функцией API Не работает Common Dialog Control, Не работает Common Dialog Control Pop-up окно не закрывается, Помогите, пожайлуста! Параметры в VBS, VBScript |
Платные хостинги Раскрутка сайта Книги по программированию Pop-up окно не закрывается, Помогите, пожайлуста!
- Помогите:Засунул в тулбар я иконку:Код Public Declare Function Shell_NotifyIcon Lib "shell32" Alias"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) AsBoolean 'Константы для добавления, удаления и модификации вашей икноки:Public Const NIM_ADD = 0Public Const NIM_MODIFY = 1Public Const NIM_DELETE = 2'Константы ответственные за события происходящие внутри границ иконки,расположенной в Traybar:Public Const WM_MOUSEMOVE = &H200Public Const NIF_MESSAGE = 1Public Const NIF_ICON = 2Public Const NIF_TIP = 4'Константы ответственные за события поведения мышки происходящие внутриграниц иконки, ' расположенной в Traybar:':Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_LBUTTONDBLCLK = &H203'Для правой клавиши мышки:Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_RBUTTONDBLCLK = &H206'Для средней клавиши мышки:Public Const WM_MBUTTONDOWN = &H207Public Const WM_MBUTTONUP = &H208Public Const WM_MBUTTONDBLCLK = &H209'Объявляем переменную определяемую пользователем:Type NOTIFYICONDATAcbSize As LonghWnd As LonguID As LonguFlags As LonguCallbackMessage As LonghIcon As LongszTip As String * 64End TypeЭто в форму:'На форме в разделе General объявляем переменную определенную как типпользователя:Dim nid As NOTIFYICONDATAPrivate Sub Form_Load()' Добавить иконку формы в Traybarnid.cbSize = Len(nid)nid.hWnd = Form1.hWndnid.uID = vbNullnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGEnid.uCallbackMessage = WM_MOUSEMOVEnid.hIcon = Form1.Icon'При наведении курсора на Иконку, выдвинется текст: "Чо пялишься?":nid.szTip = "Чо пялишься?" & vbNullCharShell_NotifyIcon NIM_ADD, nidEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single)'Объявляем переменные:Dim msg As LongDim sFilter As Stringmsg = X / Screen.TwipsPerPixelXSelect Case msgCase 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 SelectEnd SubhighlightSyntax('vb3MWM1Y','vb');Где предлагают вставить PopupMenu ('Сюда ты можешь вставить код, которыйзахчешь:'Обычно это PopupMenu:)Вставляю:frmMain.PopupMenu popup_main_Всё чики-пуки, но попап открывается и так и остаётся, как форма,если кликнуть по пустому месту экрана она не убирается :-(((((((((Помогите, пожайлуста!Заранее благодарен! - Код Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long'..............................................................'..............................................................Case WM_RBUTTONUPSetForegroundWindow frmMain.hwndfrmMain.PopupMenu popup_main'..............................................................'..............................................................highlightSyntax('vbjBlZWI','vb');  |