11 Описание событий VB

Рнаъсзд

ОпзцзмЯ бнжмзймнбдмзю

Ьсн рнаъсзд злддс снкыйн унплЯ.

Activate - бъжъбЯдсрю б снс лнлдмс, йнвгЯ унплЯ рсЯмнбзсрю Яйсзбмни (онктцЯдс унйтр). НгмЯйн дркз одпдисз й гптвнлт

Activate, опзкнедмзэ Windows, Я жЯсдл бдпмтсырю й рбндлт, сн ьсн

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

Deactivate - Рнаъсзд, напЯсмнд рнаъсзэ Activate.

БъжъбЯдсрю опз онсдпд унйтрЯ унплъ.

ComboBox — лдмюдсрю сдйрс б сдйрснбни цЯрсз ькдлдмсЯ.

Опнзрфнгзс снкыйн снвгЯ, йнвгЯ рбнирсбн Style трсЯмнбкдмн б 0 (Dropdown Combo) зкз 1 (Simple Combo) з онкыжнбЯсдкы зжлдмюдс сдйрс зкз бъ лдмюдсд двн б йнгд опнвпЯллъ.

DirListBox — Лдмюдсрю бъапЯммЯю гзпдйснпзю. Опнзрфнгзс,

йнвгЯ онкыжнбЯсдкы бъонкмюдс гбнимни шдкцнй ймнойни лъчз мЯ мнбни гзпдйснпзз зкз йнвгЯ лдмюдсрю рбнирсбн

Path б йнгд.

DriveListBox — Лдмюдсрю бъапЯммнд трспнирсбн.

Change Опнзрфнгзс, йнвгЯ онкыжнбЯсдкы лдмюдс трспнирсбн, бъапЯб двн зж розрйЯ, зкз йнвгЯ лдмюдсрю рбнирсбн Drive б йнгд. HScrollBar з VScrollBar (внпзжнмсЯкымЯю з бдпсзйЯкымЯю опнйптсйз) — Онгбзмткрю онкжтмнй онкнръ опнйптсйз.

Опнзрфнгзс, йнвгЯ онкыжнбЯсдкы одпдгбзмтк з нсотрсзк онкнрйт опнйптсйз зкз лдмюдсрю рбнирсбн Value б йнгд.

Label — Лдмюдсрю рнгдпезлнд лдсйз. Опнзрфнгзс йнвгЯ лдмюдсрю рбнирсбн Caption б йнгд.

PictureBox — Лдмюдсрю рнгдпезлнд PictureBox. Опнзрфнгзс опз рлдмд рбнирсбЯ Picture. (Я сЯйед опз зронкыжнбЯмзз

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	LoadPicture, опзл.eax)
	TextBox — Лдмюдсрю сдйрс б сдйрснбнл онкд. Опнзрфнгзс
	опз рлдмд сдйрсЯ онкыжнбЯсдкдл зкз опз рлдмд рбнирсбЯ
	Text б йнгд.
	Опнзрфнгзс йнвгЯ онкыжнбЯсдкы мЯезлЯдс з нсотрйЯдс
	ймнойт лъчйз мЯг нащдйснл. Нмн сЯйед лнедс опнзрфнгзсы
	опз рлдмд мдйнснпнвн жмЯцдмзю нащдйсЯ.
	Гкю унплъ сЯйнд рнаъсзд бъонкмюдсрю опз йкзйд мЯ
	рбнангмнл лдрсд унплъ, зкз он нсйкэцдммнлт ькдлдмст
	топЯбкдмзю (с.д. йнвгЯ двн Enabled = False).
	Бннашд рнаъсзд опнзрфнгзс з гкю опЯбни ймнойз лъчз з
	гкю кдбни. Мн гкю ькдлдмснб CheckBox, CommandButton,
	Listbox, з OptionButton опнзрфнгзс снкыйн опз мЯеЯсзз
	кдбни ймнойз лъчз.
	Гкю ComboBox зкз ListBox нмн опнзрфнгзс з опз йкзйд
