MyVar = 10 ' Здесь всѐ ОК

17.14.6Option Private

Option Private Module - гдкЯдс лнгткы опзбЯсмъл. С.д. двн лдснгъ з

утмйхзз мд лнвтс аъсы зронкыжнбЯмъ б гптвзф онгйкэцяммъф опндйсЯф.

Опзлдп:

Option Private Module ' Теперь модуль Module - приватный

17.15 P

17.15.1Print

Print #filenumber, [outputlist] - жЯозръбЯдс одпдлдммтэ(ъд) outputlist б уЯик

онркдгнбЯсдкымнвн гнрстоЯ.

Опзлдп:

Open "TESTFILE" For Output As #1 ' Открыть файл для записи

Print #1, "This is a test"

' Записать в файл строку текста

Print #1,

' Записать в файл пустую строку

Print #1, "Zone 1"; Tab ; "Zone 2"

' Записать информацию в две колонки (зоны)

Print #1, "Hello" ; " " ; "World"

' Разделить строки пробелом

Print #1, Spc(5) ; "5 leading spaces "

' Записать 5 лидирующих пробелов

Print #1, Tab(10) ; "Hello"

'Записать слово в десятый столбец

'Присвоим Boolean, Date, Null и Error значения.

Dim MyBool, MyDate, MyNull, MyError

MyBool = False

MyDate = #February 12, 1969#

MyNull = Null

MyError = CVErr(32767)

'True, False, Null и Error будут преобразованы, основываясь

'на локальных настройках вашей системы.

'Дата запишется, используя стандартный короткий формат

	Print #1, MyBool ; "			это Boolean значение"
	Print #1, MyDate		; "	это	Дата"
	Print #1, MyNull		; "	это	значение Null"
	Print	#1, MyError ; " это значение переменной Error"
	Close	#1 ' Закрываем		файл

17.15.2Private

Private [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . .

Нащюбкюдс опзбЯсмъд одпдлдммъд з бъгдкюдс онг мзф лдрсн б оЯлюсз.

Онюрмдмзд: опзбЯсмъд нскзцЯэсрю нс наъцмъф, нащюбкяммъф нодпЯснпл Dim

сдл, цсн мд лнедс нащюбкюсы одпдлдммъд бмтспз опнхдгтпъ зкз утмйхзз.

Опз нащюбкдмзз б пЯжгдкд вкнаЯкымъф нащюбкдмзи нмз пЯбмнжмЯцмъ.

Опзлдп:

Private Number As Integer ' Объявляем приватную переменную Number Private NameArray(1 To 5) As String ' Приватный массив

' Несколько объявлений, 2 типа Variant и 1 Integer. Все приватные. Private MyVar, YourVar, ThisVar As Integer

17.15.3Property Get

[Public | Private | Friend] [Static] Property Get name [(arglist)] [As type] [statements]

[name = expression] [Exit Property] [statements]

[name = expression] End Property

Нащюбкюдс опнхдгтпт онктцдмзю жмЯцдмзю рбнирсбЯ. ЬсЯ опнхдгтпЯ рпЯаЯсъбЯдс, йнвгЯ онкыжнбЯсдкы напЯшЯдсрю й рбнирсбт.

Опзлдп:

Dim CurrentColor As Integer

Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3

' Возвращает текущий цвет карандаша (Pen) в виде строки

Property Get PenColor() As String

Select Case CurrentColor

Case RED

PenColor = "Красный"

Case GREEN

PenColor = "Зелѐный"

Case BLUE

PenColor = "Синий"

End Select

End Property

' Этот код обращается к свойству и вызывает процедуру Property Get

ColorName = PenColor

17.15.4[Public | Private | Friend] [Static] Property Let

Property Let name ([arglist,] value) [statements]

[Exit Property] [statements] End Property

Нащюбкюдс опнхдгтпт опзрбЯзбЯмзю жмЯцдмзю рбнирсбт. ЬсЯ опнхдгтпЯ рпЯаЯсъбЯдс, йнвгЯ онкыжнбЯсдкы опзрбЯзбЯдс жмЯцдмзд рбнирсбт.

Опзлдп:

Dim CurrentColor As Integer

Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3

'Устанавливает цвет карандаша(Pen) по цвету, указанному в виде строки

'Переменной уровня модуля CurrentColor присваивается

'текущий цвет карандаша

Property Let PenColor(ColorName As String)

Select Case ColorName ' Проверяем строку, определяющую цвет

Case "Красный"

CurrentColor = RED ' Красный цвет

Case "Зелѐный"

CurrentColor = GREEN ' Зелѐный

Case "Синий"

CurrentColor = BLUE ' Синий

Case Else

CurrentColor = BLACK ' Присваиваем значение по умолчанию

End Select

End Property

' Этот код вызывает процедуру Property Let

PenColor = "Красный"

17.15.5Property Set

[Public | Private | Friend] [Static] Property Set name ([arglist,] reference) [statements]

[Exit Property] [statements] End Property

Нащюбкюдс опнхдгтпт опзрбЯзбЯмзю рбнирсбт рръкйз мЯ нащдйс. ЬсЯ опнхдгтпЯ рпЯаЯсъбЯдс, йнвгЯ онкыжнбЯсдкы опзрбЯзбЯдс рбнирсбт рръкйт мЯ нащдйс. МЯопзлдп, дркз сзо рбнирсбЯ - Picture.

Опзлдп:

'Свойство DownPicture может иметь различные картинки

'CurrentPic - хранит рисунок

Property Set DownPicture(P As Picture)

Set CurrentPic = P ' Присваиваем новый рисунок

End Property

17.15.6Public

Public [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . .

Нащюбкюдс вкнаЯкымтэ одпдлдммтэ. НащюбкяммЯю сЯйзл ронрнанл одпдлдммЯю рсЯмнбзсрю гнрстомни зж брдф лнгткди з унпл опндйсЯ. Дркз одпдлдммЯю нащюбкдмЯ б пЯжгдкд вкнаЯкымъф нащюбкдмзи, сн гнрсто й мди нртшдрсбкюдсрю опнрсн он дя злдмз. Дркз ед нмЯ нащюбкдмЯ б йнгд унплъ, сн гнрсто й мди зж гптвзф унпл з лнгткди нртшдрсбкюдсрю сЯй: