Объявление одинаковых функций в разных модулях

[dimix]

Есть у меня программка. Я использовал в ней чужой модуль (чего велосипед-то изобретать, тем более когда не умеешь ). В этом модуле объявлена функция:

Public Declare Function GetWindowLong Lib "user32".........

Понадобилось мне добавить еще один модуль (вы не поверите - снова чужой!). VB выругался нехорошими словами, типа что-то там с чем-то совпадает. Тогда я создал новый модуль и просто копирнул в него код. Когда стал смотреть, увидел, что и там объявляется GetWindowLong. Чем это черевато? Как может отрицательно сказаться на работе программы? И как с этим бороться? И, самое для меня непонятное, почему программа нормально работает? (или плохо проверял?). Ой, столько вопросов... Щас точно отправят книжки читать

[hCORe]

Действительно, неплохо бы почитать про область видимости (scope, scoping).

[dimix]

Дык, чукча не хочет быть читателем, чукча хочет быть писателем

Есть очень много всего, что было бы полезно почитать. А где взять время на это? Можете сказать: "ну и нефиг тогда было..." и в какой-то степени будете правы. Да только это все философия. Лучше объясните в двух словах, я понятливый

[hCORe]

Итак, создай два модуля - Module1 и Module2 и одну форму - Form1.

В Module1:

Код: Выделить всё

Public Sub Test()
    MsgBox "Чукча - бывший действительный член ССП!"
End Sub

В Module2:

Код: Выделить всё

Public Sub Test()
    Debug.Print "Who is Чукча?"
End Sub

В Form1:

Код: Выделить всё

Private Sub Form_Load()
    Test
End Sub

Жмешь F5. Лицезреешь сообщение: "Ambigious name detected: Test".
Как ты заметил, и в первом, и во втором модуле есть процедура Test, причем область видимости у них одна и та же (обе - Public, т.е. полная видимость. Private - видимость внутри модуля.) Поскольку компилятор не может решить, какую из двух процедур Test, обладающих одинаковой видимостью, надо использовать, то он говорит: "Ты чего?!"

Теперь в Module2 впиши еще:

Код: Выделить всё

Public Sub PrintTest()
    Test
End Sub

В Form1:

Код: Выделить всё

Private Sub Form_Load()
    Test
    PrintTest
End Sub

Что будет?
Покажется сообщение: "Чукча - бывший действительный член ССП!"
После закрытия сообщения в окне Immediate выведется строчка: "Who is Чукча?"

Понял?

[tyomitch]

Как ты заметил, и в первом, и во втором модуле есть процедура Test, причем область видимости у них одна и та же (обе - Public, т.е. полная видимость. Поставишь Friend - будет видимость в пределах проекта. Private - видимость внутри модуля.)

Friend в модулях не бывает. Только в классах.

[dimix]

Понял. Но только первую половину. Две процедуры, называются одинаково, видимость одинаковая, что выполнять не понятно - поэтому ошибка. Со второй половиной труднее... Что меняется от того, что во второй модуль мы добавили еще одну процедуру? Ведь Form_Load все равно сначала вызывает Test, а их по-прежнему две и по-прежнему видимость одинаковая...

P.S. Спасибо, что все-таки не послал а объяснил.

[d3drm]

dimix, попробуй вызывать вункции с указанием имени модуля, например так:

Sub Form1_Load()
Call Module1.Test()
Call Module2.Test()
End Sub

[hCORe]

По поводу второй части...
Процедура Test() в модуле Module2 "невидима" из других модулей проекта, т.к. объявлена как Private. Зато внутри модуля вполне можно ее вызвать, что и делает c успехом Public-процедура PrintTest. Можно и вызывать функции и процедуры с указанием имени модуля и (если у тебя группа проектов) проекта.

Код: Выделить всё

Module1.ADTP
Project1.Module1.ADTP
Project2.Module1.ADTP

[Al Khamid]

""

[Mikle]

А еще в Public Declare Function есть волшебное слово Alias. Можно не делать никаких переадресаций, просто назвать по-разному ф-ции, и обе ф-ции иметь Public.

[hCORe]

Да, но зачем ему две идентичных GetWindowLong под разными именами? К тому же, надо будет переименовывать все вхождения функции в одном из модулей. Иначе тоже будут конфликты.

Другое дело, когда Alias используется во благо: к примеру, с функциями, работающими с As Any (RtlMoveMemory, SendMessage, PostMessage)...