Каталог статей

Урок по созданию ActiveX компонентов на VB

            Учимся создавать ocx контролы с помощью VB.

Так как я сам недавно начал этим заниматься (приперло когда захотелось сделать собственный рабочий стол.) Я расскажу тебе некоторые основы.

            Так что же такое ActiveX? Это активные компоненты, которые мы используем в программах. К ним относятся разные кнопки, таймеры и им подобные. Но одна из возможностей activex’а это использования в нем уже созданных компонентов, что делает его очень удобным.

            Для начала создай новый проект и теперь выбери не «Стандартный EXE», а «Управление ActiveX». Теперь кинь на форму timer и label. Задумка будет простая, сделаем компонент в виде готовых часов. Установи свойство interval у таймера равное 1000. Щелкни по нему два раза и в процедуре напиши.

            Label1.caption = time$

Теперь откомпилируй в ocx. Открой еще один редактор VB, создай новый проект (теперь стандартный), нажми Ctrl+T. В появившемся окне нажми кнопку Обзор, а там выбери наш компонент, теперь активируй его и кинь на форму. Если честно у меня комп сильно ругался, когда я пытался его активировать, но потом все пошло гладко и часы заработали на форме. Мы сделали небольшой контрол, но на этом я останавливаться не буду

            Добавим функцию изменения цвета.

            Function ForeColor(clr As ColorConstants)

Label1.ForeColor = clr

End Function

Теперь цвет нашей надписи можно изменять написав: ForeColor константа цвета

Таким же способом добавим функцию изменения фона

Function BackColor(clr As ColorConstants)

Label1.BackColor = clr

End Function

            ВАЖНО! Надпись должна была растянута на все рабочее поле!

            Также можно добавить функцию изменения интервала таймера.

            Function interval(ntrvl As Long)

Timer1.interval = ntrvl

End Function

            Думаю многие сталкивались с такой проблемой: ставите рисунок на фон, а «дизайн» кнопки или там надписи не подходит. Теперь это в прошлом, с помощью нашего справочника ты можешь сделать свой контрол прозрачным

>

            Прямо рекламой забазарил :)

            Если ты собираешься делать свой контрол прозрачным, у тебя есть 2 выбора. Либо ты делаешь его все время прозрачным т.е. перманентным, либо с помощью true, false устанавливаешь это значение. Вот как это будет выглядеть:

Function Имя функции (Имя переменной as Boolean) ‘объявляем функцию со значением         ‘ true или false

if Имя переменной = true then ‘ставим условие

Операция 1 ‘ делаем невидимым\видимым

else

операция 2 ‘делаем видимым\невидимым

end if              

end function

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