Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 64 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

64
ные кнопки (CommandButton1, CommandButton2, CommandButton3), две
метки (Label1, Label2).
3. Задать свойства объектам управления, используя окно Properties (Свой-
ства). Свойства объектов приведены в табл. 8.
4. Записать программный код для командной кнопки КнопкаПросмотр,
поместив в событие Click () операторы:
Private Sub КнопкаПросмотр_Click()
Рисунок . Picture = LoadPicture (ИмяРисунка . Text)
End Sub
Таблица 8
Объекты, свойства и события элементов управления
Объект
управле-
ния
Обозначе-
ние объек-
та управ-
ления по
умолча-
нию
Имя объекта
управления
(Name)
Свойства
объекта
управле-
ния
Обрабатываемое
событие
Форма Form1
РисунокНа-
Форме
Caption –
Рисунок на
Форме
Нет
Команд-
ная Кно-
пка 1
Command-
Button1
КнопкаПро-
смотр
Caption -
Просмотр
Проверяет корректность
вводимых данных в окно
ИмяРисунка, выводит ри-
сунок в окно рисунка
Команд-
ная Кно-
пка 2
Command-
Button2
КнопкаОтмена
Caption-
Отмена
Click – очищает поля для
ввода новых данных и пе-
редает фокус объекту-поле
ИмяРисунка
Команд-
ная Кно-
пка 3
Command-
Button3
КнопкаКонец
Caption -
Конец
Click – Выход из програм-
мы
Текстовое
Поле
Text1 ИмяРисунка Нет
Графиче-
ское Ок-
но
PictureBox Рисунок Нет Нет
Метка 1 Label1 По умолчанию
Caption –
Рисунок
Нет
Метка 2 Label2 По умолчанию
Caption –
Введи имя
рисунка
Нет
5. Записать программный код для командной кнопки КнопкаОтмена, по-
местив в событие Click() операторы:
Private Sub КнопкаОтмена_Click()
Рисунок . Picture = LoadPicture()
ИмяРисунка . Text = " " 
                                        64
   ные кнопки (CommandButton1, CommandButton2, CommandButton3), две
   метки (Label1, Label2).
3. Задать свойства объектам управления, используя окно Properties (Свой-
   ства). Свойства объектов приведены в табл. 8.
4. Записать программный код для командной кнопки КнопкаПросмотр,
   поместив в событие Click () операторы:
                   Private Sub КнопкаПросмотр_Click()
                   Рисунок . Picture = LoadPicture (ИмяРисунка . Text)
                   End Sub
                                                             Таблица 8
            Объекты, свойства и события элементов управления
            Обозначе-
            ние объек-                       Свойства
  Объект                 Имя объекта
            та управ-                        объекта          Обрабатываемое
 управле-                управления
             ления по                        управле-            событие
   ния                     (Name)
             умолча-                           ния
               нию
                                         Caption  –
                         РисунокНа-
Форма       Form1                        Рисунок на                  Нет
                         Форме
                                         Форме
                                                    Проверяет     корректность
Команд-
         Command-        КнопкаПро-      Caption  - вводимых данных в окно
ная Кно-
         Button1         смотр           Просмотр   ИмяРисунка, выводит ри-
пка 1
                                                    сунок в окно рисунка
                                                    Click – очищает поля для
Команд-
         Command-                        Caption-   ввода новых данных и пе-
ная Кно-                 КнопкаОтмена
         Button2                         Отмена     редает фокус объекту-поле
пка 2
                                                    ИмяРисунка
Команд-
         Command-                        Caption        - Click – Выход из програм-
ная Кно-                 КнопкаКонец
         Button3                         Конец            мы
пка 3
Текстовое
          Text1          ИмяРисунка                                  Нет
Поле
Графиче-
ское Ок-    PictureBox   Рисунок               Нет                   Нет
но
                                         Caption –
Метка 1     Label1       По умолчанию                                Нет
                                         Рисунок
                                         Caption –
Метка 2     Label2       По умолчанию    Введи имя                   Нет
                                         рисунка

5. Записать программный код для командной кнопки КнопкаОтмена, по-
   местив в событие Click() операторы:
                     Private Sub КнопкаОтмена_Click()
                     Рисунок . Picture = LoadPicture()
                     ИмяРисунка . Text = " "

Страницы