Вызов процедуры из модуля другой формы

[Source]

Как из модуля одной формы вызвать процедуру модуля другой формы, не делая процедуру Public и не перемещая её в общий модуль?

[tyomitch]

Сделать в том же модуле Public-процедуру, которая бы вызывала нужную.

[Source]

не понял

[Source]

можно обработчик таймера сменить с Private на Public?

[Source]

кажись, разобрался: в Form2 объявляем общую процедуру MyPublic, в Form1 пишем Form2.MyPublic.

[tyomitch]

можно обработчик таймера сменить с Private на Public?

Можно.

[Source]

и не будет никаких неприятных последствий? А почему, когда общая процедура объявлена в модуле формы для её вызова надо использовать имя формы, а если в общем модуле - только имя процедуры?

[tyomitch]

Последствий не будет.

У формы может быть несколько экземпляров, поэтому нужно указывать, метод какого экземпляра вызывается.

[Хакер]

Забавно это. Недавно, когда я в очередной раз придрался (на тему форма и окно - разные вещи), меня обвинили в излишней придирчивости и сказали, что дескать, нефиг придираться, все прекрасно понимают разницу.

Выходит всё-таки, что не все понимают...

[Source]

У формы может быть несколько экземпляров, поэтому нужно указывать, метод какого экземпляра вызывается.

Имеется ввиду массив форм?

[Source]

а, понял, что за экземпляры - собственно и есть формы под разным именем. Но модули тоже имеют свои имена, но мы же не пишем NameModule.NameProc!

[Cytron]

Как это не пишем

[Хакер]

Source

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

Private Type MyType
    x As Long
    z As String
    u As Boolean
End Type

Sub Main()

    Dim foo As MyType
    Dim bar As MyType
   
   
    foo.x = 123
    bar.z = 612
End Sub



Надеюсь, не возникается вопроса, зачем перед .x = 123 и z.=612 написанно foo и bar?

А теперь, как это на самом деле в VB:

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

Private Type MyType
    x As Long
    z As String
    u As Boolean
End Type

Sub Main()
    Dim MyType As MyType
       
    MyType.x = 4215454
    Module1.Zulu
   
End Sub

Sub Zulu()
    MsgBox "ffoooooooooasdasdasd"
End Sub


Почему перед .Zulu можно не писать Module1, а перед .x = 4215454 писать обязательно?

Хотя VB поступает грязно и подло.

Строчку(и)

Dim Form1 As New Form1
Dim FormX As New FormX

Dim frmXXXXx as new frmXXXXXXXXX

от от нас скрывает.

[tyomitch]

а, понял, что за экземпляры - собственно и есть формы под разным именем. Но модули тоже имеют свои имена, но мы же не пишем NameModule.NameProc!

Ты не можешь создать экземпляр модуля. Они всегда в единственном экземпляре.
Для форм, напротив, можно создавать дополнительные экземпляры.

[burik]

Source, вот пример:

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


Dim colForms    As New Collection

Sub Main()
Dim newForm1 As Form1

    'Создаем 9 экземпляров формы Form1
    For i = 1 To 9
        Set newForm1 = New Form1
        newForm1.Show
        colForms.Add newForm1
    Next i
   
    'Допустим, в форме Form1 есть процедура Sub01
    'Если вызвать просто Sub01 то VB не поймет
    'в каком экземпляре формы вызывается Sub01 =>
    'надо указать конкретную форму
   
    colForms(1).Sub01

End Sub


[Source]

'Допустим, в форме Form1 есть процедура Sub01
'Если вызвать просто Sub01 то VB не поймет
'в каком экземпляре формы вызывается Sub01 =>
'надо указать конкретную форму

Почему не поймёт, она же Public, т.е. она должна быть одна для всех модулей проекта! Но это почему-то не так. Т.е. Public в модуле формы не тот Public, что в общем модуле. И зачем тогда нужен Public, если для вызова процедуры необходимо указывать имя формы?

Хакер, вот ты интересный, зачем ты проводишь аналогию общей процедуры с переменными? Переменные занимают в памяти разное место и потому могут содержать разные значения. Потому к ним надо обращаться точно. А общая процедура одна, её код неизменен. Так почему я не могу к ней обратиться из любого места проги без указания имени модуля? Просто Public для процедуры формы не тот, что Public в общем модуле. Я предполагаю, что это м.б. связано с параллельным выполнением кода (потоки и др.), который я ещё не программил, поэтому для каждой формы, не принадлежащей одной коллекции, создаётся свой экземпляр общей процедуры, которая является единственной для форм, принадлежащих одной коллекции. Наверное так... Ну а как тогда работает код, описанный как Private для нескольких экземпляров форм с одной коллекции?

[Хакер]

Почему не поймёт, она же Public, т.е. она должна быть одна для всех модулей проекта!

Полнейший бред. Public-процедура и Public-член класса это разные вещи.

