созданы 2 формы

в 1-й есть textbox в котором формируется или вводится текст (Text1)
затем при переходе во вторую форму Text1 становится равным ""
как сделать чтобы и в первой и во второй форме значение Text1 было одинаковым, то есть сохранялось

Писал очень быстро, так что не ругай если че где не так:

Form1:

Код

Option Explicit Dim a As String Private Sub Command1_Click() Form2.Visible = True a = Text1.Text If Form2.Visible = True Then Text1.Text = "" Form2.Text1.Text = a End If End Sub

Form2:

Код

Option Explicit Dim b As String Private Sub Text1_Change() Form1.Text1.Text = Text1.Text Form1.Text1.Text = b End Sub

Это сообщение отредактировал(а) Voldemar2004 - 24.4.2005, 18:38

Guest слушай Гуэст ... короче я помогать непротив.. но когда постоянно задаёшь вопросы.. то можна зарегиться а то подозрительно слишком.. каждый днеь гуест здесь сидит.. и вопросы задаёт... по написанию похожи на одного и того же чела... если тебе не трудно плз зарегиструруйся и пиши... а так код от Волдемара должен подойти ;) а можешь попробывать вот так вот

Код

Private Sub Form_Load() Form2.Show End Sub Private Sub Text1_Change() Form2.Text1.Text = Text1.Text End Sub

просто в свойстве Чангдже хватит указать приравнивание к текстовому полю на второй форме текстовоэ поле на этой форме.. и там всегда будет записываться текст и даже если форма невидна.. ;)

Это сообщение отредактировал(а) M.E.G.U.S - 24.4.2005, 19:48

Цитата(M @ 24.4.2005, 20:44)

каждый днеь гуест здесь сидит.. и вопросы задаёт

Действительно странно... в последнее время столько Гуэстов прибыло...