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

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

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

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

    Лучший автор месяца

    Сообщения:
    12.216
    Симпатии:
    4.978
    Пытаюсь объявить такое:
    Код (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.478
    Симпатии:
    4.307
    Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
    В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
    Тебе нужно явно указать:

    Private Declare Function

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

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

    Лучший автор месяца

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

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

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

Поделиться этой страницей