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

Уроки по программированию. Visual C++, MFC, VB, ActiveX


Служба Рассылок Subscribe.Ru

Visual Basic. ActiveX. Уроки по программированию с сайта http://alexeev.nm.ru

Рассылка №24

Visual Basic. ActiveX. Урок 21. Раскладываем свойства по категориям.
Visual Basic. ActiveX. Урок 22. Задаем для ActiveX свою иконку.
Visual Basic. ActiveX. Урок 23. Как программно зарегистрировать и отменить регистрацию элемента ActiveX?

Полные версии уроков (с картинками) можно найти по адресам
Урок 21. Раскладываем свойства по категориям.
Урок 22. Задаем для ActiveX свою иконку.
Урок 23. Как программно зарегистрировать и отменить регистрацию элемента ActiveX?

Visual Basic. ActiveX. Урок 21. Раскладываем свойства по категориям

Свойства элемента ActiveX разбиваются на разные категории. Вы это видите на вкладке Categorized окна свойств.

Вы тоже можете рассортировать свойства вашего ActiveX. Для этого в меню Tools выбираем Procedure Attributes (перед этим щелкните на окне с кодом для нашего ActiveX).

Далее в появившемся диалоге Procedure Attribute щелкните на кнопке Advanced. В появившемся combobox'е Property Cathegory выбираем нужную категорию из списка или впечатываем свою (предварительно выбираем нужное свойство в combobox'е Name).

После таких действий наше свойство оказывается в нужной категории (посмотреть это можно с помощью окна свойств).

Наверх

Visual Basic. ActiveX. Урок 22. Задаем для ActiveX свою иконку

В этом коротком уроке мы продолжим наши украшательства. Все элементы ActiveX, которые мы делали до сих пор, имели стандартную иконку на панели элементов.

Для задания своей иконки сначала создайте ее. Это должен быть рисунок 16 на 15 пикселей (можно использовать форматы *.bmp, *.jpg, *.gif). После этого задайте этот файл в свойстве ToolboxBitmap для элемента ActiveX.

После этого на панели элементов наш ActiveX будет иметь собственную иконку.

Наверх

Visual Basic. ActiveX. Урок 23. Как программно зарегистрировать и отменить регистрацию элемента ActiveX?

Умение программно зарегистрировать элемент ActiveX может пригодиться, например, при написании собственного инсталлятора. Делается это приблизительно так. Внутри файла с ActiveX (как правило, это файл с расширением *.ocx) есть две функции - DllRegisterServer (для регистрации) и DllUnregisterServer (для отмены регистрации). Вот их то и надо вызвать. Делаем это аналогично вызову API-функции. Приведем пример. Пусть у нас в каталоге D:\_VB\AXs\URLlabel имеется файл URLLabel.ocx с элементом ActiveX. Создадим обычный проект для Visual Basic (типа Standard EXE), разместим на форме две кнопки (cmdReg и cmdUnReg). В окне кода напишем следующее:

Option Explicit
Private Declare Function RegTest Lib "URLLabel.ocx" Alias _
  "DllRegisterServer" () As Long
Private Declare Function UnRegTest Lib "URLLabel.ocx" Alias _
  "DllUnregisterServer" () As Long
Const ERROR_SUCCESS = 0
Dim regCode As Long
Private Sub cmdUnReg_Click()
  On Error Resume Next
  ChDrive "D:"        ' Устанавливаем нужный
  ChDir "D:\_VB\AXs\URLlabel"    ' каталог текущим
  regCode = UnRegTest()  ' регистрация URLLabel.ocx
  ' анализ возможных ошибок
  If Err <> 0 Then
    MsgBox "Файл URLLabel.ocx не найден"
  Else
    If regCode <> ERROR_SUCCESS Then
      MsgBox "Операция отмены регистрации не выполнена"
    End If
  End If
End Sub
Private Sub cmdReg_Click()
  On Error Resume Next
  ChDrive "D:"
  ChDir "D:\_VB\AXs\URLlabel"
  regCode = RegTest()  ' регистрация URLLabel.ocx
  If Err <> 0 Then
    MsgBox "Файл URLLabel.ocx не найден"
  Else
    If regCode <> ERROR_SUCCESS Then
      MsgBox "Операция регистрации не выполнена"
    End If
  End If
End Sub

Теперь при нажатии на соответствующие кнопки элемент будет регистрироваться или сниматься с регистрации.

Для проверки можете создать и откомпилировать тестовый проект VB, использующий ActiveX-элемент из файла URLLabel.ocx. Если первой программой вы зарегистрировали ActiveX, то тестовая программа будет запускаться без проблем.

А если вы сняли ActiveX с регистрации, то тестовая программа не запустится, и появится окошко с сообщением об ошибке.

Наверх

Copyright Алексеев Игорь, 2002

Copyright cайт alexeev.nm.ru, 2002



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

В избранное