| Вопрос: из Form2 в Form1_ _(VBNet) | Добавлено: 01.08.06 18:37 |
Автор вопроса:  vilicon
|
|
Обьясните начинающему!!!
Есть Form1, TextBox1, Button1 и Form2, TextBox1, Button1 1 шаг: Form1->Button2 -> открываем Form2 2 шаг: Вводим в TextBox1 3 шаг: Form2->Button1 -> закрываем Form2 и получаем Form1.TextBox1.Text = Form2.TextBox1.Text как это правильно реализовать? |
| Ответы | Всего ответов: 21 |
|
Номер ответа: 1 Автор ответа:  Alexandr.R Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #1 | Добавлено: 01.08.06 21:04 |
|
все когдато начинали
код form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As Form f = Form2 f.Visible = True f = Nothing End Sub код form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.TextBox1.Text = TextBox1.Text Me.Close() End Sub |
||
|
Номер ответа: 2 Автор ответа: vilicon Вопросов: 1 Ответов: 8 |
Профиль | | #2 | Добавлено: 03.08.06 09:24 |
|
Cтранно, не получилось (((
f = Form2 выдает ошибку |
||
|
Номер ответа: 3 Автор ответа: ВанConeВопросов: 1 Ответов: 5 |
Профиль | | #3 | Добавлено: 03.08.06 10:55 |
| напишите f = New Form2 | ||
|
Номер ответа: 4 Автор ответа: ВанConeВопросов: 1 Ответов: 5 |
Профиль | | #4 | Добавлено: 03.08.06 12:21 |
| а теперь у меня вопрос похожий - из формы три в форму два. также есть по полю, по кнопке на формах. ввожу текст в третьей форме и хочу что бы после нажатия на кнопку текст перенёсся бы во вторую форму. | ||
|
Номер ответа: 5 Автор ответа: viliconВопросов: 1 Ответов: 8 |
Профиль | | #5 | Добавлено: 03.08.06 13:06 |
|
c кодом Form1 разобрался
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As Form f = New Form2 f.Visible = True f = Nothing End Sub форма открывается, ввожу в TextBox1 закрываю форму и возникает ошибка в коде Form2 Form1.TextBox1.Text = TextBox1.Text (не задана ссылка на объект) что делать? |
||
|
Номер ответа: 6 Автор ответа: ВанConeВопросов: 1 Ответов: 5 |
Профиль | | #6 | Добавлено: 03.08.06 13:11 |
| аналогичная ситуация и аналогичный вопрос. | ||
|
Номер ответа: 7 Автор ответа: ВанConeВопросов: 1 Ответов: 5 |
Профиль | | #7 | Добавлено: 03.08.06 13:15 |
|
в первом texbox первой формы пишем следующее:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim frm2 As New Form2 TextBox1.Text = frm2.TextBox1.Text End Sub он берёт значения из текстбокса второй формы, но после нажатия на кнопку ОК, всё пропадает. теперь ищу метод, который сохраняет введённый текст |
||
|
Номер ответа: 8 Автор ответа: Alexandr.RВопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #8 | Добавлено: 03.08.06 13:17 |
| блин руки у вас кривые!!! | ||
|
Номер ответа: 9 Автор ответа: viliconВопросов: 1 Ответов: 8 |
Профиль | | #9 | Добавлено: 03.08.06 13:20 |
| ну раз такой умный так помоги | ||
|
Номер ответа: 10 Автор ответа: Alexandr.RВопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #10 | Добавлено: 03.08.06 13:24 |
|
причем тут TextBox1_TextChanged
писал же Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.TextBox1.Text = TextBox1.Text Me.Close() End Sub что не понятно? все работает проверил на VS2003 и VS2005 |
||
|
Номер ответа: 11 Автор ответа: Alexandr.RВопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #11 | Добавлено: 03.08.06 13:27 |
|
можно по другому в коде form1
Public Shared st As String Textbox1.text = st знасит в form2 form1.st = Textbox1.text |
||
|
Номер ответа: 12 Автор ответа: ВанConeВопросов: 1 Ответов: 5 |
Профиль | | #12 | Добавлено: 03.08.06 14:00 |
|
короче я так понял, что от тебя не дождаться помощи, да?
пишу: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2 f.ShowDialog() TextBox1.Text = f.MyString End Sub это в первой форме, во второй под системной записью Public Class Form3
Inherits System.Windows.Forms.Form пишется следующее: Public MyString As String
дальше, на кнопку вешается мальенькая запись: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyString = TextBox1.Text Me.Close() End Sub на этом всё. |
||
|
Номер ответа: 13 Автор ответа: Alexandr.RВопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #13 | Добавлено: 03.08.06 14:04 |
|
короче я так понял, что от тебя не дождаться помощи, да? мля какая тут может быть помощь если у людей руки кривые, блин тока время свое зря потратил |
||
|
Номер ответа: 14 Автор ответа: viliconВопросов: 1 Ответов: 8 |
Профиль | | #14 | Добавлено: 03.08.06 14:36 |
|
вроде у меня получилось
код Form1 Public Class Form1
Inherits System.Windows.Forms.Form Public Shared st As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As Form f = New Form2 f.Visible = True f = Nothing End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated TextBox1.Text = st End Sub End Class код Form2 Public Class Form2 Inherits System.Windows.Forms.Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.st = TextBox1.Text Me.Close() End Sub End Class что скажите? |
||
|
Номер ответа: 15 Автор ответа: viliconВопросов: 1 Ответов: 8 |
Профиль | | #15 | Добавлено: 03.08.06 14:52 |
| а в ответ тишина )) | ||