Типа подтипы.

[AlexBlack]

Как создать в типе тип?

Ну во всяком случае из Api-viewer'a вот такое:

Код: Выделить всё

Type PAINTSTRUCT
        hdc As Long
        fErase As Long
        rcPaint As RECT <- Вот тут
        fRestore As Long
        fIncUpdate As Long
        rgbReserved(32) As Byte
End Type
Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

выдаёт ошибку:
"Forward reference to user-define type"

[GSerg]

Как бы ты перевёл сообщение об ошибке?

[Zoomie]

Хе-хе!

Хотьмы и пользуемся объектным ориентированем, мы не должны забывать о линейном...

Так что:

Код: Выделить всё

Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Type PAINTSTRUCT
        hdc As Long
        fErase As Long
        rcPaint As RECT <- Вот тут
        fRestore As Long
        fIncUpdate As Long
        rgbReserved(32) As Byte
End Type


Вот так!

[AlexBlack]

Ой.... да точно.
Мине стыдно.... Я аж покраснел! (см аватар.)

Млин.... туто как-то....