Click	ймнойни лъчйз з сЯйед опз рлдмд сдйтшдвн ькдлдмсЯ
	йкЯбзчЯлз йтпрнпЯ.
	Опнзрфнгзс опз мЯеЯсзз мЯ "ОПНАДК" т ькдлдмснб
	CommandButton, OptionButton, зкз CheckBox, йнвгЯ сд
	злдэс унйтр.
	Опз мЯеЯсзз мЯ ENTER опз унйтрд мЯ ькдлдмсд
	CommandButton з йнвгЯ трсЯмнбкдмн рбнирсбн Default.
	Опнзрфнгзс опз мЯеЯсзз мЯ ESC йнвгЯ унплЯ злддс Cancel
	ймнойт - CommandButton р трсЯмнбкдмъл рбнирсбнл Cancel.
	СЯйед	опнзрфнгзс	опз	мЯеЯсзз	мЯ	внпюцтэ
	онркдгнбЯсдкымнрсы. МЯопзлдп, дркз ймнойЯ злддс Caption -
	"&Go", сн опз мЯеЯсзз Alt+G жЯотрсзсырю рнаъсзд.
	СЯйед,	рнаъсзд Click	лнедс	аъсы	рвдмдпзпнбЯмн б

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		ркдгтэшзф рктцЯюф б йнгд: ТрсЯмнбйЯ жмЯцдмзю Value гкю
		OptionButton з CheckBox.
		Опнзрфнгзс опз гбнимнл йкзйд он нащдйст.
		Гкю унплъ опнзрфнгзс опз гбнимнл йкзйд он унплд, Я
		сЯйед он нсйкэцдммнлт нащдйст.
	DblClick	Гкю гптвзф ькдлдмснб:
		Гбнимни йкзй он нащдйст кдбни ймнойни.
		Гбнимни йкзй он ькдлдмст б ComboBox, йнвгЯ Style = 1. Зкз
		сЯйед б FileListBox, ListBox, DBCombo, зкз DBList.
		Опнзрфнгзс опз жЯбдпчдмзз нодпЯхзз одпдсЯрйзбЯмзю
	DragDrop	(Drag&Drop). Б напЯансйт рнаъсзю одпдгЯэсрю 3 ЯпвтлдмсЯ
		- йннпгзмЯсъ йтпрнпЯ (X,Y), вгд аък нсотшдм нащдйс, з
		рръкйЯ мЯ нащдйс (Source), йнснпъи аък одпдсЯшдм.
		Опнзрфнгзс йнвгЯ нащдйс одпдсЯрйзбЯдсрю мЯг онктцЯсдкдл,
		мн ймнойЯ дшя мд нсотшдмЯ. Злддс 4 оЯпЯлдспЯ. ЙннпгзмЯсъ
		йтпрнпЯ, рръкйЯ мЯ нащдйс, з сдйтшдд рнрснюмзд (State As
	DragOver	Integer):
		0	=	Enter	(бнчяк) (зрснцмзй бнчяк б	накЯрсы	нащдйсЯ).
		1	=	Leave	(онйзмтк) (зрснцмзй тчяк	зж ьсни	накЯрсз).
		2 = Over (мЯг) (опнзжнчяк ргбзв б опдгдкЯф накЯрсз).

Опнзрфнгзс снкыйн опз пЯансд р аЯжЯлз гЯммъф, опз нчзайд б гнрстод й гЯммъл опз бъонкмдмзз йнгЯ.

Злддс 2 оЯпЯлдспЯ:

dataerr - мнлдп опнзжнчдгчди нчзайз

Error

response - мнлдп, рннсбдсрсбтэшзи бъапЯммнлт б мЯрспнийЯф (Settings):

Дркз vbDataErrContinue, сн response = 0 (Опнгнкезсы)

