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

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

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

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

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


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

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

كود سورس ب
visual c++


الكود:

#pragma once

#include "Form2.h"

namespace TabControl1 {

   using namespace System;
   using namespace System::ComponentModel;
   using namespace System::Collections;
   using namespace System::Windows::Forms;
   using namespace System::Data;
   using namespace System::Drawing;

   public ref class Form1 : public System::Windows::Forms::Form
   {
   private: int i1; int j1;   
   public:
      Form1(void)
      {
         InitializeComponent();
         i1=0;
      }

   protected:
      ~Form1() {}
   private: System::Windows::Forms::TabControl^  tabControl1;
   private: System::Windows::Forms::TabPage^  tabPage1;
   private: System::Windows::Forms::TabPage^  tabPage2;
   private: System::Windows::Forms::MenuStrip^  menuStrip1;
   private: System::Windows::Forms::ToolStripMenuItem^  fileToolStripMenuItem;
   private: System::Windows::Forms::ToolStripMenuItem^  newToolStripMenuItem;
   private: System::Windows::Forms::ToolStripSeparator^  toolStripMenuItem1;
   private: System::Windows::Forms::ToolStripMenuItem^  exitToolStripMenuItem;
   private:

      System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
      void InitializeComponent(void)
      {
////
      }
      
#pragma endregion
      
   private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e)
          {
             this->IsMdiContainer=true;
             this->StartPosition=FormStartPosition::CenterScreen;
                tabControl1->TabPages[0]->Text = "Page1";
              tabControl1->TabPages[1]->Text = L"Page2";
                j1 = tabControl1->TabPages->Count-1;
          }
   private: System::Void newToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e)
          {
             i1 += 1;
             Form2^ frm2=gcnew Form2();
             frm2->MdiParent=this;
             frm2->StartPosition=FormStartPosition::WindowsDefaultLocation;
             frm2->Text = "Form"+Convert::ToString(i1);
             frm2->Show();
          }
private: System::Void exitToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
          Application::Exit();
       }
private: System::Void tabControl1_Click(System::Object^  sender, System::EventArgs^  e) {
            if (tabControl1->SelectedIndex == tabControl1->TabPages->Count-1)
            {
            TabPage^ tbg = gcnew 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 = "+";
            }
       }
};
}

djelal
مبرمج مجتهد

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

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

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

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

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