Введение в информатику процессов первичной переработки нефти. Новиков А.А - 92 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

91
Public n As Byte
Private m As Byte
Public Sub MuMu()
MsgBox "Muuuuuuuuuuuuu"
End Sub
Private Sub Class_Initialize()
n = 1
m = 1
MsgBox n & m
End Sub
Private Sub Class_Terminate()
n = 99
m = 99
MsgBox n & m
End Sub
В первых двух строках мы объявляем открытую (n) и закрытую (m) для доступа
переменные (свойства класса). Заметим, что открытая переменная n будет видна в
стандартном списке свойств. Следующие три строки – простая процедура, выдаю-
щая строчку текста на экран. Эту процедуру (MuMu) затем можно будет вызывать из
модулей пользователя, как метод. Далее следуют две процедуры, реагирующие на
события: при инициализации этого класса обеим переменным присваивается 1, при
закрытии класса обеим переменным присваивается 99 и в обоих случаях они выво-
дится на экран.
Содержимое пользовательского модуля:
Sub test()
Dim h As New Class1
MsgBox h.n
h.n = 55
MsgBox h.n
h.MuMu
End Sub
Во второй строке мы объявляем, что h является только что описанным нами
классом Class1. В третьей строке мы выводим на экран значение доступного нам
свойства этого класса. В следующей строке мы изменяем значение этого свойства
на 55 и опять выводим его на экран для проверки. В предпоследней строке мы вы-
зываем доступный нам
метод MuMu. Последовательность окон, возникающих при
выполнении этой программы, представлена на рис. 2.13.
Рис. 2.13. Пример работы программы с классом Class1

Страницы