safasoft
پنج شنبه 06 تیر 1387, 13:03 عصر
سلام
من زماني كه در يك فرم (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) پس از بسته شدن به اينجا برنمي گردد .
از كمكتون ممنون ميشم .
من زماني كه در يك فرم (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) پس از بسته شدن به اينجا برنمي گردد .
از كمكتون ممنون ميشم .