我正在尝试将数据从Form2发送到Form1,但是它不起作用。我将仅显示图像,以便您了解问题的全部原因。
这里的问题是它不能全部正常工作。我无法将数据发送到Form1。如何使其运作?
这是VB代码 AddLesseeForm class
Public Class AddLesseeForm 'Form2
'This is the Select Button
Public Sub Button4_SelectLessee_Click(sender As Object, e As EventArgs) Handles Button4_SelectLessee.Click
'Send data to AddData Form. The problem is it doesn't work
Dim OBJ As New AddData
OBJ.LesseeId = TextBox1_LesseeID.Text
OBJ.LesseeName = TextBox2_LesseeName.Text
End Sub
End Class
的VB代码 AddData class
Public Class AddData 'Form1
Private Sub Button1_AddLesseeForm_Click(sender As Object, e As EventArgs) Handles Button1_AddLesseeForm.Click
AddLesseeForm.Show()
End Sub
Public Property LesseeId As String
Public Property LesseeName As String
Public Sub AddData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Receive data from AddLesseeForm
TextBox1_LesseeId.Text = LesseeId
TextBox2_LesseeNm.Text = LesseeName
End Sub
End Class
您不需要AddData
在VB.Net中创建的对象,您可以仅使用Form的名称进行调用,如下所示:
Public Sub Button4_SelectLessee_Click(sender As Object, e As EventArgs) Handles Button4_SelectLessee.Click
AddData.LesseeId = TextBox1_LesseeID.Text
AddData.LesseeName = TextBox2_LesseeName.Text
AddData.UpdateData()
End Sub
您可以像下面这样TextBox
在AddData
Form中创建一种更新数据的方法:
Public Sub UpdateData()
TextBox1_LesseeId.Text = LesseeId
TextBox2_LesseeNm.Text = LesseeName
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句