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

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

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

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

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

←   Апрель 2004   →
 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
Автор
Сергей

Статистика

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

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


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

Работа с системной панелью .

 

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

 

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

 

Для начало нам нудно его откомпилировать, для этого заходим в папку \ common \ Tools \ VB \ unsupport \ Systray , открываем проект Systray . vbp и в папке Modules выбираем mSysTray . Далее просто выполняем команду File -> Make Systray . ocx и сохраняем в X :\ Windows \ System (где X ? ваш диск, На котором установлен Windows ). И жмём OK =).

 

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

 

  1. Создаёте новый проект (File->New Project-> Standart EXE).
  2. Имя формы ( name): frmMain
  3. Правой кнопкой мыши щёлкните на панели инструментов и выберите Components ...
  4. Установите флажок рядом с X :\ Windows \ System \ SysTray . ocx , чтобы добавить этот элемент на панель инструментов.
  5. Поместите элемент на форму .
  6. В свойствах: InTray : поставь true .
  7. В редакторе меню создайте (вы ещё не забыли как это сделать?=)) пункт: Caption : Запуск приложения Name : mnuApp
  8. Потом создаёте подкоманду: Caption : &Калькулятор Name : mnuAppCalc .
  9. Щёлкните два раза по форме и добавьте код в область Form : Load :

 

Privat Sub Form_Load()

Me.Hide ? Прячем форму

End Sub

10.Потом в процедуру события MouseDown элемента clsSysTray :

 

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

If Button = 2 Then ? Если нажата правая кнопка мыши

PopupMenu mnuApp ? то всплывает раннее созданное меню mnuApp

End Sub

11. Затем в Click для mnuAppCalc

 

Private Sub mnuAppCalc_Click()

Dim rc as Double

Rc = Shell(?calc.exe?, vbNormalFocus) ? Открываем калькулятор

End Sub

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

 

На системной панели (трэе) появится знак тостера, когда вы по нему щёлкните то откроется меню, через которое можно вызвать калькулятор. (можно создать больше пуктов , например ? Закрыть ?, ?Paint? и тд ).

 

Конец .

Вот мы и разобрались с системной панелью. Вы знаете, что рассылка долго не выходила, но я всё вскоре исправлю. Если вы что-то не поняли, то обратитесь к архиву рассылки или ко мне по адресу symsoft @ narod . ru . Сайта пока рассылка не имеет (пока J ). Ну что ж, за сим прощаюсь, с вами был FerrUM =).

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

В избранное