Вторник, 12.11.2019, 16:46
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк
        Приложение: okno_msg.rar ;
  Занятие 13.1.  Ввод / вывод информации . Создание горизонтального меню 

Пример 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

назад
Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz