Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование на Visual Basic/Visual Studio и ASP/ASP.NET" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Август 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

6.089 подписчиков
-7 за неделю
←   Все выпуски   →

Программирование на Visual Basic 6.0 в примерах.


Информационный Канал Subscribe.Ru

Здравствуйте!!!

Выпуск – 16: SysTray

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

 

Привет всем! Рассылка давно не выходила, примерно месяц из-за отпуска. Теперь она вновь возобновляется. На этом уроке вы узнаете как работать с системной панелью(известную как “там где часики”). Начнём...

 Урок – 16

 “SysTray”

 

На системную панель чаще всего помещаются приложения, управляющие различными устройствами или работающие по расписанию. Скорее всего на вашем компьютере в системной панели находятся часы, регулятор громкости и др. В комплект Visual Basic входит пример , который компилируется в элемент ActiveX. Сейчас мы его и скомпилируем.

 

Создание элемента SysTray.

Перед тем как пользоваться элементом ActiveX в приложении, его необходимо откомпилировать и разместить в папке Windows/System:

  1. В VB откройте проект Systray.vbp из каталога \Common\Tools\VB\Unsupport\Systray в папке или на диске Visual Basica.
  2. Выполните команду File->Make Systray.ocx
  3. В диалоговом окне Make Projects укажите в поле Save In  путь Windows\System
  4. Нажмите кнопку Ok.

Элемент Systray готов к работе! Теперь создадим программу на основе этого элемента...

Использование элемента SysTray

Программа будет запускать нужные программы Windows, такие как Калькулятор,  Paint и др.

  1. Создайте новый проект командой File->New Project. Выберите Standard EXE.
  2. Задайте свойству Name формы Form1 значение frmMain.
  3. Щёлкните правой кнопкой на панели элементов и выберите Components....
  4. Установите флажок рядом со строкой X:\Windows\System\Systray.ocx, чтобы добавить элемент SysTray на панель элементов.
  5. Поместите Systray на форму frmMain и задайте свойству  Name значение clsSysTray, свойству InTray – True, а свойству TrayTip – запуск приложений.
  6. Вызовите редактор меню. Создайте первое меню со свойствами Caption - &Приложения, Name – mnuApp. Нажмите кнопку Next.
  7. Нажмите кнопку со стрелкой вправо. И создайте пункты меню:

 Caption

Name

&Калькулятор

П&роводник

&Блокнот

-(чёрточка)

&Закрыть

mnuAppCalc

mnuAppExploler

mnuAppNotePad

mnuAppSep1

mnuAppClose
  1. Дважды щёлкните на форме и добавьте фрагмент в процедуру события Load:

Private Sub Form_Load()

Me.Hide ‘Скрывает окно при запуске.

End Sub

  1. Откройте процедуру MouseDown элемента  clsSysTray и добавьте следующий фрагмент:

Private Sub clsSysTray_MouseDown(Button As Integer, Id As Long)

If Button = 2 Then ‘Если правая кнопка была нажата, то

       PopUpmenu mnuApp ‘ Появляется меню, которое мы создали ранее

End If

End Sub

  1. Добавьте следующий фрагмент в процедуру события Click меню mnuAppCalc:

Private Sub mnuAppCalc_Click()

Dim rc As Double

rc = Shell("calc.exe", vbNormalFocus)

End Sub

Вы наверное заметили новый оператор Shell, который запускает определённые приложения в определённом виде.

  1. Теперь фрагмент в процедуру события Click меню mnuAppNotePad:

Private Sub mnuAppNotePad_Click()

Dim rc As Double

rc = Shell("notepad.exe", vbNormalFocus)

End Sub

12. И фрагмент в процедуру события Click меню mnuAppExploler:

Private Sub mnuAppExploler_Click()

Dim rc As Double

rc = Shell("exploler.exe", vbNormalFocus)

End Sub

  1. Ну и для закрытия:

Private Sub mnuAppClose_Click()

Unload Me

Set frmMain = Nothing

End Sub

13. Сохраните и запустите проект.

Внимание! В некоторых Windows приложения могут не запускаться!

В системной панели появился значок тостера, щёлкните на нём правой кнопкой и появится список приложений.

Всё урок закончен! Все вопросы, пожелания и Трояны скидывайте на _e-mail. Да, и если у вас есть интересные исходники, статьи или просто программы, то присылайте опять же на e-mail J, я их обязательно размещу на сайте. Пока!

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

 

 

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное