چطور بعد از خروج يک فرم ديالوگ يک مقدار از نوع رشته متن يا تاريخ رو برگردونيم؟

[Hadiir.net]

من ميخوام يک فرم از نوع ديالوگ طراحي کنم که وقتي بسته ميشه يه مقدار رو غير مقدارهاي پيشفرض دیالوگها برگردونه
مثلا يک تکست باکس براي درج تاريخ تولد بصورت شمسي دارم ميخوام با کليک روي تکست باکس يا دکمه کنارش يک فرم ديالوگ نمايش داده بشه و کاربر تاريخ مورد نظرشو از داخل دیالوگ انتخاب کنه و بعد از بسته شدن ديالوگ اين مقدار توي تکست باکس درج بشه.

[shahryari]

باسلام
در رویداد باتن کلیک (باتن "تایید")فرمی که بصورت دیالوگ ظاهر میشود کد زیر را بنویسید:


Me.DialogResult = Windows.Forms.DialogResult.OK

سپس در رویداد باتنی که میخواهید فرم را فراخوانی کنید (باتن فرم اصلی) کد زیر را بنویسید:


Dim F2 As New Form2
If F2.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = F2.TextBox1.Text
End If

-------------------
فرض را براین میگیریم که فرم اصلی و فرم دیالوگ هرکدام یک تکست باکس به نامهای TextBox1 دارند
موفق باشید