Дркз vbDataErrDisplay, сн response = 1 (Default) ОнйЯжЯсы

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		рннашдмзд на нчзайд.
		Опнзрфнгзс, йнвгЯ нащдйс онктцЯдс унйтр, зкз опз мЯеЯсзз
		ймнойз Tab зкз йкзйнл он нащдйст, Я сЯйед опз жЯотрйд
	GotFocus	лдснгЯ SetFocus б опнвпЯллд. УнплЯ онктцЯдс унйтр снкыйн
		снвгЯ, йнвгЯ брд бзгзлъд ькдлдмсъ нсйкэцдмъ (Enabled =
		False).
		Ьсн рнаъсзд злддс снкыйн унплЯ.
	Initialize	НапЯаЯсъбЯдсрю одпбъл з нгзм пЯж. Visual Basic бъжъбЯдс
		двн опз одпбнл рнжгЯмзз унплъ. Жгдры наъцмн пЯжлдшЯэс
		йнг, гкю змзхзЯкзжЯхзз жмЯцдмзи одпдлдммъф б опнвпЯллд.
		Опнзрфнгзс, йнвгЯ т ListBox йнмспнкЯ рбнирсбн Style
		трсЯмнбкдмн б 1 (checkboxes) з бъапЯм зкз рапнчдм укЯенй
	ItemCheck	т йЯйнвн-кзан ькдлдмсЯ (item) б йнмспнкд.
		ОдпдгЯясрю нгзм оЯпЯлдсп:
		index - мнлдп ькдлдмсЯ, йнснпъи аък бъапЯм б ListBox.
		Опнзрфнгзс, йнвгЯ онкыжнбЯсдкы мЯезлЯдс (KeyDown) зкз
	KeyDown,	нсотрйЯдс (KeyUp) йкЯбзчт, б сн бпдлю йЯй нащдйс злддс
	KeyUp	унйтр. Цснаъ онктцзсы йнг йкЯбзчз, зронкыжтисд рнаъсзд
		KeyPress. ОЯпЯлдспнб мдс.
		Опнзрфнгзс, йнвгЯ онкыжнбЯсдкы мЯезлЯдс з нсотрйЯдс
		йкЯбзчт мЯ йкЯбзЯстпд.
		Рнаъсзд злддс нгзм оЯпЯлдсп:
		keyascii - йнг мЯеЯсни йкЯбзчз. МЯопзлдп, дркз мЯеЯсы мЯ
	KeyPress	йкЯбзчт "1" (нрмнбмнвн пюгЯ), сн keyascii атгдс пЯбдм 49.
		Дркз мЯеЯсы ESC, сн 27, з з.г.
		Дркз опзрбнзсы ьсни одпдлдммни 0, сн мЯеЯсЯю атйбЯ
		(рзлбнк) мд онюбзсрю б сдйрснбнл онкд. ЗмнвгЯ ьсн аъбЯдс
		нцдмы тгнамъл. МЯопзлдп, лнемн ргдкЯсы сЯй, цснаъ б

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		сдйрснбнд онкд лнемн аъкн ббнгзсы снкыйн хзупъ. Бнс
		опзлдп:
		СЯакзхЯ йнгнб йкЯбзч опдгрсЯбкдмЯ б о. 12.
		LinkClose: Опнзрфнгзс йнвгЯ DDE рндгзмдмзд жЯйпъбЯдсрю.
		Лнедс опнзжнисз б кэанд бпдлю.
	LinkClose	LinkError: Опнзрфнгзс опз бнжмзймнбдмзз нчзайз б фнгд
		рбюжз DDE.
	LinkError
		LinkNotify: Опнзрфнгзс йнвгЯ т зрснцмзйЯ лдмюэсрю
	LinkNotify
		гЯммъд, мЯ йнснпъд трсЯмнбкдмЯ рръкйЯ DDE.
	LinkOpen
		LinkOpen: Опнзрфнгзс опз рнжгЯмзз змзхзЯкзжЯхзз DDE
		рбюжз р зрснцмзйнл.
		ГЯммъд рнаъсзю зронкыжтэсрю нцдмы пдгйн.
		Ьсн рнаъсзд злддс снкыйн унплЯ.
		НапЯаЯсъбЯдсрю опз жЯвптжйд унплъ б оЯлюсы. Опнзрфнгзс
		онркд рнаъсзю Initalize. Наъцмн йнг зронкмюдсрю нгзм пЯж.
		Опз жЯотрйд опнвпЯллъ, ьсн рнаъсзд напЯаЯсъбЯдсрю
	Load	ЯбснлЯсзцдрйз гкю сни унплъ, йнснпЯю жЯвптеЯдсрю одпбни.
		Ьсн рнаъсзд лнедс бъонкмюсырю мдрйнкыйн пЯж. С.д. дркз бъ
		бъвптжзсд унплт нодпЯснпнл Unload, Я жЯсдл бмнбы
		жЯвптжзсд нодпЯснпнл Load зкз лдснгнл Show, сн ьсн
		рнаъсзд атгдс бъонкмдмн.
		Опнзрфнгзс опз онсдпд нащдйснл унйтрЯ, зкз опз мЯеЯсзз
	LostFocus	Tab онкыжнбЯсдкдл, зкз опз зронкыжнбЯмзз лдснгЯ SetFocus
		гкю гптвнвн нащдйсЯ.
		Опнзрфнгюс йнвгЯ онкыжнбЯсдкы мЯезлЯдс (MouseDown) зкз
	MouseDown,	нсотрйЯдс (MouseUp) ймнойт лъчз.
	MouseUp	Злдэс 4 одпдгЯбЯдлъф оЯпЯлдспЯ:
		button - рнгдпезс integer - мнлдп ймнойз лъчз. Р онлншыэ

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		ьснвн рнаъсзю лнемн нопдгдкзсы, йЯйтэ ймнойт мЯеЯк
		онкыжнбЯсдкы. Гкю ьснвн зронкыжтэсрю йнмрсЯмсъ:
		vbLeftButton	(кдбЯю),	vbMiddleButton	(рпдгмюю),
		vbRightButton (опЯбЯю). Опнбдпзсы лнемн опзлдпмн сЯй:
		If button = vbRightButton Then ...
		shift - рнгдпезс integer - тйЯжъбЯэшдд мЯ рнрснюмзд йкЯбзч
		Shift, Alt з Ctrl. Азс 0 - Shift, азс 1 - Ctrl, азс 2 - Alt. Гкю
		нопдгдкдмзю уЯйсЯ мЯеЯсзю йкЯбзч Ctrl з Alt лнемн
		зронкыжнбЯсы сЯйни йнг:
		If (Shift And (vbCtrlMask Or vbAltMask)) = (vbCtrlMask Or
		vbAltMask) Then ...
		С.д. лъ опнбдпюдл рнгдпезс кз одпдлдммЯю Shift азсъ 1 з 2
		(нодпЯснпнл And). Рйнайз бджгд наюжЯсдкымъ. vbShiftMask,
		vbAltMask, vbCtrlMask - ьсн наъцмъд йнмрсЯмсъ,
		рнгдпеЯшзд лЯрйз азснб:
		vbShiftMask = 1 (мткдбни азс) Bin: 00000001
		vbCtrlMask = 2 (одпбъи азс) Bin: 00000010
		vbAltMask = 4 (бснпни азс) Bin: 00000100
		x, y - йннпгзмЯсъ йтпрнпЯ лъчз снвн лдрсЯ, вгд опнзжнчкн
		рнаъсзд MouseUp зкз MouseDown. ЙннпгзмЯсъ брдвгЯ
		жЯбзрюс нс йннпгзмЯсмни рзрсдлъ, жЯгЯбЯдлни рбнирсбЯлз
		ScaleHeight, ScaleWidth, ScaleLeft, ScaleTop нащдйсЯ.
		Опнзрфнгзс, йнвгЯ йтпрнп лъчз зжлдмюдс рбня онкнедмзд
	MouseMove	мЯг нащдйснл. С.д. йнвгЯ йтпрнп рснзс мЯ лдрсд, рнаъсзд мд
		опнзрфнгзс. Опз йЯегнл ргбзвд йтпрнпЯ - рпЯаЯсъбЯдс.
		ОЯпЯлдспъ сд ед, цсн з т MouseDown з MouseUp.
	ObjectMove	Опнзрфнгзс	мдлдгкдммн	онркд снвн, йЯй OLE	йнмсдимдп
		ргбзвЯдсрю зкз лдмюдс пЯжлдпъ онйЯ нащдйс Яйсзбдм.

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	ОдпдгЯбЯдлъд оЯпЯлдспъ:
	left	-	йннпгзмЯсЯ	кдбни	впЯмз	OLE	йнмсдимдпЯ
	top	-	йннпгзмЯсЯ	бдпфмди	впЯмз	OLE	йнмсдимдпЯ
	width		-	чзпзмЯ	OLE		йнмсдимдпЯ
	height - бърнсЯ OLE йнмсдимдпЯ

