Материал: 1319

На форме расположена метка, в которой выводится текущее время. При загрузке формы включается таймер и идет посекундный отсчет времени. Внешний вид формы показан на рис. 23.

Воспользуемся функцией Timer, которая возвращает число секунд,

d = Timer

While Timer < d + 1 ‘делаем паузу в 1 секунду DoEvents ‘ожидание наступления события

Wend Wend

End Sub

Пример 18

На форме расположены: рисунок с автомобилем, рисунок с гаражом, две кнопки «В гараж» и «Из гаража» на одном и том же месте (видна только кнопка «В гараж»). При нажатии на кнопку «В гараж» автомобиль начинает движение к гаражу, как только он доезжает до гаража, картинка гаража заменяется на картинку с открытыми воротами, автомобиль продолжает движение пока не въедет в гараж, останавливается, ворота закрываются (картинка с гаражом заменяется на прежнюю), кнопка «В гараж» становится невидимой, а кнопка «Из гаража» – видимой. Аналогичные действия происходят при нажатии на кнопку «Из гаража», только движение осуществляется в другую сторону и рисунок автомобиля повернут в другую сторону. Внешний вид формы до начала работы программы показан на рис. 24.

41

End Sub

_______________________________________________________________________________________________________

Image1.Picture = LoadPicture(“C:\машина2.bmp”) Image1.Visible = True ‘показываем рисунок

‘загружаем рисунок гаража с открытыми воротами

Image2.Picture = LoadPicture(“C:\гараж2.bmp”) ‘автомобиль выезжает из гаража

While Image1.Left > Image2.Left – Image1.Width Image1.Left = Image1.Left – 5

start = Timer

While Timer < start + 0.1 DoEvents

Wend Wend

‘загружаем рисунок гаража с закрытыми воротами

Image2.Picture = LoadPicture(“C:\гараж1.bmp”) ‘продолжаем движение автомобиля до левого края формы

While Image1.Left > 1 Image1.Left = Image1.Left – 5 start = Timer

While Timer < start + 0.2 DoEvents

Wend Wend

CommandButton1.Visible = True

CommandButton2.Visible = False End Sub

Пример 19

На форме расположены список с названиями месяцев, поле и метка с пояснительным текстом. При помощи мыши из списка перетаскивают в поле необходимый элемент, выделенный в списке. При неправильном действии, т.е. перетаскивании не в поле, происходит вывод предупреждающего сообщения. Список формируется при активации формы из значений на рабочем листе

43

Excel. Внешний вид формы после перемещения и диалоговое окно показаны на рис. 25.

Рис. 25. Внешний вид формы и диалогового окна

Для реализации данного проекта необходимо использовать технологию DragAndDrop (прил. 2), позволяющую перемещать объекты. Когда пользователь захватывает выбранный им элемент списка, то возникает некоторое событие, в нашем примере это событие

MouseMove.

Private Sub UserForm_Activate() Dim i As Byte

‘формируем список значениями из ячеек рабочего листа

For i = 1 To 12 ListBox1.AddItem (Cells(i, 1)) Next i

End Sub

_______________________________________________________________________________________________________

Private Sub ListBox1_MouseMove(ByVal Button As Integer)

Dim D As DataObject

‘создает новый объект и связываем его с переменной D Set D = New DataObject

‘копируем содержимое выбранного элемента списка ‘в текстовую строку

D.SetText ListBox1.Value

R = D.StartDrag ‘результат операции ‘если переместили не на текстовое поле

44

If R = 0 Then MsgBox (“Ошибка. Повторите операцию!”) End If

End Sub

Пример 20

На форме расположена кнопка «Начать», нажатие на которую выводит на экран предупреждающее диалоговое окно с текстом «Нажмите кнопку» и кнопкой «ОК» (рис. 26).

Рис. 26. Внешний вид формы и диалогового окна

После нажатия кнопки «ОК» появляется диалоговое окно с текстом «Начать?» и кнопками «Да» и «Нет». Если пользователь нажал кнопку «Да», то у него запрашивается его имя. Затем, если пользователь ввел имя, выводится информационное диалоговое окно с приветствием, в противном случае выводится предупреждающее диалоговое окно с соответствующим сообщением (рис. 27).

Рис. 27. Внешний вид диалоговых окон и окна ввода

45