VBNet - Форум - Function SystemParametersInfo

Вопрос: Function SystemParametersInfo Добавлено: 08.02.05 19:54

Автор вопроса: Ice_sCream

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

вот сам класс:

Private Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uparam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer

Const SPI_GETKEYBOARDDELAY = 22

Public Property Get lengthDel() As Integer
    Dim sl As Variant
    Dim uAction As Integer
    Dim uparam As Integer
    uAction = 0
    uparam = 0
    SystemParametersInfo SPI_GETKEYBOARDDELAY, uAction, uparam, 0
    lengthDel = sl
End Property

где ошибка ? при использовании свойства класса выдает ошибку file not found:user.
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 08.02.05 19:58
	Ну типа у тебя нет DLLки user.dll, она давно устарела и вообще это 16-ричная версия, бывшая в Windows 98 для совместимости, используй объявление для user32.dll Ответить

Номер ответа: 2 Автор ответа: Ice_sCream Вопросов: 4 Ответов: 4	Профиль \| \| #2	Добавлено: 08.02.05 20:40
	ясно. а как мне объявить для user32.dll ? Если я пишу Private Declare Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uparam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer то теперь иная ошибка - в user32.dll нет SystemParametersInfo ! Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 08.02.05 20:59
	Посмотри объявление в API Viewer Ответить

Номер ответа: 4 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #4	Добавлено: 09.02.05 00:26
	alias где? Ответить

Номер ответа: 5 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #5	Добавлено: 09.02.05 00:42
	Коросе что мучать человека, проще дать ему декларацию Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Ответить

Страница: 1 |