Опнзрфнгзс йнвгЯ йнлонмдмс - зрснцмзй "апнчдм" мЯ йнлонмдмс - хдкы, змунплзптю нащдйс н снл, цсн кзан жЯбдпчям, кзан нслдмям опнхдрр одпдсЯрйзбЯмзю.

Злддс нгзм оЯпЯлдсп:

effect - опзбнет нпзвзмЯк: A long integer set by the source object identifying the action that has been performed, thus allowing the source to take appropriate action if the component

was moved (such as the source deleting data if it is moved from

OLECompleteDr

one component to another). The possible values are listed in

ag

Settings.

Џ Settings лнедс аъсы:

vbDropEffectNone = 0 - нодпЯхзю "апнрЯмзю" (Drop) аъкЯ нслдмдмЯ.

vbDropEffectCopy = 1 - онйЯжъбЯсы жмЯцнй йнозпнбЯмзю гЯммъф.

vbDropEffectMove = 2 - "рапЯръбЯдлъд" гЯммъд юбкюэсрю рръкйни мЯ нпзвзмЯкымъд гЯммъд.

Ьсн рнаъсзд опнзрфнгзс, йнвгЯ мЯ нащдйс рапЯръбЯэсрю

OLE гЯммъд. МЯопзлдп, опнзрфнгзс опз одпдсЯрйзбЯмзз мЯ

нащдйс уЯикнб зж опнбнгмзйЯ, зкз одпдсЯрйзбЯмзз

OLEDragDrop

зжнапЯедмзю зж Internet Explorer з с.о.

ЖЯлдцЯмзд: Ьсн рнаъсзд опнзрфнгзс снкыйн б снл рктцЯд,

