VBNet - Форум - Передача переменной из формы в форму

Вопрос: Передача переменной из формы в форму Добавлено: 26.10.10 01:20

Автор вопроса: Progto

Подскажите как передать переменную во вторую форму. И как принять другую переменную со второй формы при нажатии на кнопку во второй форме. Передачу переменной второй форме сделал так.
в модуль

Module Module1
    Public q1
    Public q2

End Module

в первой форме

q1 = "*****"
        frm2.Show()

Во второй форме обращаюсь к q1 и получаю значение.

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        q2 = q1...
         .....
    End Sub

а как в первой форме после нажатия на кнопку во второй получить переменную q2 которая присваивается во второй форме?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 26.10.10 02:07
	А какой в этом смысл? зачем иметь в модуле две переменных q1, q2 с одинаковыми значениями? Ответить

Номер ответа: 2 Автор ответа: Progto Вопросов: 4 Ответов: 8	Профиль \| \| #2	Добавлено: 26.10.10 02:15
	Они не одинаковые. Я не так объяcнил. вторую переменную вводят в текстбокс, нажимают кнопку. после чего мне нужно както получить её в коде первой формы Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load q2 = textbox1.text.... ..... End Sub Ответить

Номер ответа: 3 Автор ответа: Progto Вопросов: 4 Ответов: 8	Профиль \| \| #3	Добавлено: 26.10.10 02:16
	точнее вот так будет... source] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click q2 = textbox1.text.... End Sub [/source] Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 26.10.10 11:13
	Код первой формы: Using SecondForm = New Form2("blablalba" + 39) 'в кавычках объект для передачи SecondForm.ShowDialog(Me) Dim Result=SecondForm.Result End Using Второй Public Result As Object Public Sub New(Data as Object) ' объект для принятия End Sub полагаю, как то так Ответить

Номер ответа: 5 Автор ответа: Progto Вопросов: 4 Ответов: 8	Профиль \| \| #5	Добавлено: 26.10.10 19:31
	Большое спасибо, работает. И ещё нубский вопросик. С объектами очень туго...Как мне во второй форме эту переменную вывести в TextBox? Public Class frm2 Public Result As Object Public Sub New(ByVal Data) ' объект для принятия End Sub Private Sub frm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'допустим тут нужно обратится к переменной Data 'TextBox1.Text = ??? End Sub End Class Ответить

Номер ответа: 6 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #6	Добавлено: 26.10.10 20:02
	мозгом надо работать -_- Public Sub New(ByVal Data As String) ' объект для принятия TextBox1.Text = Data End Sub или, как вариант, Public Result As Object Private IncomingData As String Public Sub New(ByVal Data As String) ' объект для принятия IncomingData = Data End Sub Ответить

Номер ответа: 7 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #7	Добавлено: 26.10.10 20:02
	а после сразу после строчки "Public Sub New(ByVal Data As String)" желательно делать InitializeComponent Ответить

Номер ответа: 8 Автор ответа: Progto Вопросов: 4 Ответов: 8	Профиль \| \| #8	Добавлено: 26.10.10 20:06
	Спс. с InitializeComponent() заработало Ответить

Страница: 1 |