VB 17. Дополнительные функции

Выполнение:

1. Создайте новый проект. Поместите на новую форму кнопку Щелкни по мне! Как показано на рисунке (рис. 17.1).

2. Добавьте в модуль формы описание следующих API функций:

Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As Point) As Integer
 
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer

GetСursorСos – считывает текущую позицию курсора,

SetCursorPos – устанавливает курсор в указанную позицию,

3. Измените заголовок формы и ее иконку, для этого задайте изображение для свойства Icon формы (выберите подходящую иконку в памяти компьютера).
4. Теперь необходимо, чтобы, как только курсор мыши оказывался над кнопкой, то сразу перемещался и не давал пользователю возможности щелкнуть по ней; к примеру, перемещался бы в произвольное место экрана. Для этого подходит событие кнопки MouseMove, которое генерируется, когда курсор мыши перемещается по кнопке. Запрограммируйте его следующим образом:

SetCursorPos(Rnd() * Me.Height, Rnd() * Me.Width)

Курсор будет установлен в произвольном месте по ширине и высоте формы, но не кнопки.

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

Dim Курсор As Point
GetCursorPos(Курсор)
Курсор.X = Курсор.X + Rnd() * 160 - 80
Курсор.Y = Курсор.Y + Rnd() * 160 - 80
SetCursorPos(Курсор.X, Курсор.Y)

6. Добавим к приложению сообщение, которое будет выводиться, когда пользователь будет пытаться закрыть его. Для этого в событие FormClosing формы необходимо вставить следующий код:

MsgBox("Да, забыл Вас предупредить, что если Вам не удастся щелкнуть по кнопке, то Вы отдаете 100$ мне!")

7. Запустите и отладьте приложение. Сохраните его.

Button1.Location = New System.Drawing.Point(курсор.X / 2, курсор.Y)