йнвгЯ рбнирсбн OLEDropMode трсЯмнбкдмн б 1 (Manual).

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	Злддс нцдмы лмнвн оЯпЯлдспнб:
	data - нащдйс сзоЯ DataObject. Злддс 4 лдснгЯ з нгмн
	рбнирсбн - йнккдйхзэ уЯикнб, одпдсЯрйзбЯлъф мЯ нащдйс.
	Гкю онктцдмзю гЯммъф лнемн зронкыжнбЯсы лдснг GetData.
	Цснаъ тжмЯсы унплЯс гЯммъф, одпдйзмтсъф мЯ нащдйс лнемн
	зронкыжнбЯсы лдснг GetFormat.
	effect Long - опзбнет нпзвзмЯк - set by the target component
	identifying the action that has been performed (if any), thus
	allowing the source to take appropriate action if the component
	was moved (such as the source deleting the data). The possible
	values are listed in Settings.
	button - сн ед, цсн з б рнаъсзз MouseDown(Up).
	shift - сн ед, цсн з б рнаъсзз MouseDown(Up).
	x,y - сн ед, цсн з б рнаъсзз MouseDown(Up).
	Опзлдп. НапЯансЯдл одпдсЯшдммъд мЯ унплт уЯикъ. Мд
	жЯатгысд трсЯмнбзсы рбнирсбн OLEDropMode б 1.
	Private Sub Form_OLEDragDrop _
	(Data As DataObject, Effect As Long, _
	Button As Integer, Shift As Integer, _
	X As Single, Y As Single)
	' одпдсЯрйзбЯэсрю уЯикъ?
	If Data.GetFormat(vbCFFiles) = True Then
	Dim c As Long
	' опнигялрю он брди йнккдйхзз
	For c = 1 To Data.Files.Count
	' онйЯедл злю одпдсЯшдммнвн уЯикЯ
	MsgBox "Аък одпдсЯшдм уЯик: " & Data.Files(c)
	Next c

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	End If
	End Sub
	Опнзрфнгзс опз одпдсЯрйзбЯмзз мЯг нащдйснл. ОЯпЯлдспъ -
OLEDragOver	йнлазмЯхзю оЯпЯлдспнб рнаъсзи OLEDragDrop з наъцмнвн
	DragOver.
	Опнзрфнгзс онркд йЯегнвн рнаъсзю OLEDragOver.
	OLEGiveFeedback	онжбнкюдс	зрснцмзйт	надродцзбЯсы
	бзжтЯкымтэ "нсгЯцт" онкыжнбЯсдкэ, сЯйнд, йЯй зжлдмдмзд
	йтпрнпЯ лъчз (онрлнспзсд мЯ мдвн опз одпдсЯрйзбЯмзз
	уЯикнб б опнбнгмзйд р мЯеЯсъл Ctrl, - бзгзсд жмЯцнй "+",
OLEGiveFeedba	бнс ьсн з дрсы	сЯ "нсгЯцЯ"),	йнснпнд	атгдс	внбнпзсы
	онкыжнбЯсдкэ н снл, цсн опнзрфнгзс.
ck
	ОЯпЯлдспъ - effect з
	defaultcursors - boolean - пЯжпдчЯдс зкз жЯопдшЯдс
	зронкыжнбЯмзд йтпрнпЯ он тлнкцЯмзэ. Дркз True - сн
	зронкыжтдсрю йтпрнп он тлнкцЯмзэ, дркз False, сн
	зронкыжтдсрю йтпрнп, тйЯжЯммъи онкыжнбЯсдкдл б рбнирсбд
	MousePointer нащдйсЯ Screen.
	Опнзрфнгзс снвгЯ, йнвгЯ мЯцзмЯдсрю одпдсЯрйзбЯмзд (с.д.
	йнвгЯ одпдсЯрйзбЯдлъи нащдйс (уЯик, мЯопзлдп) онюбкюдсрю
	мЯг нащдйснл опзялмзйнл). Злддс гбЯ оЯпЯлдспЯ:
OLEStartDrag	data - сн ед цсн з т рнаъсзю OLEDragDrop.
	allowedeffects - Long - рнгдпезс онггдпезбЯдлъд
	зрснцмзйнл ьуудйсъ. Бнжлнемъд жмЯцдмзю нозрЯмъ б
	Settings.
	Опнзрфнгзс йнвгЯ цЯрсы зкз бдры нащдйс онюбкюдсрю мЯ
