'01 ///Inside Form One Main Form '------------------------------------------------------------------------------------------ Public Class Form1 Private clasAObj As New ClassA '// Send to edit Class Sub sendToEdit() clasAObj.editText(TextBox1.Text.ToString) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form2.Show() End Sub End Class '---------------------------------------------------------------------------------------------------------- '02. //inside ClassA Public Class ClassA Dim form2Obj As New Form2 Sub editText(ByVal OriginalText As String) '/// Edit Like Something Dim EditText As String = OriginalText '/// Send to show form two text box form2Obj.ShowText(EditText) End Sub End Class '--------------------------------------------------------------------------------------------------------- '03. // Inside Form2 Public Class Form2 Sub ShowText(ByVal receiveText As String) TextBox1.Text = receiveText.ToString & vbCrLf End Sub End Class
sendToEdit
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)