View Full Version : سوال: فعال و غیر فعال کردن فرمهای فرزند
hooooman
شنبه 04 خرداد 1387, 05:29 صبح
سلام
به این کد 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
شنبه 04 خرداد 1387, 12:17 عصر
سلام به این یه نگاه بنداز بلکه مشکلت برطرف بشه .
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
شنبه 04 خرداد 1387, 12:30 عصر
راستی یادم نبود اینا رو بزارم - ببین شاید اینا هم بدردت بخوره البته چندتاش مال VB هستش ولی بدردبخوره :تشویق:
SUCCESS IS DOING , NOT WISHING
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.