VBNet - Форум - ПОМОГИТЕ !!! (для Opera)

Вопрос: ПОМОГИТЕ !!! (для Opera) Добавлено: 23.03.04 16:46

Автор вопроса: SDL | Web-сайт: StarTeleport.Narod.Ru | ICQ: 272678283

!!!ПОМОГИТЕ!!!
У меня есть два класса:
класс для описания геом. фигур
коллекция на нем основанная
При запуске возникает ошибка (см. ниже ):
Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types.
Подскажите, что делать!
У меня в модуле (не класса): Enum PascalColors
Black = 0
Blue
Green
Cyan
Red
Purple
Brown
LightGrey
Grey
LightBlue
LightGreen
LightCyan
Pink
LightPurple
Yellow
White
End Enum
Enum LineStyles
Solid = 0
Dot
Dash_Dot
Dash
End Enum
Enum FillStyles
Background = 0
Solid
Dash
Slash
Bold_Slash
Bold_BackSlash
BackSlash
Grid
Cross Frequent_Cross
Dot
Frequent_Dot
End Enum
Enum LineWidth
Normal = 1
Bold = 3
End Enum
Enum TextFonts
Bitmap = 0
Bold
Small
Book
Gothic
End Enum
Enum TextDirections
Left_To_Right = 0
Bottom_To_Top
End Enum
Type Style
LineTextColor As PascalColors
LineStyle As LineStyles
LineWidth As LineWidth
FillStyle As FillStyles
FillColor As PascalColors
Text_Font As TextFonts
Text_Direction As TextDirections
End Type
В классе-основе (Graph):
Private mvarObjStyle As Style 'local copy

Public Property Set ObjStyle(ByVal vData As Style) 'used when assigning an Object to the property, on the left side of a Set statement. 'Syntax: Set x.ObjStyle = Form1
Set mvarObjStyle = vData
End Property

Public Property Get ObjStyle() As Style 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.ObjStyle
Set ObjStyle = mvarObjStyle
End Property
У меня в коллекции (Graphs):
Public Function Add(ObjType As Integer, P1 As Variant, P2 As Variant, P3 As Variant, P4 As Variant, P5 As Variant, P6 As Variant, ObjName As String, ObjStyle As Style, Optional sKey As String) As Graph
...
Set objNewMember.ObjStyle = ObjStyle
...
End Function
Те ответы, которые пришли в прошлый раз, не помогли

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #1

Добавлено: 23.03.04 17:21

Те ответы, которые давали в прошлый раз, тоже. Жаль у тебя нет почты, ща бы намылил тебе скриншотик твоего поста, как он выглядит в опере (

Ответить

Номер ответа: 2 Автор ответа: SDL ICQ: 272678283 Вопросов: 27 Ответов: 16	Web-сайт: StarTeleport.Narod.Ru Профиль \| \| #2	Добавлено: 23.03.04 18:07
	Как выглядит?? У меня Оперы нет, поэтому не вижу! Чего не так-то??? Ответить