При вызове функции SetCursorPos(помещает курсор в левый верхний угол экрана) из user32. Возникает ошибка: Run time error '49': Bad DLL calling convention.
Код вызова:
Private Declare Function SetCursorPos Lib "user32" ()
Private Sub Command1_Click()
SetCursorPos
End Sub
Если вставить OnError Resume Next, ошибка исчезает. Интересно почему вообще эта ошибка возникает и как её можно обойти по-другому.
user32!?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 04.01.2005 (Вт) 17:58
Дык это...
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Типа вот.
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Типа вот.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- tyomitch
- Пользователь #1352
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 04.01.2005 (Вт) 18:01
Заменить декларацию на правильную:
И вызывать тоже правильно:
- Код: Выделить всё
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
И вызывать тоже правильно:
- Код: Выделить всё
SetCursorPos 0, 0
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17