Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обьявить функцию из библиотеки API? / 3 сообщений из 3, страница 1 из 1
24.07.2003, 12:06
    #32216697
Гр
Гр
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обьявить функцию из библиотеки API?
Код: plaintext
1.
2.
3.
4.
5.
' Декларация функций и констант АПИ 
Declare Function ActivateKeyboardLayout Lib  "user32"  _ 
               (ByVal HKL As Long, ByVal flags As Long) As Long 
Public Const kb_lay_ru As Long =  68748313  
Public Const kb_lay_en As Long =  67699721


Вот это вызывает ошибку компиляции
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2003, 13:46
    #32216891
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обьявить функцию из библиотеки API?
Какую ошибку ?
Где идет объявление : в форме или модуле ?
В форме константы и API вызовы должны быть private
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2003, 14:34
    #32217031
ulis
ulis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обьявить функцию из библиотеки API?
Есть некий модуль и в нем:

' Данная функция используется для автоматического переключения раскладки клавиатуры
Global Const KLF_ACTIVATE = &H1
Global Const KLF_REORDER = &H8
Global Const KLF_SUBSTITUTE_OK = &H2
Global Const KLF_UNLOADPREVIOUS = &H4

Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
'
' Для переключения на английскую раскладку: Call LoadKeyboardLayout("00000409", KLF_ACTIVATE)
' Для переключения на русскую раскладку: Call LoadKeyboardLayout("00000419", KLF_ACTIVATE)
'***************************************************************************************
Все работает без проблем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обьявить функцию из библиотеки API? / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 117ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2171004]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 11ms
total:  117ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]