End Sub. 7. Запустите приложение на выполнение (F5)

 

7. Запустите приложение на выполнение (F5). Проверьте его работоспособность.

8. Закройте запущенное приложение.

Разработанное приложение работает не совсем эффективно – при запуске приложения всегда выбран компонент OptionButton1 и видна первая картинка. Усовершенствуем приложение.

9. Добавьте на форму два компонента CommandButton и установите свойства приложения согласно Таблице 3.2. После установки свойств форма приобретает вид, как на Рис.3.2.

Таблица 3.2 – Свойства компонентов усовершенствованного приложения «Просмотр картинок»

Компонент Свойство Значение
OptionButton1…OptionButton3 Visible False
CommandButton1 Caption Начать просмотр
Name Cmd1
Style 1-Graphical
CommandButton2 Caption ВЫХОД
Name Cmd2
Visible False
Style 1-Graphical
Свойство Font и BackColor установите у компонентов CommandButton по своему усмотрению

10. Выберите компонент CommandButton1(кнопка «Начать просмотр»), щелкните по ней два раза и напишите в открывшемся окне программного кода обработчик события Click (необходимые комментарии приведены после знака апострофа):

Private Sub Cmd1_Click()

Opt1.Visible = True 'видна первая кнопка

Opt2.Visible = True 'видна вторая кнопка

Opt3.Visible = True 'видна третья кнопка

Cmd2.Visible = True 'видна кнопка "Выход"

Cmd1.Enabled = False 'кнопка "Начать просмотр" становится недоступной








Дата добавления: 2015-06-12; просмотров: 589;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.