Каталог статей

Написание деструктивных кодов и шуток на VB. Глава 2

Я думаю, все сталкивались с такой штукой, когда хочется посмеятся над ламеров, когда ты сам ничего плохого не умеешь. Я здесь напишу и распишу вам простенькую программку скрытия курсора!

Начнем с того, что все элементы (как загрузить в Run, и полный ход программы я не буду писать по сто раз т.к. в 1 главе, все расписано!) во как! Я представлю код, который поможет скрыть курсор. Вот он:

Пишем в разделе general это

Private Declare Function ShowCursor Lib "User32" (ByVal bShow As Long) As Long

Затем добавляем в самый низ это

Private Sub Cursor_Hide()

Dim i As Long     'сколько раз показывали, столько раз скрываем

i = ShowCursor(1)

Do While i >= 0

i = ShowCursor(0)

Loop

End Sub

Private Sub Cursor_Show()

Dim i As Long          'сколько раз скрывали, столько раз показуем

i = ShowCursor(0)

Do While i < 0

i = ShowCursor(1)

Loop

End Sub

Здесь создаются процедуры по которым можно запустить то или иное действие. И чтобы его выполнить пишем заголовок без привате и без (). Еще одно курсор будет скрыватся только в программе, поэтому делаем более эффективную программу, у свойства visible меняем параметр на отрицательный, стоящему. В свойста windowstate ставим на 3-развернуто. Теперь при вызове этой функции курср будет скрываться на весь экран. Теперь еще одна вещь, чтобы дейтсвие выполнялось при загрузке формы, щелкаем по форме два раза и перед нами процедура Form_Load.