Приложение:  fotoalbom.rar
cpicki.rar

Занятие 23.1.1  

Пример 1. Проект "Приветствие" (по страницам Интернет)

Создайте проект,  который отображает приветствие  на языке той страны, которую выбирают из списка. Для выбора одного из пяти языков использовать структуру Select Case.

1. Создайте новый проект c именем "Приветствие".

2. Создайте интерфейс по образцу.

3. Установите свойства объектов в соответствии со следующей таблицей.

4. Теперь нужно написать программный код для заполнения списка. Сделайте двойной щелчок мышью на форме.
   В Редакторе кода появится процедура события Form1_Load. Для заполнения списка введите следующий код:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Англия")
        ListBox1.Items.Add("Германия")
        ListBox1.Items.Add("Мексика")
        ListBox1.Items.Add("Италия")
        ListBox1.Items.Add("Россия")
    End Sub

Для добавления элементов в список формы эти строки используют метод Add объекта список.

5. Сделайте двойной щелчок мышью на объекте списка (ListBox1)  в вашей форме, чтобы отредактировать его процедуру события.
   В Редакторе кода появится процедура события ListBox1_SelectedIndexChanged.
   Для обработки выбора, сделанного пользователем в списке, введите следующие строки:

• Первая строка кода отображает текст выбранного элемента списка в надписи Label2 (присваивает свойству Label2.Text  значение свойства ListBox1.Text, которое содержит текст элемента, выбранного в списке.)

• Остальные строки являются частью оператора выбора Select Case. Оператор Select Case тестирует значение свойства ListBox1.SelectedIndex (номер выбранного элемента списка), определяет,  порядковый номер строки, которую  выбрал пользователь, и выводит соответствующее приветствие в надписи Label3  (изменяет значение свойства Label3.Text).

7. Напишите программный код для кнопки "Выход". Для этого перейдите в режим конструктора  и сделайте двойной щелчок мышью на кнопке Выход. В Редакторе кода появится процедура события Button1_Click.Введите в этой процедуре один оператор: End .

8. Чтобы сохранить изменения, щелкните на кнопке Сохранить все  на стандартной панели инструментов.

9. Теперь запустите программу и посмотрите, как она работает.В списке Выберите страну щелчком мыши выберите название  страны.  Программа должна ниже под списком отобразить название страны и приветствие на языке этой страны.

Пример 2.  Проект «Фотоальбом»

Задание предполагает создание фотоальбома из n - фотографий.
Работает фотоальбом следующим образом:

1. В списке (ListBox1) справа указываются названия фотографий.

2. В раскрывающем списке (ListBox1)) выбираем название требуемой фотографии.

3. Выбранная фотография отображается в PictureBox1 

Для создания Фотоальбома выполните следующие действия

1. В своей папке создайте папку «Фотоальбом» и скопируйте туда n изображений (фотографий).
2. В этой папке создайте проект Visual Basic. Для этого запустите Visual Basic, создайте новый проект, зайдите Файл - Сохранить проект как… .В появившемся окне выберите Вашу папку и сохраните в нее файл формы Form1 и файл проекта Project1.
3. Задайте следующие свойства форме Form1 

• Text  – Фотоальбом
• BackColor - WhiteSmoke (белый)
• FormBorderStyle –FixedDialog

​      4.  Поместите на форму объект PictureBox1, задайте ему следующие свойства:

• SizeMode - AutoSize.  Размер объекта PictureBox1, будет подгоняться под размер изображения
  

1. Поместите на форму объект Label1 под объект PictureBox1, и задайте ему следующие свойства:
   • TextAlignment – MiddleCenter
   • BackColor - HighlightText
   • Font

Шрифт – MS San Serif
Начертание – жирный
Размер – 14

• ForeColor - Blue

 2. Поместите объект ListBox1  рядом с объектом PictuteBox1 и в его свойстве Items  задайте n наименований изображений.

​ 

 Поместите объект ImageList1 в любом месте формы.  И в его свойстве Images перейдите в окно Редактора коллекции  изображений:  задайте n-е количество наименованных изображений.

Окно программного кода

1. Создайте событие -ListBox1_SelectedIndexChanged-  выбор элемента списка. 

2. Для перебора вариантов используется оператор Выбор:   Select Case (Если)

3. Выбор производится в зависимости от выбранного индекса элемента свойства SelectedIndex  объекта ListBox1:

•  Select Case ListBox1.SelectedIndex

Private Sub ListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles List1.SelectedIndexChanged

        Select Case ListBox1.SelectedIndex
            Case 0
                PictureBox1.Image = ImageList1.Images(0)
                Label1.Text = "настроение"
            Case 1
                PictureBox1.Image = ImageList1.Images(1)
                Label1.Text = "щенок"
            Case 2
                PictureBox1.Image = ImageList1.Images(2)
                Label1.Text = "наседка"
            Case 3
                PictureBox1.Image = ImageList1.Images(3)
                Label1.Text = "Ник"
            Case 4
                PictureBox1.Image = ImageList1.Images(4)
                Label1.Text = "Алла Пугачева"
            Case 5
                PictureBox1.Image = ImageList1.Images(5)
                Label1.Text = "Алла Пугачева"
            Case 6
                PictureBox1.Image = ImageList1.Images(6)
                Label1.Text = "Алла Пугачева"
            Case 7
                PictureBox1.Image = ImageList1.Images(7)
                Label1.Text = "малыш"
                
            Case 8
                PictureBox1.Image = ImageList1.Images(8)
                Label1.Text = "щеночек"
        End Select
        
    End Sub

Занятие 24

• 2017 Февраль