Worobjoff,
1) Запускаем VB6.
2) Создаём проект типа ActiveX DLL. Проект уже содержит класс Class1 с Instancing=5 (MultiUse).
3) В модуле класса Class1 пишем:
1.
2.
3.
Public Type TMyType
i As Long
s As String
End Type
4) Добавляем в группу проектов обычный проект - Меню:File\Add Project...\Standard Exe.
5) Делаем вновь созданный проект Project2 стартовым - в Project Explorer правый щелчок на Project2, Контекстное Меню:Set As Start Up.
6) Делаем ссылку в Project2 на Project1 - Меню:Project\References..., ставим галочку на Project1 (5-я строка).
7) Рисуем на Form1 кнопку, пишем обработчик нажатия:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Command1_Click()
Dim c As New Collection
Dim a As TMyType
Dim b As TMyType
Dim i As Long
a.i = 111
a.s = "первый"
b.i = 222
b.s = "второй"
c.Add a
c.Add b
AutoRedraw = True
Cls
For i = 1 To c.Count
Print "[" & i & "]: i=" & c(i).i & ", s=""" & c(i).s & """"
Next i
End Sub
8) Запускаем Project2 на выполнение (F5), жмём кнопку Command1.
Если откомпилировать Project1, в IDL тип TMyType выглядит так:
1.
2.
3.
4.
5.
6.
7.
8.
typedef [uuid(FD0E40BF-5F75-45B4-8A1A-AD2C22A4B486), version( 1 . 0 )]
struct tagTMyType {
[helpstring("i")
]
long i;
[helpstring("s")
]
BSTR s;
} TMyType;
В h так:
1.
2.
3.
4.
typedef /* [version][uuid] */ struct tagTMyType
{
/* [helpstring] */ long i;
/* [helpstring] */ BSTR s;
} TMyType;
