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

Кирилл

Команда форума
Администратор
Ассоциация VN
Сообщения
14,244
Реакции
6,273
Пытаюсь объявить такое:
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,619
Реакции
6,060
Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
Тебе нужно явно указать:

Private Declare Function

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

Кирилл

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

Dragokas

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