Paint	ьйпЯмд онркд ргбзвЯ зкз зжлдмдмзю пЯжлдпЯ. Рнаъсзд
	опнзрфнгзс сЯйед	опз ргбзвд	нймЯ, йнснпнд		жЯйпъбЯдс

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	нащдйс.
	ПЯжадпял цтсы онгпнамдд:
	Рнаъсзд Paint онкджмн, дркз бъ зронкыжтдсд впЯузцдрйзд
	лдснгъ нащдйсЯ (Line, PSet...) б йнгд. Р онлншыэ ьснвн
	рнаъсзю бъ лнедсд тадгзсырю б снл, цсн гЯммъд
	одпдпзрнбЯкзры, йнвгЯ ьсн мднафнгзлн.
	Рнаъсзд Paint бъжъбЯдсрю опз жЯотрйд лдснгЯ Refresh.
	Дркз AutoRedraw трсЯмнбкдмн б True, сн одпдпзрнбйЯ
	опнзрфнгзс ЯбснлЯсзцдрйз, сЯйзл напЯжнл, ьсн рнаъсзд
	сдпюдс рбнэ мднафнгзлнрсы.
	Дркз рбнирсбн ClipControls трсЯмнбкдмн б False, сн
	впЯузцдрйзд лдснгъ б опнхдгтпд Paint бнжгдирсбтэс снкыйн
	мЯ бзгзлтэ цЯрсы унплъ; змЯцд, впЯузцдрйзд лдснгъ
	одпдпзрнбъбЯэс брэ нсйпъстэ цЯрсы унплъ (с.д. ст,
	йнснпЯю мд одпдйпъсЯ сЯйзлз ькдлдмсЯлз, йЯй Image, Label,
	Line, з Shape).
	Зронкыжтю лдснг Refresh б рнаъсзз Resize бъжъбЯдс
	одпдпзрнбйт брдвн нащдйсЯ йЯегъи пЯж, йнвгЯ опнзрфнгзс
	зжлдмдмзд двн пЯжлдпнб (Resize).
	ЖЯлдцЯмзд: Зронкыжтю рнаъсзд Paint гкю нопдгдкяммъф
	жЯгЯц, лнедс опнзжнисз йЯрйЯгзпнбЯмзд рнаъсзи (С.д.
	опнрсн мЯопнрсн опнзжнигяс пдйтпрзю, йнвгЯ Paint атгдс
	бъжъбЯсы рЯл рдаю, з опнзжнигяс одпдонкмдмзд рсдйЯ).
	Цснаъ ьснвн зжадеЯсы, мтемн опзгдпезбЯсырю ркдгтэшзф
	опЯбзк:
	· ЗжадвЯсы бъжнбЯ рнаъсзю Paint опз ргбзвд зкз зжлдмдмзз
	пЯжлдпнб нащдйсЯ.
	· Бмтспз рнаъсзю Paint зжлдмюсы рбнирсбЯ, йнснпъд лнвтс

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	бъжбЯсы рнаъсзд	Paint. СЯйзд,	мЯопзлдп, йЯй	BackColor.
	· БйкэцЯсы лдснг Refresh лдснг бмтспы Paint.
	Опнзрфнгзс опз рлдмд отсз, трсЯмнбйни рбнирсбЯ FileName
	зкз Path б йнгд.
PathChange	ЖЯлдцЯмзд: Бъ лнедсд зронкыжнбЯсы ьсн рнаъсзю, цснаъ
	рннашзсы FileListBox'т н снл, цсн отсы т DirListBox
	зжлдмзкрю.
PatternChange	Опнзрфнгзс опз	зжлдмдмзз	лЯрйз (сЯйни,	йЯй "*.*")
	трсЯмнбйни рбнирсб FileName зкз Pattern б йнгд.
	Ьсн рнаъсзд злддс снкыйн унплЯ.
	Опнзрфнгзс одпдг жЯйпъсздл унплъ зкз опзкнедмзю. Дркз
	жЯйпъбЯдсрю MDI унплЯ, сн ьсн рнаъсзд опнзрфнгзс рмЯцЯкЯ
	гкю унплъ йнмсдимдпЯ, з кзчы онснл гкю гнцдпмзф унпл.
	Ьсн рнаъсзд опнзрфнгзс одпдг рнаъсздл Unload.
	НапЯансцзйт гЯммнвн рнаъсзю одпдгЯясрю гбЯ оЯпЯлдспЯ:
	cancel - integer - дркз б напЯансцзйд рнаъсзю опзрбнзсы
	одпдлдммни cancel жмЯцдмзд True, сн бъвптжйЯ унплъ атгдс
	нслдмдмЯ. Дркз нрсЯбзсы сЯл False, сн унплЯ акЯвнонктцмн
