Создать класс, содержащий одно свойство типа "коллекция" и соответствующую ему пару Property методов. Правильность работы класса проверить. Как это сделать?
Класс Option Explicit
Dim cl As Collection
Public Property Get Coll() As Collection Set Coll = cl End Property
Public Property Let Coll(Value) Coll.Add Value, CStr(Coll.Count) End Property
Private Sub Class_Initialize() Set cl = New Collection End Sub
Кнопки на листе Option Explicit Dim Class As New Class1 Private Sub CommandButton1_Click() On Error Resume Next Class.Coll = InputBox("?", , "Привет люди !") End Sub Private Sub CommandButton2_Click() On Error Resume Next MsgBox Class.Coll(CStr(Class.Coll.Count - 1)) If Err Then MsgBox "Сначало добавь в коллекцию чтонибудь !", vbCritical End If End Sub
ТАК ЛИ ВСЁ И КАК МОЖНО ПО ДРУГОМУ СДЕЛАТЬ???
Реклама удалена __________________ Писать на: ссылка на личную почту удалена __________________ Vladimir / 2017 год Тема закрыта. Причина: нарушение п.2, 3, 5h, 5d и 5о Правил форума
Создать класс, содержащий одно свойство типа "коллекция" и соответствующую ему пару Property методов. Правильность работы класса проверить. Как это сделать?
Класс Option Explicit
Dim cl As Collection
Public Property Get Coll() As Collection Set Coll = cl End Property
Public Property Let Coll(Value) Coll.Add Value, CStr(Coll.Count) End Property
Private Sub Class_Initialize() Set cl = New Collection End Sub
Кнопки на листе Option Explicit Dim Class As New Class1 Private Sub CommandButton1_Click() On Error Resume Next Class.Coll = InputBox("?", , "Привет люди !") End Sub Private Sub CommandButton2_Click() On Error Resume Next MsgBox Class.Coll(CStr(Class.Coll.Count - 1)) If Err Then MsgBox "Сначало добавь в коллекцию чтонибудь !", vbCritical End If End Sub
ТАК ЛИ ВСЁ И КАК МОЖНО ПО ДРУГОМУ СДЕЛАТЬ???
Реклама удалена __________________ Писать на: ссылка на личную почту удалена __________________ Vladimir / 2017 год Тема закрыта. Причина: нарушение п.2, 3, 5h, 5d и 5о Правил форума-Coder-
отточие используется в типографии, при оформлении оглавления, например, а вот знак препинания многоточие, обозначающий паузу, оформляется в виде трёх точек и после него ставиться пробел
Цитата
Никто не читает
с этим Никто я не знаком (вы же имя собственное написали с прописной буквы, верно?), но поверьте, в бан он уйдёт достаточно быстро, если будет нарушать правила
Цитата
ссышь написать сюда
ваша репутация и комментарии к ней публично доступны в вашем профиле, дополнительно вам приходит автоматическое оповещение об изменении репутации, которую я вам понизил за нежелание следовать правилам форума. Фразу "и вам здрасьте" я всегда использую, обращаясь к наглецам, которые не здороваются, нарушают правила да ещё смеют требовать писать им ответы на указанную почту.
Цитата
Вам бы,не
запятая не требуется
Цитата
не плохо
пишется слитно
Цитата
русский, под
запятая не ставится
Цитата
под учить
пишется слитно
Цитата
Извините......
отточие используется в типографии, при оформлении оглавления, например, а вот знак препинания многоточие, обозначающий паузу, оформляется в виде трёх точек и после него ставиться пробел
Цитата
Никто не читает
с этим Никто я не знаком (вы же имя собственное написали с прописной буквы, верно?), но поверьте, в бан он уйдёт достаточно быстро, если будет нарушать правила
Цитата
ссышь написать сюда
ваша репутация и комментарии к ней публично доступны в вашем профиле, дополнительно вам приходит автоматическое оповещение об изменении репутации, которую я вам понизил за нежелание следовать правилам форума. Фразу "и вам здрасьте" я всегда использую, обращаясь к наглецам, которые не здороваются, нарушают правила да ещё смеют требовать писать им ответы на указанную почту.buchlotnik
Сообщение отредактировал buchlotnik - Суббота, 02.12.2017, 19:23