منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

وعليكم السلام ورحمة الله وبركاتة

لم افهمك جيدا ؟

لا شكر على واجب انا تحت امرك

الى فهمته إنك عايز تدوس على على Button1 يقوم بإظهار الفورم رقم 2 مثلاً ؟

لو ده الى تقصده يبقى تعمل حدث البوتون 1 ده

form2.show()

يارب اكون فهمتك صح

بصراحة انا مش فاهمك اوي معلش اعزرني ,, ان شاء الله احد الاخوه يفيدك اكتر مني

بس ممكن تخفي الفورم الحالي و تظهر الجديد بالمقاسات الى انتا عايزها

و اسف على اني ماقدرتش اساعدك بس انا مبتدئ

اخي انا فاهم ماذ تريد
لاكن اظهار فورم داخل فورم لا اعرفها

اللي اعرفه اظهار UserControl1.vb داخل الفورم

UserControl1.vb >>>> شبيه بالفورم

========
الطريقه اذا حاب تعرفها
انشأ 1- Form1.vb
2- UserControl1.vb
3- UserControl2.vb
بعدها نذهب للفورم Form1 الرئيسي .. ونضيف أداة Panel1
ونضيف بجانبها Button1 وندرج الكود

كذلك نضييف Button2 وندرج الكود
نضييف Button3 للتفريغ وندرج الكود

تفضل المثال
[h=1]مثال بسيط لاستخدام mdiparent بمثال ربط بقاعدة بيانات[/h]

السلام عليكم و رحمة الله و بركاته
الطريقة بسيطة جدا و هي
الفرم الرئيسي لن يكون فورم عادي ولاكن عند الاضافة بدلا من اختيار windows form سوف تختار MDI Parent Form
و الفورم الفرعي سوف يكون windows form عادي جدا
و في زرار فتح الفورم الصغير من mdi form



لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته

اخى الكريم هذا مثال عملى لمشرع عملته قبل فترة ارجو تستفيد منه ان شاء الله :

Public Class Form1

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Dim windows As New frmDisplay
windows.MdiParent = Me
windows.Show()



End Sub

Private Sub داخستنToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles داخستنToolStripMenuItem.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim windows As New Stock
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Dim windows As New frmDisplay
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
Dim windows As New setting
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
Dim windows As New balance
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Dim windows As New balance
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
Dim windows As New report
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
Dim windows As New User_Account
windows.MdiParent = Me
windows.Show()
End Sub
End Class

ادعوا لى من ضهر الغيب
والسلام عليكم ورحمة الله وبركاته
[ATTACH=CONFIG]3538[/ATTACH][ATTACH=CONFIG]3539[/ATTACH]