D
David
Is this code correct? My Question is On Form1 where I set
using value as string Do I address Value on form2 to set
this? or do I just set by Frm1.txtbox1value() = "Form2
just sent this back". So Value = "Form2 just sent this
back" right? Thanks for any help.
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim frm2 As WindowsApplication8.Form2
frm2 = New WindowsApplication8.Form2
frm2.Show()
End Sub
Public Property txtbox1value() As String
Get
Return Me.TextBox1.Text
End Get
Set(ByVal Value As String)
Me.TextBox1.Text = Value
End Set
End Property
End Class
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub TextBox1_TextChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
Dim frm1 As WindowsApplication8.Form1
frm1 = New WindowsApplication8.Form1
frm1.txtbox1value() = "Form2 just sent this back"
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Dim frm1 As WindowsApplication8.Form1
frm1 = New WindowsApplication8.Form1
Me.TextBox1.Text = frm1.txtbox1value
End Sub
End Class
using value as string Do I address Value on form2 to set
this? or do I just set by Frm1.txtbox1value() = "Form2
just sent this back". So Value = "Form2 just sent this
back" right? Thanks for any help.
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim frm2 As WindowsApplication8.Form2
frm2 = New WindowsApplication8.Form2
frm2.Show()
End Sub
Public Property txtbox1value() As String
Get
Return Me.TextBox1.Text
End Get
Set(ByVal Value As String)
Me.TextBox1.Text = Value
End Set
End Property
End Class
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub TextBox1_TextChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
Dim frm1 As WindowsApplication8.Form1
frm1 = New WindowsApplication8.Form1
frm1.txtbox1value() = "Form2 just sent this back"
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Dim frm1 As WindowsApplication8.Form1
frm1 = New WindowsApplication8.Form1
Me.TextBox1.Text = frm1.txtbox1value
End Sub
End Class