Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Топ:
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Интересное:
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Дисциплины:
2018-01-07 | 149 |
5.00
из
|
Заказать работу |
|
|
SysTray можно включить в ваше приложение, как любой другой элемент. Давайте попробуем это сделать на примере простейшей программы, с помощью которой вы сможете запускать некоторые полезные утилиты Windows. Выполните следующие действия:
1. Создайте новый проект командой File > New Project. Выберите в диалоговом окне New Project значок Standard EXE.
2. Задайте свойству Name формы Form1 значение frmMain.
3. Щелкните правой кнопкой мыши на панели элементов и выберите из контекстного меню команду Components....
4. Установите флажок рядом со строкой C:\Windows\System\SysTray.ocx, чтобы добавить элемент SysTray на панель элементов. Нажмите кнопку ОК.
5. Поместите элемент SysTray на форму frmMain и задайте свойству Name значение clsSysTray.
6. В окне свойств задайте свойству InTray значение True, а свойству TrayTip — значение Запуск приложений.
7. Щелкните на форме frmMain, чтобы сделать ее активной. Запустите редактор меню командой Tools > Menu Editor....
8. Создайте меню. Задайте свойству Caption значение &Приложения, а свойству Name — значение mnuApp. Нажмите кнопку Next.
9. Нажмите кнопку со стрелкой вправо, чтобы приступить к созданию команд меню.
0. Создайте следующие команды.
1. В результате должно получиться меню, показанное на рис. 19.6. Закройте редактор меню кнопкой ОК.
2. Дважды щелкните на форме frmMain, чтобы открыть окно программы.
3. Добавьте следующий фрагмент в процедуру события Load:
Private Sub Form_Load()
Me.Hide End Sub
4. Откройте процедуру события MouseDown элемента clsSysTray и добавьте следующий фрагмент:
Private Sub clsSysTray_MouseDown(Button As Integer, Id As Long)
If Button = 2 Then PopupMenu mnuApp
End If End Sub
5. Добавьте следующий фрагмент в процедуру события Click меню mnuAppCalc:
Private Sub mnuAppCalc_Click() Dim rс As Double
Рис. 19.6. Структура меню
гс = Shell("calc.exe", vbNormalFocus) End Sub
16. Добавьте следующий фрагмент в процедуру события Click меню mnuAppCalc:
|
Private Sub mnuAppExplorer_Click()
Dim гс As Double
rс = Shell("explorer.exe", vbNormalFocus) End Sub
17. Добавьте следующий фрагмент в процедуру события Click меню mnuApp Notepad:
Private Sub mnuAppNotepad_Click()
Dim rс As Double
rс = Shell("notepad.exe", vbNormalFocus) End Sub
18. Добавьте следующий фрагмент в процедуру события Click меню mnuAppClose:
Private Sub mnuAppClose_Click()
Unload Me
Set frmMain = Nothing End Sub
19. Сохраните и запустите проект.
На системной панели появится маленький значок в виде тостера. Если на пару секунд задержать над ним указатель мыши, появляется подсказка «Запуск прило-
Caption | Name |
& Калькулятор П&роводник &Блокнот &3акрыть | mnuAppCalc mnuAppExplorer mnuAppNotepad mnuAppSep1 mnuAppClose |
жений». Если щелкнуть на значке правой кнопкой мыши, открывается контекстное меню, из которого можно выбрать приложение (рис. 19.7):
Рис. 19.7. Запуск приложений из системной панели
Вы можете изменить программу и включить в нее свои любимые приложения, запускаемые чаще других, и даже подключить к ней базу данных или ASCII-файл для настройки команд меню. Вашего опыта работы с Visual Basic б вполне хватит для того, чтобы создать такое приложение и наделить его любыми необходимыми возможностями.
ПОДСКАЗКА Приложения, работающие на системной панели, обычно содержат контекстное меню, с помощью которого пользователь может выполнять нужные действия с программой. Вы должны как минимум обеспечить возможность закрыть приложение. Если вы хотите, чтобы оно отображало форму или диалоговое окно, поместите вызов метода Show в процедуру события MouseDblClick элемента clsSysTray.
Взгляд в будущее
На самом деле наше знакомство с Windows API не назовешь даже поверхностным. Приведу лишь небольшой список интересных вещей, которые можно сделать с помощью Win32 API:
О Создание «плавающих» форм, которые постоянно отображаются поверх всех остальных форм.
О Использование сетевых возможностей с помощью функций WNet. О Создание приложений для видеозаписи с помощью функций AVICap.
Хорошие программные средства в сочетании с небольшой долей творческого воображения способны творить чудеса. К сожалению, полное описание Win32 API заняло бы несколько толстых книг, так что я даже не стану пытаться рассказать вам все необходимое. По мере создания новых приложений и накопления опыта программирования на Visual Basic вы узнаете об ограничениях этого языка. Когда это произойдет, начинайте изучать API. Visual Basic в сочетании с Win32 API позволяет написать практически любую программу.
|
Наконец, достаньте хорошую книгу по Windows API. Хотя API Viewer предоставляет объявления функций API, он совершенно не объясняет смысл параметров,
необходимых для работы функций. В хорошей книге по API должны быть описаны все функции вместе с параметрами. Не жалейте денег — если вы собираетесь серьезно заняться программированием, такая книга вам все равно понадобится.
ПОДСКАЗКА Обязательно купите книгу с описанием Windows API. Она пригодится гораздо раньше, чем вы думаете.
Теперь, когда вы знаете основы работы с Visual Basic, попробуйте «поиграть» с примерами приложений, находящимися на компакт-диске Visual Basic. Кроме того, займитесь самостоятельным программированием, и незаметно для себя вы станете настоящим профессионалом в области Visual Basic.
Что нового мы узнали?
В этом уроке мы научились:
Использовать API Viewer для получения объявлений функций API.
0 Объявлять функции API в DLL.
0 Использовать функции API в приложениях.
0 Помещать значок приложения на системную панель.
[1] Windows Explorer в исходной версии. — Примеч. перев.
[2] Однако при этом размеры окна можно изменять кнопками развертывания и восстановления. - Примеч. перев.
[3] В этом и всех остальных примерах, входящих в комплект Visual Basic, надписи и тексты были по возможности переведены на русский язык для удобства чтения. — Примеч. перев.
[4] Формат даты (как и денежных единиц) зависит от системных установок Windows (значок Язык и стандарты (Regional Settings) в Панели управления). — Примеч. перев.
|
|
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!