فعال و غیر فعال کردن فرمهای فرزند

[hooooman]

سلام
به این کد 1 نگاهی بندازین :



توی رویداد کلیک 1 Button در فرم 1 (فرم والد):
dim f2 as form
f2=new form2
f2.mdiparent=form1
f2.show
'''''''''''''''''''''''''
حالا توی فرم 2 توی کلیک 1 Button مینویسم :

dim f3 as form
f3=new form3
f3.mdiparent=form1
me.enable=false
f3.show


حالا مشکل اینجاس که توی رویداد Formclosing در فرم f3 چطوری باید f2 رو Enable=true کنیم!!؟؟؟؟

[tefos666]

سلام به این یه نگاه بنداز بلکه مشکلت برطرف بشه .

http://barnamenevis.org/forum/attachment.php?attachmentid=18142&stc=1&d=1211616587

http://barnamenevis.org/forum/attachment.php?attachmentid=18143&stc=1&d=1211616587



IsMdiContainer = True


http://barnamenevis.org/forum/attachment.php?attachmentid=18144&stc=1&d=1211616587


Dim ChildForm As New MDIChildForm

ChildForm.MdiParent = Me

http://barnamenevis.org/forum/attachment.php?attachmentid=18145&stc=1&d=1211616587


Public Class Form1

Dim f1 As Form2 Dim f1 As Form2

Dim f2 As Form2 Dim f2 As Form2


Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click Private Sub NewToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click


f1 = New Form2 f1 = New Form2

f1.Show() f1.Show ()

f2 = New Form2 f2 = New Form2

f2.Show() f2.Show ()

' f1.IsMdiChild = True 'F1.IsMdiChild = True

f1.MdiParent = Me f1.MdiParent = Me

f2.MdiParent = Me f2.MdiParent = Me

End Sub End Sub

برای حالت افقی
Private Sub VerticalToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click


Me.LayoutMdi(MdiLayout.TileVertical) Me.LayoutMdi (MdiLayout.TileVertical)

End Sub End Sub


http://barnamenevis.org/forum/attachment.php?attachmentid=18146&stc=1&d=1211616587


برای حالت عمودی
Private Sub HorizontalToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click


Me.LayoutMdi(MdiLayout.TileHorizontal) Me.LayoutMdi (MdiLayout.TileHorizontal)

End Sub End Sub


امیدوارم منظورم رو رسونده باشم - یا حق
SUCCESS IS DOING , NOT WISHING :خجالت:

[tefos666]

راستی یادم نبود اینا رو بزارم - ببین شاید اینا هم بدردت بخوره البته چندتاش مال VB هستش ولی بدردبخوره :تشویق:

SUCCESS IS DOING , NOT WISHING