Страница: 1 |
!!!ПОМОГИТЕ!!! У меня есть два класса: При запуске возникает ошибка (см. ниже ): Подскажите, что делать! У меня в модуле (не класса): Enum PascalColors Enum LineStyles Enum FillStyles Enum LineWidth Enum TextFonts Enum TextDirections Type Style В классе-основе (Graph): Private mvarObjStyle As Style 'local copy У меня в коллекции (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
А можно привести нормальный текст? Не все смотрят эксплорером, опера такие штуки открывает коряво. Стоит перевести для себя это сообщение и разобраться с областями видимости для всех типов и переменных. Насколько я помню, объявление без явного указания области видимости создает Private-тип. А раз он закрыт, то в качестве типа для параметра открытой функции использоваться не может. Да... В Опере это вообще не отображается Страница: 1 |
Вопрос: !!!ПОМОГИТЕ!!!
Добавлено: 11.03.04 12:24
Автор вопроса: SDL | Web-сайт:
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.
Black = 0
Blue
Green
Cyan
Red
Purple
Brown
LightGrey
Grey
LightBlue
LightGreen
LightCyan
Pink
LightPurple
Yellow
White
End Enum
Solid = 0
Dot
Dash_Dot
Dash
End Enum
Background = 0
Solid
Dash
Slash
Bold_Slash
Bold_BackSlash
BackSlash
Grid
Cross Frequent_Cross
Dot
Frequent_Dot
End Enum
Normal = 1
Bold = 3
End Enum
Bitmap = 0
Bold
Small
Book
Gothic
End Enum
Left_To_Right = 0
Bottom_To_Top
End Enum
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
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
...
Set objNewMember.ObjStyle = ObjStyle
...
End Function
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #1
Добавлено: 11.03.04 12:39
Номер ответа: 2
Автор ответа:
grayk
Вопросов: 5
Ответов: 100
Профиль | | #2
Добавлено: 11.03.04 14:38
Номер ответа: 3
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #3
Добавлено: 11.03.04 15:14
Может еще стоит сделать не Property Set, а Property Let...
Номер ответа: 4
Автор ответа:
AASoft
Вопросов: 86
Ответов: 920
Профиль | | #4
Добавлено: 11.03.04 20:32
poprobuj Enum'y kak Public objavit`