6. Последние штрихи

Программа уже почти готова, остались последние штрихи. Во-первых, еще не запрограммировали кнопку ВЫХОД. Дважды щелкните на ней и впишите в текст созданной процедуры единственный оператор:

End

Во-вторых, надо сделать так, чтобы случайные числа не повторялись. Для этого надо создать процедуру обработки загрузки формы Form_Load. Добавьте в нее оператор:

Randomize Timer

Для самостоятельной работы

Создайте еще 2 кнопки, которые будут регулировать скорость кнопки: Медленнее и Быстрее.

Лабораторная работа № 8

«КАК ИЗ ПОМИДОРА СДЕЛАТЬ ГРУШУ»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 CommandButton, научиться пользоваться элементами управления и их свойствами

Задачи: Создать по пунктам лабораторной работы кнопку, которая при перетаскивании меняет рисунок.

Ход работы:

В программе будет всего один объект – командная кнопка. Но эта кнопка будет необычная, графическая с картинкой. Ее и можно будет перетаскивать. Как и куда будет переноситься кнопка, в общем все равно. Но в процессе перетаскивания на кнопке будут изменяться картинки. Чтобы на кнопке могли отображаться картинки, их надо подготовить заранее.

1. Создаем форму

Запустите программу VB и создайте новый проект. Сохраните его под именем Трансформер. Выберите компонент «Командная кнопка» и нарисуйте командную кнопку в любом месте формы методом протягивания.

Нужно оформить кнопку как графическую и подобрать для нее подходящие размеры. Для этого изменим ряд ее свойств. Сначала подберем размеры. Чтобы размеры кнопки соответствовали величине рисунков зададим для свойств Width (Ширина) и Height (Высота) значение 1400. Затем надо указать, что у кнопки может быть рисунок, то есть кнопка графическая. Для этого надо выбрать для свойства Style (Стиль) значение 1- Graphical (Графическая).

Надпись на кнопке не нужна. Удалите ее. Рисунок на кнопке задается свойством Picture (Рисунок). Щелкните на этом свойстве, а затем по кнопке, откроется диалоговое окно Load Picture (Загрузить рисунок). С его помощью откройте папку C:\WINDOWS\ Кофейня. bmp, выберите его и щелкните на кнопке Открыть.

2. Начало перетаскивания

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

Чтобы начать перетаскивание нужно использовать другое событие: MouseDown (Нажатие кнопки мыши). Щелкните на графической кнопке правой кнопкой мыши. Выберите в открывающемся контекстном меню пункт View Code (Показать код). В окне кода выберите в списке справа событие MouseDown. Система VB создает обработчик этого события – процедуру Command1_MouseDown.

В эту процедуру передаются параметры X и Y. Они указывают положение указателя в момент нажатия кнопки мыши в пределах объекта. Поэтому объявим в области общих описаний переменные cx и cy.

Dim cx As Single, cy As Single

В процедуре Command1_MouseDown запишите в эти переменные текущие координаты указателя мыши:

cx=X

cy=Y

В начале перетаскивания должна произойти первая трансформация кнопки – рисунок на ней изменяется. Чтобы изменить рисунок, надо изменить свойство Picture (Рисунок) вашего объекта. Записать туда новое изображение можно с помощью функции LoadPicture. Нужный оператор будет выглядеть так:

Command1.Picture = LoadPicture("C:\WINDOWS\Кофейня.bmp")

Теперь нужно сообщить программе что начинается перетаскивание. Это делается с помощью метода Drag для перетаскивания объекта. Этому методу надо передать один параметр – специальную константу:

Command1.Drag vbBeginDrag