Классы

[JWST]

Вот такая интересная штучка у меня приключилась. Новичёк я в VB и поэтому скорее всего именно из-за этого. Всегда слышал об этом, но как-то нигде не встречал, а тут прислали исходник и увидел я там интересный файл: TrayIcon.cls
Как в дальнейшем оказалось этот класс добавляет возможность сворачивать программу в трей.

Т.е. как мне теперь это всё представляется классы это своего рода плагины получается, которые добавляют некоторые возможности.

Поковырявшись с исходником, я ничего для себя полезного не увидел. Скорее всего просто проблемы с опытом и поэтому я просто не был способен понять как с ними работать?

Поэтому просил бы дать примеры (исходники) по проще (для новичка) и разъязнить получше что такое классы и как с ними работать

За ранее спасибо!

[alibek]

Классы это классы, по другому объяснить сложно.
Служат они для того, чтобы в классы выносить фрагменты кода и функциональности и затем использовать эти фрагменты в основной программе (типа того, как ты фрагменты кода выносишь в процедуры). Кроме того, классы могут генерировать события, что бывает полезным.

Классы -- это например кнопка CommandButton, или метка Label, или текстовое поле Text. Все это -- классы. Они имеют свойства (Name, Text, Caption, Left, Top и пр.), методы (SetFocus, Refresh) и события (Click, Change, KeyPress).

Ты можешь написать свой класс, назвать его, например, clsSample и использовать в своей программе:

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

Dim cls As clsSample
Set cls = New clsSample

В этот класс ты можешь добавить нужные тебе свойства:

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

Private vText As String
...
Public Property Get Text() As String
Text = vText
End Property

Public Property Let Text(ByVal NewValue As String)
vText = NewValue
End Proptrty
...

и методы:

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

...
Public Sub PrintText(Display As Object)
Display.Print vText
End Sub
...

И использовать эти методы и классы в своей программе:

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

Dim cls As clsSample
Set cls = New clsSample
...
cls.Text = "Sample Text"
Me.Cls
cls.PrintText Me
Picture1.Cls
cls.PrintText Picture1
Set cls = Nothing

Создай с помощью мастера класс или UserControl, посмотри код, сгенерированный мастером, и изучай.

[codemaster]

Поэтому просил бы дать примеры (исходники) по проще (для новичка) и разъязнить получше что такое классы и как с ними работать

За ранее спасибо!

см http://www.firststeps.ru/

[JWST]

alibek - ты действительно большой человек. Спасибо! Объяснил всё просто и без заморок.

codemaster - спасбо и тебе большое. Заценил ресурс. В моих закладках раньше его не было

[Andrey Fedorov]

и методы:

А про события забыл

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

Event MyEvent(...)

[Konst_One]

ну вообще то, классы входят в ООП
но все , что уже тебе сказали - чистая правда