12-10-18, 07:04 PM
12-10-18, 08:17 PM
كود :
'ضع هذا في مديول
Public Word As String = String.Empty
'--------------------------------------------------------------------------------------------
Private Sub ShowForm_Click(sender As Object, e As EventArgs) Handles ShowForm.Click
'ضع هذا في حدث عرض النافذة الجديدة
Word = Txt_Path.Text
Dim Frm As New Form
Frm.ShowDialog()
End Sub
'------------------------------------------------------------------------------------
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'ضع هذا في حدث تحميل الفورم الجديد
Txt_Path.Text = Word
End Sub