برگشت از يك فرم به فرم قبلي در زمان اجرا

[safasoft]

سلام
من زماني كه در يك فرم (a)كار مي كنم مي خواهم تعدادي اطلاعات از كاربر در فرم (b)ديگر دريافت كرده و سپس كه آن فرم Close شد . با استفاده از اين اطلاعات دريافتي كدي را در فرم قبلي اجرا كنم .
كد كليد فراخواني فرم (b)


Dim NewMDIChild As New mabnaeselect
NewMDIChild.MdiParent = MainForm
NewMDIChild.Show()


[/CODE]
در فرم (b) پس از تاييد و بستن فرم مي خواهم كد زير بلافاصله اجرا شود


If MainForm.noamabnaeselect = 1 Then
If MainForm.shomarehsanadT <> "" Then
sanadcode = MainForm.shomarehsanadT
Else
sanadcode = MainForm.shomarehsanadP
Call sanadbebalaToolStripMenuItem_Click(sender, e)
End If
End If
اين كد را در ادامه كد اول در فرم (a) نوشته بودم ولي فرم (b) پس از بسته شدن به اينجا برنمي گردد .
از كمكتون ممنون ميشم .

[kablayi]

سلام ...
نمیدونم این عملی باشه یا نه ولی میتونی از رویداد formclosed فرم b برای انجام این عملیات استفاده کنی ...
امتحان کن ببین عملیه یا نه ...
موفق باشید ...

[safasoft]

با تشكر از راهنماييتون اما من اين راه را امتحان كرده ام عملي نيست .
از طرفي من با ديتا ست هاي صفحه a كار دارم كه در صفحه b قابل فراخواني نيستند.

[saman_itc]

Factor_Khoraki.best()
Factor_Khoraki.Empi()
Factor_Khoraki.idr.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToSt ring
Factor_Khoraki.vp()
Factor_Khoraki.idrKeyUp()
Me.Close()

من هم برای جستجوی افراد تو برنامم از یه فرم دیگه استفاده میکنم
و حتی میتونی توابع فرم اصی رو هم فراخوانی کنی
با ShowDialog باز کن فرم دوم تو

[pazis-flasher]

چرا اطلاعات رو توی Public Sub Module ذخیره نمی کنید ؟

[safasoft]

کد:
Factor_Khoraki.best()Factor_Khoraki.Empi()Factor_K horaki.idr.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToSt ringFactor_Khoraki.vp()Factor_Khoraki.idrKeyUp()Me .Close()
ميشه توضيح بديد منظورتون از اين كد ها چي؟
من مي خوام پس از اجراي تابعي در اين فرم b كه خودش از داخل فرم a فراخواني شده دوباره به ادامه اجرا در فرم قبلي a برگشته و نتايج اين تابع را در آن فرم اجرا كنم .
مشكل من نوشتن ماژول عمومي و يا مقادير عمومي نيست بلكه برگشت از فرم b به فرم a است.

[safasoft]

كسي نمي تونه سوال من رو پاسخ بده ؟

[saman_itc]

شما تو یه ایونت میخواهی از هر یه فرم باز شه و بعد بسته شه؟
این کد من روشنه
این کد ها رو تو فرم دوم مینویسیم

form1.Tabe1()
form1.tabe2()
form1..textbox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToSt ring
form1.tabe3()
form1.BUT_KeyUp()
Me.Close()