دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
دلفي تعليم

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl

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

اذهب الى الأسفل

انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl Empty انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl

مُساهمة  djelal 16/12/2020, 12:41 am


انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl

اضف فوق الفورم1
Form1
1 من نوع
MenuStrip1
و1 من نوع
TabControl1
---
تنشيء قائمة مكون من 3 وهم
File
New
Exit

كود سورس ب
visual basic 2008


الكود:


Public Class Form1
    Dim i1 As Integer = 0
    Dim j1 As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True
        Me.StartPosition = FormStartPosition.CenterParent
        TabControl1.TabPages(0).Text = "Page1"
        TabControl1.TabPages(1).Text = "Page2"
        j1 = TabControl1.TabPages.Count - 1

    End Sub

    Private Sub TabControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.Click
        If TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1 Then
            Dim tbg As New TabPage
            TabControl1.TabPages.Add(tbg)
            j1 += 1
            TabControl1.TabPages(TabControl1.TabPages.Count - 2).Text = "Page" + Convert.ToString(j1)
            TabControl1.TabPages(TabControl1.TabPages.Count - 1).Text = "+"
        End If
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        i1 += 1
        Dim frm2 As New Form2
        frm2.MdiParent = Me
        frm2.StartPosition = FormStartPosition.WindowsDefaultLocation
        frm2.Text = "Form" + Convert.ToString(i1)
        frm2.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class



djelal
مبرمج مجتهد

عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

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

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى