1.4.?????????? ? ????????????? ????????.

?????? ? ???????? ?????????????, ??? ? ? ?????? ??????, ?????? ? ????????? ??????? ????? ???????????? ?????????? ??????????? - ??????????? ??? ???????? ?? ????????? ? ?????? ?????? ??????.

?????????? ??? ??????? ?????????? ???????? ??????:

- ?????? ????????

??????????? ? ???, ??? ????????? ?????????? ????? ??????????? ??? ?????????? ????????? ??????. ?????? ?????????? ??????????????, ???? ??? ?????????? ?????????? ??????????? ?????????? ??? ??????

<??????? ?????????> [WithEvents] <??? ????????? ??????????> As <??? ??????>

??????? ????????? ?????????? ?????? ???????? ????????? ?????? ??? ?????????????, ?.?. ??????????? ?? Nothing. ????? ??????? ??????? ?????? ?????????? ???????????? Set <??? ????????? ??????????> = New <??? ??????>. ????? ????? ??????? ?????? ??? ?????????? ????????? ?????????? ?????????:

<??????? ?????????> [WithEvents] <??? ????????? ??????????> As New <??? ??????>

WithEvents ???????????? ?????, ????? ? ?????? ???? ??????? ? ?? ?????? ?? ????????????. ???? ?? ?? ?????? ???????????? ??????, ???????? ????? WithEvents ????? ????????.

??????:

Dim� clsOne As COne

Set clsOne = New COne

? ?????? ??????, ????? ??????? ?????????????? ? ??????? ????????? Set.

??? ?????

Dim clsOne As New COne

? ?????? ??????, ????????? ?? ?????? ????? ?????? ?????????? ? ????????? ?????????? clsOne. ????????? ?????? ????????? ? ?????? ??????? ?????????. (?????? ???????? ??? ??????).

- ??????? ????????

??????????? ? ???????? ????????? ?????????? ???? Object, ?? ??????????? ?? ?????-???? ?????????? ?????? ??????-???? ??????. ???????? ?????????????? ? ???? ?????????? ????????? ??????????? ?????.

??????:

Dim clsOne As Object

Set clsOne = New COne

??????? ???????? ???????????? ??? ?????? ? ??????????? ???????? ????? ?????????? ??? ??? ???????? ?????? ?? ????????? ??????????. ???? ???? ??????????? ???????????? ?????? ????????, ????? ???????????? ??????.