Очерёдность действий
1) Напишите копию объекта в стандартном проекте: "Standart EXE". В нём легче исправлять возникающие ошибки.
2) Когда программа готова создайте новый проект: "ActiveX Control". Скопируйте ВСЁ из первого проекта во второй. Процедуру:
Private Sub Form_Load()
замените на:
Private Sub UserControl_Initialize() и т.п.
Если вам ненужно добавлять новые свойства и процедуры, то пункты 3, 4, 5 можно пропустить.
3) Открыть окно Add Ins \ Add Ins Manager... Выделить строку VB6 ActiveX Ctrl Interface Wizard, установить флажки: Loaded \ Unloaded и Load on Startup. Нажать ОК
4) Открыть окно Add Ins \ ActiveX Control Interface Wizard. Нажать Next. Слева находится список всех возможных свойств и событый. Справа свойства и событыя объекта. После дабавления или удаления свойств и событый нажать Next. Если этот объект стандартный то нажать Next.
5) Если свойства или событыя были добавлены то появится их список, Перебирая этот список в списке Control нужно выбрать имя объекта к которому принадлежить свойство. Далее установите флажок если хотите просмотреть отчёт и нажмите Finish.
6) Откройте окно Tools \ Procedure Attributes… В строке Name выберите переменную или процедуру, а в строке Description введите комментарии к ним. Так, другим людям будет легче работать с вашей программой.
7) Открыть окно Project \ Project1 Properties. В строке Project Description ввести название объекта.
|
UserControl Properties
Name - имя объекта
BackStyle =0 - прозрачность.
BorderStyle =1 - рамка
InvisibleAtRuntime =True - не виден во время работы.
ToolBoxBitmap - иконка объекта размером 16x15
|
Добавление новых свойств
Option Explicit
Движение мыши над объектом:
Public Event MeMouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
RaiseEvent MeMouseMove(Button, Shift, X, Y)
End Sub
Отключение объекта:
Public Property Get Enabled() As Boolean
Enabled = UserControl.Enabled
End Property
Public Property Let Enabled(ByVal NewEnabled As Boolean)
UserControl.Enabled = NewEnabled
End Property
Выбор шрифта:
Public Property Get Font() As Font
Font = UserControl.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
UserControl.Font = New_Font
End Property
и т.п. Так же вы можете создавать свои с войства
Раздел "О программе":
Public Sub About()
frmAbout.Show vbModal
или просто:
Dim H As String
H = """Просмотр больших рисунков""" & vbCrLf
H = H & "Автор: Алексей Муртазин" & vbCrLf
H = H & "Версия: 2.0" & vbCrLf
H = H & "E-mail: starcat-rus@yandex.ru" & vbCrLf
H = H & "Сайт: http://starcat-rus.narod.ru"
MsgBox H, vbOKOnly, "О программе"
End Sub
Tools/Procedure Attributes… вполе Name выбираем About, нажимаем кнопку Advanced и в поле Procedure ID выберем AboutBox.
Постоянный размер объекта:
Private Sub UserControl_Resize()
UserControl.Size Width, Height
End Sub
Только в твипах.
|
ВНИМАНИЕ:
Называйте объект только по английски.
Если нужно добавить его в проект то не создавайте файл *.осх.
Нажмите Project \ Add User Control, загрузите исходник. Откройте ToolBox (набор компонентов) и выберите ваш значок.
Желаю удачи!!!
|
|