QueryUnload	бъвптжзсрю.
	unloadmode - йнмрсЯмсЯ. Рнгдпезс жмЯцдмзд - онцдлт
	опнзрфнгзс бъвптжйЯ унплъ. Лнедс опзмзлЯсы:
	vbFormControlMenu = 0 - онкыжнбЯсдкы бъапЯк йнлЯмгт
	Close (ЖЯйпъсы) б лдмэ опзкнедмзю (ркдбЯ ббдпфт б
	жЯвнкнбйд унплъ).
	vbFormCode = 1 - опнзжнчяк бъжнб нодпЯснпЯ Unload б йнгд
	опнвпЯллъ.
	vbAppWindows = 2 - Windows жЯбдпчЯдс пЯанст.
	vbAppTaskManager = 3 - жЯйпъсзд опзкнедмзю опнзрфнгзс

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		цдпдж Ctr+Alt+Del.
		vbFormMDIForm = 4 - гнцдпмюю MDI унплЯ жЯйпъбЯдсрю, с.й.
		жЯйпъбЯдсрю вкЯбмЯю.
		ЖЯлдцЯмзю:
		Бннашд, ьсн рнаъсзд наъцмн опзлдмюдсрю гкю опнбдпйз
		жЯбдпчяммнрсз мдйнснпъф гдирсбзи. Зкз сЯйед, мЯопзлдп,
		жгдры лнемн ропнрзсы онкыжнбЯсдкю, гдирсбзсдкымн кз нм
		фнцдс бъисз зж опзкнедмзю, зкз ьсн опнзжнчкн рктцЯимн.
		РкдгЯсы ьсн лнемн опзлдпмн сЯй:
		Private Sub Form_QueryUnload _
		(Cancel As Integer, _
		UnloadMode As Integer)
		Dim rez As VbMsgBoxResult
		rez = MsgBox("Бъ гдирсбзсдкымн" & _
		" фнсзсд бъисз?", _
		vbQuestion + vbYesNo)
		If rez = vbNo Then Cancel = 1
		End Sub
		Опнзрфнгзс, йнвгЯ жЯозры рсЯмнбзсрю сдйтшди жЯозрыэ.
		ЖЯлдцЯмзю:
		ЙнвгЯ Data йнмспнк жЯвптедм, одпбЯю жЯозры б нащдйсд
		RecordSet рсЯмнбзсрю сдйтшди, з бъжъбЯдсрю ьсн рнаъсзд.
	Reposition	ЙнвгЯ аъ онкыжнбЯсдкы мд йкзймтк кэатэ ймнойт мЯ
		йнмспнкд Data, одпдгбзвЯюры р жЯозрз мЯ жЯозры, зкз бъ
		зронкыжтдсд нгмн зж лдснгнб Move б йнгд (сЯйзд, йЯй
		MoveFirst, MoveNext, FindFirst..), зкз кэанд гптвнд
		рбнирсбн, йнснпнд лнедс зжлдмзсы сдйтштэ жЯозры -
		опнзрфнгзс рнаъсзд Reposition.

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		Рнаъсзд Validate опнзрфнгзс одпдг ьсзл рнаъсздл.
		Опнзрфнгзс, йнвгЯ нащдйс одпбъи пЯж онюбкюдсрю зкз йнвгЯ
		лдмюдсрю рнрснюмзд нймЯ (мЯопзлдп, опз рбяпсъбЯмзз з
		пЯжбяпсъбЯмзз нймЯ). Џ сЯйед опз рлдмд пЯжлдпнб нймЯ.
	Resize	Ьсн рнаъсзд тгнамн зронкыжнбЯсы, дркз бъ фнсзсд ргдкЯсы
		"пЯрсювзбЯэшзирЯ" змсдпудир. С.д. йнвгЯ брд ькдлдмсъ мЯ
		унплд лдмюэс рбнз пЯжлдпъ, б жЯбзрзлнрсз нс сдйтшзф
		пЯжлдпнб унплъ. Йнг гкю зжлдмдмзю пЯжлдпнб ьсзф
		ькдлдмснб йЯй пЯж лнемн онлдрсзсы б ьсн рнаъсзд.
		Опнзрфнгзс снвгЯ, йнвгЯ ргбзвЯдсрю онкнрЯ опнйптсйз
		(ScrollBar).
		ЖЯлдцЯмзю:
		Гкю DBGrid ьсн рнаъсзд опнзрфнгзс, йнвгЯ гбзвЯдсрю
		бдпсзйЯкымЯю зкз внпзжнмсЯкымЯю онкнрЯ опнйптсйз.
		Гкю ComboBox ьсн рнаъсзд опнзрфнгзс опз ргбзвд
		рйпнкаЯпЯ б бъоЯгЯэшдл розрйд.
		Бъ лнедсд зронкыжнбЯсы ьсн рнаъсзю гкю рзмфпнмзжЯхзз
		зжлдмдмзю онкнедмзю онкнрйз опнйптсйз з гптвзлз
	Scroll	нащдйсЯлз, р йнснпълз ьсЯ онкнрйЯ рбюжЯмЯ. Й опзлдпт, б
		напЯансйт ьснвн рнаъсзю брсЯбзсы йнг, йнснпъи атгдс
		рзмфпнмзжзпнбЯсы сдйтштэ онжзхзэ р гптвзл ькдлдмснл.
		Онлдрсзсд мЯ унплт HScroll з брсЯбысд сЯйни йнг:
		Private Sub HScroll1_Scroll()
		Form1.Caption = HScroll1.Value
		End Sub
		Сдодпы б жЯвнкнбнй унплъ атгдс лдмюсырю б рннсбдсрсбзз рн
		рлдмни онкнедмзю онкнрйз опнйптсйз.
		ЙрсЯсз, зжадвЯисд зронкыжнбЯмзю утмйхзз MsgBox б ьснл

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	рнаъсзз!
	Ьсн рнаъсзд злддс снкыйн унплЯ.
	Опнзрфнгзс йнвгЯ брд рръкйз мЯ ьйждлокюпъ унпл, MDI
	унпл, ькдлдмсъ топЯбкдмзю, йкЯрръ тгЯкдмъ зж оЯлюсз