Т.е. Public в модуле формы не тот Public, что в общем модуле.

Public в модуле тот же, что и в классе. Public означает, что не Private. Private означает, что вызвать можно только в контексте модуля.

Хакер, вот ты интересный, зачем ты проводишь аналогию общей процедуры с переменными?

Чтобы ты понял.
Потому что очевидно, что ты ничерта не понимаешь, что такое класс.

А общая процедура одна, её код неизменен.

А каждого экземпляра класса есть своя собственная Public-процедура. (Вообще нет - процедура лишь одна. Но ей передаются разные указатели на объект. Именно для этого надо указывать то, что в по твоему, указывать не надо)

Так почему я не могу к ней обратиться из любого места проги без указания имени модуля?

ОК.
Тяжёлый случай, конечно, но попробую объяснить.

Dim BlueForm As New Form1
Dim RedForm As New Form1

BlueForm1.BackColor = vbBlue
RedForm1.BackColor = vbRed

Hide

ВНИМАНИЕ ВОПРОС: Какое из окон (красное или синее, или же которое Form1 As New Form1) должно закрыться?

Я предполагаю, что это м.б. связано с параллельным выполнением кода (потоки и др.), который я ещё не программил, поэтому для каждой формы, не принадлежащей одной коллекции, создаётся свой экземпляр общей процедуры, которая является единственной для форм, принадлежащих одной коллекции.

Какой же всё-таки бред. Ничего из написанного даже близко не походит на правду.

Ну а как тогда работает код, описанный как Private для нескольких экземпляров форм с одной коллекции?

Какой ещё коллекцией? Откуда они появились в обсуждении?

[burik]

Source, просто форма - это шаблон, макет (называй как хочешь) будущего окна. Используя одну форму ты можешь создать много окон (я приводил пример), которые будут иметь все переменные, процедуры и функции, которые имеет форма.

Как аналог можно привести контролы. Кинь на форму три TextBox'а. Каждый из твоих TextBox'ов - экземпляр класса TextBox, каждый имеет public процедуру Refresh (к примеру). Однако для вызова этой процедуры необходимо указать конкретный TextBox иначе как VB узнает какой из них обновлять? Так же и с формами.

[Source]

Ну, Хакер, теперь понятно - общие процедуры в модулях форм тесно связаны с экземпляром формы. Т.е. в них можно использовать Me и не надо указывать имя формы при обращениях к контролам, т.е. ту же общую процедуру можно было бы описать в общем модуле в виде:

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

Public Sub MyProc (frm as Form)
   frm.Text1.Text="Ку-ку!"
End Sub

А теперь такой вопрос:
Создаётся массив форм и эти формы показываются немодально одна за другой. Как будет работать код, написанный в модуле формы-исходника? Предполагаю, что события будут просто ставиться в очередь и при этом есть риск, что общие переменные проекта в этом коде м.б. изменены в "произвольном порядке" в зависимости от порядка попадания событий в очередь, что приведёт к ошибкам в программе...

[Viper]

А теперь такой вопрос:
Создаётся массив форм и эти формы показываются немодально одна за другой. Как будет работать код, написанный в модуле формы-исходника? Предполагаю, что события будут просто ставиться в очередь и при этом есть риск, что общие переменные проекта в этом коде м.б. изменены в "произвольном порядке" в зависимости от порядка попадания событий в очередь, что приведёт к ошибкам в программе...

На этот счет есть правильное проектирование программы, чтобы избежать случайно-произвольного изменения общих переменнных

[Arcady_XQST]

А теперь такой вопрос:
Создаётся массив форм и эти формы показываются немодально одна за другой. Как будет работать код, написанный в модуле формы-исходника?

Напиши простенький пример для проверки

[Хакер]

Невозможно создать массив форм.

[Source]

а это чё: Public Frm(10) As New Form1?

[Хакер]

Это массив ссылок на экземпляры формы.

Они вполне могут ссылаться на один и тот же экземпляр формы (все 10 ссылок)

[Source]

если они ссылаются на 1 экземпляр формы, почему же тогда этот экземпляр формы может иметь разные значения свойств?

[Хакер]

Ты теперь путаешь "ссылаются на один экземпляр форм" и "ссылаются на разные экземпляры одной формы".

И ты пропусти слово "могут". В приведённом тобой коде 10 ссылок указывают изначально на 10 разных экземпляров одной и той же формы.

[Source]

Это массив ссылок на экземляры формы.

Они вполне могут ссылаться на один и тот же экземляр формы (все 10 ссылок)

Хакер, это ты напутал!
Сделал пример, который показывает, что все переменные, объявленные в модуле формы дублируюся для каждого экземпляра формы. Это я и хотел здесь узнать.

[Хакер]

Хакер, это ты напутал!

1) Кто бы говорил.
2) К чему приведена моя цитата?
3) Что показывает пример? Что члены класса локальны для каждого экземпляра класса? Кто-то это оспаривал?