


Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
SetCursorPos 10, 750
mouse_event 7, 0, 0, 0, 0
End Sub
ты слишком уж бурно выражаешь свои чувства. Цвета, огромные размеры, и куча смайлов! Здесь форум спецов, и это не приветствуется.
Я неоднократно писал(а):Подробные описания и объявления API-функций:
API-Guide
Есть 900 с чем-то функций и процедур, есть описания параметров и возвращаемых значений, есть на каждую функцию / процедуру пример.
http://users.chello.be/cr27630/3.7/agsetup.exe
Для новых функций:
File->Internet Update->Next->New Data Pack->Next->Finish
Для русского языка:
File->Internet Update->Next->Russian Language Pack->Next->Finish
API-Viewer
Больше функций и процедур (ок. 5000), есть константы (ок. 50000), но нет описаний и примеров.
http://www.activevb-archiv.de/downloads ... pv2003.exe
Русский язык:
http://www.activevb-archiv.de/downloads ... ussian.exe
API-List
Есть функции / процедуры .NET; он-лайн.
http://www.mentalis.org/apilist/apilist.php
API-справочник на русском
Функции самые основные, т.е. их не очень много. Но всё равно полезно.
http://bbs.vbstreets.ru/download.php?id=470
ЗЫ зайти на http://www.allapi.net (http://www.mentalis.org) - там очень много интересного!
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13