Тема 2. Основы алгоритмизации и программирования
Тема 2.1. Базовые понятия программирования.

Приложение: prakt5.rar, ric_pr5

Занятие 9.2.  Практическая работа 5 "Создание и выполнение проекта. Использование элементов управления"

Внимание! Во время работы с компьютером соблюдайте правила безопасности и санитарно-гигиенические нормы.

1. Откройте среду Visual Basic 2010.
2. Измените значения свойства формы на такие:

• ​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

назад

• 2017 Февраль