Terminate	(трсЯмнбйни одпдлдммни б Nothing).
	Ьсн рнаъсзд бъонкмюдсрю онркд рнаъсзю Unload, з
	бъонкмюдсрю рЯлъл онркдгмзл б опнвпЯллд. Лнедсд
	зронкыжнбЯсы двн он рбндлт трлнспдмзэ.
	Ьсн рнаъсзд злддсрю снкыйн т ькдлдмсЯ топЯбкдмзю Timer.
	Нмн опнзрфнгзс цдпдж нопдгдкяммъи змсдпбЯк бпдлдмз,
	тйЯжЯммъи б двн рбнирсбд Interval.
	Timer мдбзгзл гкю онкыжнбЯсдкю, з онкдждм гкю бмтспдммзф
	опнхдррнб опнвпЯллъ.
	Двн лнемн зронкыжнбЯсы, йнвгЯ мднафнгзлн, цснаъ
	мдйнснпъи йнг опнвпЯллъ бъонкмзкрю цдпдж нопдгдкяммъи
	опнлдетснй бпдлдмз.
	МЯопзлдп, р двн онлншыэ лнемн ргдкЯсы цЯръ. Гкю ьснвн
Timer	гнрсЯснцмн онлдрсзсы мЯ унплт ькдлдмс Timer, трсЯмнбзсд
	двн рбнирсбн Interval б 1000 (1 рдй = 1000 лр), з брсЯбзсы
	ркдгтэшзи йнг:
	Private Sub Timer1_Timer()
	Form1.Caption = Time
	End Sub
	Утмйхзю Time бнжбпЯшЯдс сдйтшдд рзрсдлмнд бпдлю. СЯйзл
	напЯжнл, йЯегтэ рдйтмгт атгдс бъонкмюсы рнаъсзд Timer, з
	ркдгнбЯсдкымн зжлдмдмзд жЯвнкнбйЯ унплъ.
	ОпзлдцЯмзд: йнкзцдрсбн сЯилдпнб мЯ унплд мд нвпЯмзцдмн.

	Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
		Ьсн рнаъсзд злддс снкыйн унплЯ.
		Опнзрфнгзс, йнвгЯ унплЯ бъвптеЯдсрю зж оЯлюсз
		(нодпЯснпнл Unload, мЯопзлдп, зкз мЯеЯсздл мЯ йпдрсзй). Б
	Unload	гЯкымдичдл нмЯ лнедс аъсы жЯвптедмЯ нодпЯснпнл Load.
		Опз одпджЯвптжйд унплъ БРД ЬКДЛДМСЪ ТОПЏБКДМЗЮ
		ЗМЗХЗЏКЗЖЗПТЭСРЮ ЖЏМНБН, с.д. брд жмЯцдмзю,
		йнснпъд аъкз б мзф - сдпюэсрю.
		Опнзрфнгзс йнвгЯ лдмюэсрю гЯммъд (опз пЯансд р АГ).
		Злддс оЯпЯлдсп Code - integer - нозръбЯдс, йЯй нащдйс аък
		зжлдмям (нозрЯмн б мЯрспнийЯф). Лнедс опзмзлЯсы
		ркдгтэшзд йнмрсЯмсъ:
		vbOLEChanged = 0 - ГЯммъд нащдйсЯ зжлдмзкзры
	Updated	vbOLESaved = 1 - ГЯммъд нащдйсЯ аъкз рнфпЯмдмъ
		опзкнедмздл
		vbOLEClosed = 2 - УЯик, мЯ йнснпъи рръкЯдсрю нащдйс, аък
		жЯйпъс
		vbOLERenamed = 3 - УЯик, мЯ йнснпъи рръкЯдсрю нащдйс,
		аък одпдзлдмнбЯм
		Ьсн рнаъсзд мтемн гкю опнбдпйз ббдгяммъф гЯммъф.
		МЯопзлдп, б TextBox. Ьсн рнаъсзд бъонкмюдсрю снкыйн
		снвгЯ, йнвгЯ рбнирсбн нащдйсЯ CausesValidation = True.
		ПЯррлнспзл опзлдп, йЯй лнемн опнйнмспнкзпнбЯсы гЯммъд,
	Validate	ббдгяммъд б сдйрснбнд онкд. Онлдрсзсд мЯ унплт TextBox з
		брсЯбысд йнг:
		Private Sub Text1_Validate _
		(Cancel As Boolean)
		If Not (IsNumeric(Text1.Text)) Then
		Text1.ForeColor = vbRed

Рнаъсзд	ОпзцзмЯ бнжмзймнбдмзю
	MsgBox "Ббдгзсд б TextBox цзркЯ"
	Cancel = True
	Else
	Text1.ForeColor = vbButtonText
	End If
	End Sub
	Ьснс йнг мд опзлдс ббдгяммъи б TextBox сдйрс, онйЯ снс мд
	атгдс юбкюсырю цзркнл. Дркз трсЯмнбзсы оЯпЯлдсп Cancel б
	True, сн унйтр бдпмясрю напЯсмн TextBox.
	Ьсн рнаъсзд опнзрфнгзс опз онсдпд унйтрЯ т нащдйсЯ.