У правляющие элементы и их свойства Элементы CheckBox и OptionBatton

Часто пользователю при работе с программой требуется выбрать лишь один из нескольких предложенных вариантов.

1. Открой новый проект и дважды щелкни по инструменту CheckBox

2. Растяни элемент и повтори еще дважды.

3. Расположи элементы точно друг под другом с помощью меню Format и нажми клавишу F5.

4. А теперь дважды щелкни по элементу OptionBatton(переключатель)

5. Расположи эти два элемента один под другим справа от трех элементов CheckBox и запусти программу.

6. Присвой верхнему элементу OptionBatton имя optman, а в строке Caption укажи Мужской

7. Нижнему элементу присвой имя optFeminine, а в строке Caption укажи Женский.

8. Дважды щелкнув мышью верхний элемент, перейди в окно программного кода.

9. Введи в открывшийся каркас программы текст: MsgBox “Вы мужчина”

==================================================

Элемент ListBox (Окно списка)

Элементы ScrollBars (полосы прокрутки)

Элементы ScrollBars (полосы прокрутки)

Эти элементы позволяют просматривать текст и вводить значения. Бывают два вида полос прокрутки: горизонтальная и вертикальная. Рассмотрим горизонтальную полосу.

1. Создай новый проект, присвой форме имя frmScroll, размести в форме управляющий элемент ScrollBar.Присвой ему имя hsbScroll.

2. Под полосой прокрутки размести элемент Label (с именем lblScroll).

3. Измени свойства элемента Label. Для этого в поле свойств Aligment (выравнивание) задай значение 2-Center, удали заголовок в поле Caption и в поле BorderStyle значение 1- Fixed single.

4. Измени также элемент ScrollBar. Задай свойства Min равным 1, а Max -100. Так определяется диапазон значений, которые можно просматривать с помощью полосы прокрутки.

5. Установленное значение в окне полосы прокрутки программа должна показывать в окне Label. Для этого в окне программного кода введем строку: lblScroll.Caption = hsbScroll.Value , что означает «Поставить заданное значение в полосе прокрутки в текстовое поле Label. Выполни программу (F5).

6. Хотелось бы при запуске программы видеть в поле Label начальное значение полосы прокрутки. Для этого дважды щелкни форму мышкой в том месте, где нет управляющих элементов и введи в каркас программы такую же строку: lblScroll.Caption = hsbScroll.Value. Выполни программу (F5).

Элементы PictureBox и Image

Эти управляющие элементы служат для вывода на экран изображения (графики, значки…)

В связи с этим они являются основой всех рисованных компьютерных игр.

1. Создай новый проект и назови форму frmGraphic.

2. Расположи в форме управляющий элемент PictureBox (окно рисунков) и управляющий элемент Image (изображение)

3. управляющему элементу PictureBox присвой имя PicPicture.

4. В свойстве Picture этого элемента нажми на кнопку с многоточием. В открывшемся диалоговом окне выбери нужный графический файл.

5. Изменить размер картинки в окне PictureBox невозможно. Для этой цели служит элемент Image.

6. Щелкни по элементу Image, присвой ему имя imgImage, а в свойстве Picture выбери это же изображение.

7. Изменять размер здесь можно как угодно, если в свойстве Strech (подгонка) задано значение True

Таймер

Таймер – это элемент, без которого никак не обойтись разработчикам игр (а многим хочется ими быть).

Таймер может с помощью функции

Private Sub tmrTimer_Timer()

End Sub вызывать через определенные промежутки времени некоторые события, например, перемещать по экрану космический корабль так, чтобы создавалась иллюзия его полета.

Напишем приложение «Секундомер».

Создай проект, назови форму frmсекундомер, а в поле свойства Caption введи Секундомер. Щелкни значок Timer.

В окне свойств необходимо задать два свойства таймера:

1. Enabled (доступ) значение False;

2. Interval (интервал) - 1000

В качестве имени таймера мы укажем tmrTimer.

Таймер мы будем приводить в действие кнопкой Старт. А св-во Interval позволяет генерировать одно событие приблизительно через секунду.

Создай две командные кнопки &Start и Sto&p.

И, наконец, необходимо добавить управляющий элемент Label, в нем будет выводится время на экран.

Назови элемент Label – lblTime и задай для свойства Capition значение 0 (оно будет стартовым значением для секундомера). Размести текст в поле Label по центру (св-во Aligment).

Напишем несколько строк программного кода.

Мы хотим, чтобы при нажатии кнопки Start секундомер начал работать. Его работа регулируется свойством Enabled управляющего элемента Timer, т.е. если задано значение True, часы идут, а если False, то они стоят.

Щелкни дважды кнопку Start и в каркас программы впиши команду:

Private Sub cmdStart_Click()

tmrTimer.Enabled=True

end sub

Программный код для кнопки Stop:

Private Sub cmdStop_Click()

tmrTimer.Enabled=False

end sub

Осталось организовать вывод значения времени в поле элемента Label, т.е. когда таймер активен, значение поля увеличивалось на 1.

Private Sub tmrTimer_Timer()

lblTime.Caption= lblTime.Caption + 1

end sub

Задание:

1. Добавить возможность установки секундомера на 0. Добавьте для этого кнопку Сброс.

2. Измените значение св-ва Enabled управляющего элемента Timer c 1000 на 100, чтобы таймер генерировал событие каждую десятую долю секунды.