ПОМОГИТЕ!!!

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Shkolnik
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 119
Зарегистрирован: 06.06.2010 (Вс) 11:09

ПОМОГИТЕ!!!

Сообщение Shkolnik » 07.06.2010 (Пн) 17:36

Код для VB6, но на VB2005 выдает ошибку, но одну.
Код: Выделить всё
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function MouseBlock Lib "MouseHook.dll" (ByVal Param As Long) As Long

Private Sub Command1_Click()
'Блокируем "ответ" на события мыши для всей системы (глобально)
Timer1.Interval = 30000 'на 30 сек...
Timer1.Enabled = True
MouseBlock True
'ShowCursor False
End Sub

Private Sub Timer1_Timer()
  'ShowCursor True
  MouseBlock False
  Timer1.Enabled = False
End Sub

Помогите разобраться, что делать.
[Viper] :: Темы с названием "ПОМОГИТЕ!!!" и аналогичным ненесущим никакой информации не имеют права на существование

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Re: ПОМОГИТЕ!!!

Сообщение Viper » 07.06.2010 (Пн) 17:54

Вообще-то надо бы указать, что за "одна ошибка", но тебе поможет замена Long на Integer.
Весь мир матрица, а мы в нем потоки байтов!


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList