Передача параметров из формы в форму (+++)

Есть такая форма frmCalculator. Т.е. она типа калькулятор. Там есть поле Result. Я хочу, чтобы эту форму можно было вызывать из любой другой формы, например dbl_click'ом на текстовом поле, дабы можно было занести число с помощью 'калькулятора', как это реализованно, например в 1С.
Проблема собственно заключается в том, что как определить, что в вызванной форме закончен ввод даных и как эти самые данные перенести в вызывающую форму.
У меня есть предположение, для frmCalculator сделать закрытую переменную Resulst.
Далее в форме - родителе вызывать frmCalculator через: обрашаться к ней через
Dim f as frmCalculator
Set f = New frmCalculator
Load f
f.show
....
А потом, когда будет завершен ввод в f, обратиться к Result через f.Result
Повторюсь, проблема в том, что не могу просечь при каком событии надо забирать Result и закрывать дочернюю форму.
Спасибо !!!

> например dbl_click'ом на текстовом поле
> не могу просечь при каком событии

Так если хочешь использовать событие мыши, то и помещай вызов калькулятора в событие DblClick() текстбокса:

Private Sub TextBox1_DblClick()
...
End Sub

0

Я так и делаю.
Т.е.
Private Sub TextBox1_DblClick()
Dim f as frmCalculator
Set f= New frmCalculator
Load f
f.Show
.....
'Такиим образом на дабл клике на текс боксе я
передал управление форме frmCalculator
End Sub

Поторяю вопрос: Я закончил ввод данных в frmCalculator, там в поле Result есть какое-то число, мне нужно перенести его в вызывающую форму.
Спасибо.
P.S. Привет Mavr'у. Антон, ты класно рубишь фишку в VB.

to SIR:

Kak tvoj Calculator polu4ajet (vy4isljajet)resultat? Navernoje, est' dlja etogo kakaja-to procedura?

Na etu proceduru i 'poves'' pereda4u peremennoj.

0

Ты предлагаешь использовать кнопку OK в калькуляторе ? А как тогда калькулятор определит форму-родителя, дабы ему передать что-нть ?

> А как тогда калькулятор определит форму-
> родителя, дабы ему передать что-нть ?

Можно точно также как ты делаешь с

Dim f as frmCalculator

определить переменную as Form и ей присваивать форму-родителя, тогда калькулятор будет возвращать данные в форму, отвечающую этой переменной.

0

Можно по-подробнее. Собственно код...

Примерно так:

'Где-то в любой форме...
Private Sub TextBox1_DblClick()
ShowCalc Me
End Sub

'Где-то в модуле...
Public Sub ShowCalc(ParentForm As Form)
Dim f as frmCalculator
Set f = New frmCalculator
Load f
f.Show
'TextBox1 - поле из вызывающей формы
'x - public-переменная, которая содержит рез-т расчета
ParentForm.TextBox1.Text = x
Unload f
Set f = Nothing
End Sub

0

Можно описывать f на уровне всего модуля родительской формы, а не на уровне процедуры дблклика:

Dim WithEvents f As Form

И потом в родительской перехватывать закрытие формы калькулятора:

Private Sub f_Unload(Cancel As Integer)
Me.TextBox1=f.Result
Set f=Nothing
End Sub

Еще можно открывать калькулятор как модальную форму:

Private Sub TextBox1_DblClick()
Dim f as frmCalculator
Set f= New frmCalculator
f.Show vbModal
Me.TextBox=Result
' Result в данном случае глобальная переменная в которую записывается значение набронное в калькуляторе при выходе из калькулятора
Т.е. в форме калькулятора должно быть что - то в роде этого:
Private Sub Form_Unload(Cancel As Integer)
Result=Me.CalcText
End Sub

Можно еще в форме калькулятора обявить Result как:

Public Result As TextBox

И в дблклике делать так:

Private Sub TextBox1_DblClick()
Dim f as frmCalculator
Set f= New frmCalculator
f.Load
Set f.Result=Me.TextBox1
f.Show

А в форме калькулятора должно быть тогда что - то в роде этого:
Private Sub Form_Unload(Cancel As Integer)
Result.Text=Me.CalcText
Set Result=Nothing
End Sub