Тема 2. Основы алгоритмизации и программирования
Тема 2.1. Базовые понятия программирования.
Приложение: prakt5.rar, ric_pr5
Занятие 9.2. Практическая работа 5 "Создание и выполнение проекта. Использование элементов управления"
Внимание! Во время работы с компьютером соблюдайте правила безопасности и санитарно-гигиенические нормы.
- Откройте среду Visual Basic 2010.
- Измените значения свойства формы на такие:
- Text = Практическая 5
- BackColor = MediumAquamarine
- Font= Microsof Sans...
- ForeColor = ControlText
- MaximizeBox= false
- Size = 580; 580
3. Разместите на форме:
- надпись (Label1), свойство Text используется для вывода текста и формирования надписей . Недоступно для пользователя.
- два текстовых поля (TextBox1, TextBox2), свойство Text используется для ввода и вывода текстовой информации. Доступно пользователю.
- кнопку (Button1).Используется для запуска, прерывания, окончания какого - либо процесса.
4. Измените значения свойства элементов управления на такие:
надпись (Label1)- свойства: |
два поля (TextBox1, TextBox2)- свойства: |
кнопку (Button1)- свойства: |
|
|
|
5. Разместите на форме область изображения PictureBox1. Измените значения ее свойств на такие:
6. Расположите в этой области изображение на свое усмотрение.
7. Разместите на форме еще одну область изображения. Значения свойств задайте на свое усмотрение.
8. Сохраните проект как prakt5 .
9. Выполните проект.
Дополнение: Изменение значений свойств Элементов Управления в программном коде.
Приложение ric_pr5a
Интерфейс проекта.
Окно программного кода:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Изменяем значения свойств ЭУ"
Me.BackColor = Color.Coral
PictureBox1.Hide()
PictureBox3.Show()
TextBox1.Text = "Me.BackColor = Color.Coral"
TextBox2.Text = " PictureBox1.Hide(),PictureBox3.Show() "
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = ""
Me.BackColor = Color.MediumAquamarine
PictureBox1.Show()
PictureBox3.Hide()
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
вверх
занятие 9.3
назад
|