Матеріали до теми 3.5. та до теми 3.6.
Створення процедур, що змінюють
значення властивостей об’єкта.
Приклад фрагменту процедури для кнопки Command
Button1, яка відбудеться при кліканні по ній.
Private Sub Command1_Click()
........
End Sub
Щоб задати значення властивості в коді VISUAL BASIC, застосовують оператор
присвоєння. Він призначений для надання певного значення певній змінній. Код
оператора присвоєння схожий на звичайне рівняння:
<Ім'я об'єкта><номер>.<властивість>=<значення>
Спочатку обчислюється значення виразу, який записано праворуч від символу =,
а потім це значення надається змінній, що вказана ліворуч від цього символу.
1. Простий приклад з
CommandButton
Встановлено на форму дві CommandButton з властивостями Пуск і Кінець відповідно.
Процедура для кнопки Пуск, при кліканні на цій кнопці виводитькя текст "Вітаю! Ти програміст!"
Private
Sub Command1_Click ()
MsgBox
"Вітаю! Ти програміст!"
End Sub
Процедура для кнопки
Private
Sub Command2_Click () 'завершує програму
End
End Sub
2. Простий приклад з Label
Встановлено на форму дві кнопки та напис
Процедура для кнопки Пуск, при кліканні на цій кнопці виводиться текст "Вітаю! Ти програміст!" у написі.
Private
Sub Command1_Click ()
Label1.Caption
= "Вітаю! Ти програміст!"
End Sub
Процедура для кнопки Очистити,
Private
Sub Command2_Click ()
Label1.Caption
= " "
End Sub
3. Простий приклад з TextBox
б) Встановлено на форму одну кнопку та поле.
Процедура для кнопки Вивести,
Private
Sub CommandButton1_Click()
MsgBox
"Ми ввели текст " & TextBox1.Text
End Sub
Кілька прикладів
зміни властивості елементів керування та самої форми:
1. Надати формі ім'я
“Мій проект”
Me.Caption = “Мій проект”
2. Перемістити напис1
на 50 пікселів вниз, та змінити колір на червоний
Label1.Top = Label1.Top +50
Label1.BackColor = vbRed
3. Змінити розміри
текстового поля2 на 10*10 пікселів
TextBox2.Width = 10
TextBox2.Plight = 10
4. Зробити картинку1
невидимою
Image1.Visible = False