Помогите передать данные из одной формы в другую

[Xaker_S]

Привет народ, еще вопросик возник.
Я создал 2 формы.
Короче требуется их как-то связать.
Во второй форме есть кнопка, на первой есть TextBox и там число.
Как сделать так, чтобы при нажимании на кнопку число вычиталось или еще что.
И потом: при закрытии 2 окна форма2 выгружается. Как ее закрывать, но не выгружать?
Вот такие дела.

[Xaker_S]

Одно нашел: чтобы форма не выгружалась-Visible-False

[areh]

Ты можешь обращаться к объектам другой формы просто указав сначала имя формы, например так:

Form2.TextBox1.Text = Val(Form2.TextBox1.Text) - 5

ВОТ.

[corgi]

me.hide - форма не выгружается, а просто прячется
unload me - форма выгружается

[Xaker_S]

Дело в том, что мне надо как-то связать переменные из 2-х форм.

Form1.TextBox1.Text = Val(Form2.TextBox1.Text) - 5
А здесь связываются только тексты.

Я пробовал объявить глобальную переменную
Public X As Integer
вроде так, но не идет.

[RayShade]

Ты бы лучше прояснил, что ты хочешь сказать словами "связать переменные из двух форм"

[Xaker_S]

Как сделать чтобы переменные из двух форм взаимодействовали друг с другом?
одна объявляется в одной форме , другая - в другой.
Так они не взаимодействуют.

[RayShade]

Присвоить одной значение второй



А так у переменных нету событий - так что взаимодействие как таковое тебе придется делать руками.

[Лёха_Virus]

Дело в том, что мне надо как-то связать переменные из 2-х форм.

Form1.TextBox1.Text = Val(Form2.TextBox1.Text) - 5
А здесь связываются только тексты.

Я пробовал объявить глобальную переменную
Public X As Integer
вроде так, но не идет.

связь двух переменных:

в форме1 например у тя переменная х1 а во второй форме - х2
объявляешь как

public x1 as integer 'в первой форме

sub command1_click()
form2.x2 = x1
end sub

public x2 as integer 'во второй форме

зы. надеюсь щначения переменным сам воткнёшь

[Xaker_S]

Ничего не выходит
Буду конкретнее:
Объявляю переменную в 1 форме
Dim x1 as integer
Private Sub Form_Load()
x1=10000
Text1.Text=x1

Во второй:
Dim x2 As integer

Private Sub Form_Load()
x2=100
Text1.Text=x2
End Sub

Private Sub Command1.Click()
x1=x1-x2
End Sub

[areh]

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

На всякий случай:

В модуле: Public x1,x2 as Integer

Удачи!

[Xaker_S]

В модуле не получилось, но ты меня натолкнул на идею
Я создал MDI Форму, и туда занес переменную.
Все работает!!!
На самом деле кто-нидь знает зачем она нужна?

[Max!]

Зачем MDI Форма нужна я не знаю! Но я обратил внимание что ты объявляешь переменную до сботия :

Dim x1 as integer
Private Sub Form_Load()

А ты папробуй так :

Private Sub Form_Load()
Dim x1 as integer
x1=10000
Text1.Text=x1

[Лёха_Virus]

Ничего не выходит
Буду конкретнее:
Объявляю переменную в 1 форме
Dim x1 as integer
Private Sub Form_Load()
x1=10000
Text1.Text=x1

Во второй:
Dim x2 As integer

Private Sub Form_Load()
x2=100
Text1.Text=x2
End Sub

Private Sub Command1.Click()
x1=x1-x2
End Sub

!!!!!: не dim x1... а public x1 as ...
далее:

Private Sub Command1.Click()
form1.x1=form1.x1-x2
End Sub