Вызов процедуры события

[KPEATOP]

У меня в модуле формы есть процедура события:
Private Sub mKVDCalc_Click()
.............
end sub

Можно ли ее вызвать из процедуры другого модуля формы ? Если можно, то как ?
Заранее сенкс.

[dr.MIG]

Можно. Изменить Private на Public и вызвать ИмяДругогоМодуляФормы.mKVDCalc_Click.

[Денис]

Private на Public заменить не получится, среда не даст.
Надо сделать метод-обертку:

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

Public Sub ClickKVDCalc()
    mKVDCalc_Click() 'И вызываешь приватную процедуру...
end sub

затем уже, как доктор сказал: ИмяДругогоМодуляФормы.ClickKVDCalc()

[KPEATOP]

Я не совсем понял. Процедуру Public Sub ClickKVDCalc() где размещать ? В модуле той формы, где расположена процедура Private Sub mKVDCalc_Click() ?

[ANDLL]

Private на Public заменить не получится, среда не даст.

И долго ты это сочинял?
Автор - просто замени слово private на public

[KPEATOP]

Private на Public заменить не получается.
В модуле первой формы делаю процедуру:
Public Sub mKVDCalc_Click()
...........
end sub
В модуле второй формы вызываю эту процедуру:
Private Sub Command1_Click()
mKVDCalc_Click
end sub

При компиляции выдает ошибку Sub or Function not defined и выделяется строка mKVDCalc_Click

[Денис]

private на public

Извиняюсь, действительно работает.
Но почему раньше мне ошибку выдавало???

[KPEATOP]

private на public

Извиняюсь, действительно работает.
Но почему раньше мне ошибку выдавало???

У меня не работает, ошибку выдает Sub or Function not defined
Что сделать нужно ? Что то не так, а что не пойму.

[Денис]

KPEATOP

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

Public Sub mKVDCalc_Click()
...........
end sub

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

Private Sub Command1_Click()
      ПЕРВАЯ_ФОРМА.mKVDCalc_Click
end sub

Кури мануалы по ООП, в частности что такое методы и их вызовы.

[KPEATOP]

Спасибо все, понял. Вызывать надо Form1.mKVDCalc_Click
Имя формы не написал )))
СЕНКС!!!

[ANDLL]

Но почему раньше мне ошибку выдавало???

Кривые руки, что же еще может быть?