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

Тема в разделе "Visual Basic 6 / Сценарии VBScript, JScript", создана пользователем Kиpилл, 20 сен 2015.

  1. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Сообщения:
    12.644
    Симпатии:
    5.203
    Пытаюсь объявить такое:
    Код (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
     
    лис.хвост нравится это.
  2. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.737
    Симпатии:
    4.537
    Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
    В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
    Тебе нужно явно указать:

    Private Declare Function

    Правильно пишет. Функции и процедуры должны идти после объявления глобальных переменных, типов, прототипов ...
     
    лис.хвост и Kиpилл нравится это.
  3. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Сообщения:
    12.644
    Симпатии:
    5.203
    Точно,вспомнил что так же маялся с прозрачностью формы!
    Спасибо.
     
  4. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.737
    Симпатии:
    4.537
    Да-да. И там же я более подробно расписывал.
     
    Kиpилл нравится это.