VB 6 Проблема с объявлением API функции

Кирилл

Команда форума
Администратор
Ассоциация VN
Сообщения
14,315
Реакции
6,313
Пытаюсь объявить такое:
VB.NET / VBA:
Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

А получаю фигу:
upload_2015-9-20_10-36-6.png


Выношу за комменты в general,тогда получаю это:

upload_2015-9-20_11-5-50.png
 

Dragokas

Angry & Scary Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,782
Реакции
6,244
Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
Тебе нужно явно указать:

Private Declare Function

А получаю фигу:
Правильно пишет. Функции и процедуры должны идти после объявления глобальных переменных, типов, прототипов ...
 
Сверху Снизу