<5>7-расм. Кодлар ойнасининг кыриниши.
Кодлар майдонида =уйидаги матнни кыришимиз мумкин:
Private Sub Command1_Click()
End Sub
Бу кодлар сатрини Visual Basic автоматик тарзда щосил =илган. Бу ерда Command1_Click() - процедуранинг номидир. Процедуранинг номи щодиса ёзилаётган объектнинг Name хусусиятида берилган номи билан ходисанинг номини =ышилиб ёзилишидан иборатдир: Command1 – Объектнинг номи, Click() – ходисанинг номи (тугманинг босилиши). Процедуранинг матни эса Sub ва End Sub операторлари орали\ида жойлашади.
Объект хусусиятларини хусусият ойнаси ёрдамида ызгартиришдан таш=ари кодлар ёрдамида ызгартирса былади. Фа=ат бу ызгартиришлар маълум щодиса учун ёзилади ва дастур иши давомида ыша щодиса бажарилгандагина амалга ошади.
Ходисаларнинг айримлари билан танишиб чи=амиз:
Ходиса номи
|
Вазифаси
|
Click
|
Жорий объектда сич=онча тугмаси босилганда
|
DblClick
|
Жорий объектда сич=онча тугмаси икки марта тез босилган
|
Change
|
Жорий объектдаги матн ызгартирилган
|
MouseMove
|
Жорий объект устида сич=онча юргизилганда
|
MouseDown
|
Жорий объект устида сич=она тугма босилганда
|
MouseUp
|
Жорий объектда сич=он тугмаси босиб =ыйиб юборилганда
|
GotFocus
|
Жорий объект активлашганда (курсор ырнатилганда)
|
LostFocus
|
Жорий объект активлашгандан кейин навбатдаги объект активлаштирилганда (курсор йы=отилганда)
|
Мисол учун, аввалги мисолда, Салом Visual Basic сызини Label объектида щосил =илинган эди. Энди код ёрдамида унинг =уйидаги хусусиятларини ызгартириб кырамиз. CommandButton объекти учун Click ходисасини =ыллаймиз.
Объектдаги ёзувни, ёзувнинг объектда жойлашиш ырнини (Alignment), ор=а фон рангини (BackColor), шрифт ылчамини (Font.Size) код ёрдамида ызгартириш =уйидагича амалга оширилади:
Private Sub Command1_Click()
Label1.Caption = "Салом Visual Basic !!!"
Label1.Alignment = vbCenter
Label1.BackColor = vbBlue
Label1.ForeColor = vbYellow
Label1.Font.Size = 18
End Sub
тугмасини босиш билан дастур ишга тушади. Формадаги «Bajarish» тугмаси босилганда натижани кыришимиз мумкин.
назорат учун саволлар
Visual Basic да хусусиятлар ойнасининг вазифаси нимадан иборат?
Visual Basic да ходиса ва услуб деганда нимани тушунасиз?
ходисага мисол келтиринг ва жавобингизни изохлар беринг.
|
