Пример 1.

Рассмотрим применение в программном коде проекта "Кассовый чек" для вывода стоимости покупки окна сообщений .

Помним:  Синтаксис вызова окна сообщений:

MessageBox.Show("текстовые сообщения" )                   'вывод текстовой информации.

MessageBox.Show("текстовое сообщение " & str(c) )     ' вывод как текстовых сообщений так и данных из адресов памяти.

Интерфейс проекта.

Программный код.

           Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim c, n, s As Single 

s = Val(InputBox("введите стоимость единицы товара ", "стоимость единицы товара ")) 

n = Val(InputBox("введите количество товара", "количество товара "))

c = n * s

MessageBox.Show("Стоимость покупки " & (c) & " грн.")

End Sub

ИТОГ:

 

Пример 2.

Создать проект , исполнение которого дает возможность установить произвольный цвет окна и увеличить его высоту на произвольное целое количество пикселей.  Для ввода данных  используем системное окно InputBox .  (проект: project2_ a_ vvod_ vuvod)

Интерфейс проекта:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Me.Hide()       ' метод Hide скрывает элемент управления от пользователя'         Form2.Show()      'метод Show отображает элемент управления  для пользователя'     End Sub     PS!!!            Метод - фрагмент программного кода, встроенного в объект.

 

Пример 3. Разработка проекта с использованием элемента управления MenuStrip  (горизонтальное меню)

Интерфейс проекта:

1. Свойства формы →
2. При установке на форму элементов управления PictureBox 1-3, значение свойства Visible устанавливаем в false

Программный код

Ввод данных в проекте выполняем с  использованием функции  InputBox:

Этапы создания горизонтального меню.

1. Выбор элемента на панели ЭУ. Установка на форму.

1     1.

Выбираем цвет фона меню, допустим BackColor = Beige

2. Формируем название команд и уровни их вложения.

 

Меню Ввод анкетных данных горизонтального меню →Запуск команд запроса информации:

   Private Sub ВводАнкетныхДанныхToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВводАнкетныхДанныхToolStripMenuItem.Click

        Label5.Text = InputBox("Введите адрес", "Ввод/вывод данных. Горизонтальное меню")
        Label6.Text = InputBox("Введите данные", "Ввод/вывод данных. Горизонтальное меню")
        Label7.Text = InputBox("Введите дату рождения", "Ввод/вывод данных. Горизонтальное меню")
        Label8.Text = InputBox("Введите контактные телефоны", "Ввод/вывод данных. Горизонтальное меню")

    End Sub

 

Меню Выбор фотографий →Выбор выполнения команд:

Private Sub ХудожественнаяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ХудожественнаяToolStripMenuItem.Click

        PictureBox2.Show()
        PictureBox3.Hide()

    End Sub

   Private Sub ПортретнаяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПортретнаяToolStripMenuItem.Click
        PictureBox2.Hide()
        PictureBox3.Show()
    End Sub 

Мен Очистить:
Private Sub ОчиститьToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""
        PictureBox3.Hide()
        PictureBox2.Hide()
    End Sub

Меню Выход:

  Private Sub ВыходToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        End
    End Sub

 

занятие 14

назад