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

Кирилл

Команда форума
Администратор
Сообщения
14,081
Реакции
6,133
Баллы
993
Пытаюсь объявить такое:
VB.NET:
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

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,388
Реакции
5,881
Баллы
718
Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
Тебе нужно явно указать:

Private Declare Function

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

Кирилл

Команда форума
Администратор
Сообщения
14,081
Реакции
6,133
Баллы
993
Точно,вспомнил что так же маялся с прозрачностью формы!
Спасибо.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,388
Реакции
5,881
Баллы
718
Да-да. И там же я более подробно расписывал.
 
Сверху Снизу