طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )

طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )

طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( سي ++ )

Visual C++

private: Button^ btn1;
private: System::Void btn1_Click(System::Object^ sender, System::EventArgs^ e)
{
/// اظهار رسالة مساج بوكس
MessageBox::Show("Hello!");
}
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e)
{
/// طول
int length = 35;
/// عرض
int width = 15;
/// يسار
int left = 15;
/// اعلى
int top = 10;
/// هذه المتغيرات وضعت من أجل توضيح فقط و من الاحسن عدم استعمالها

/// انشاء لابل
Label^ lbl1=gcnew Label();
/// نقطة بداية لابل من اليسار، ونقطة بداية لابل من الاعلى
lbl1->Location=System::Drawing::Point(left,top);
/// اسم لايل
lbl1->Name=L"lbl1";
/// طول وعرض لابل
lbl1->Size = System::Drawing::Size(length, width);
/// عنوان لابل
lbl1->Text=L"لابل الاول";

TextBox^ txt1=gcnew TextBox();
txt1->Location=System::Drawing::Point(50,10);
txt1->Size = System::Drawing::Size(150, 15);

btn1 = gcnew Button();
btn1->Location= System::Drawing::Point(50,35);
btn1->Size = System::Drawing::Size(80,25);
btn1->Text = L"انقر هنا";

/// اظهار الكائنات فوق الفورم وهم لابل مربع النص تكست بوكس وبوتو
Controls->Add(lbl1);
Controls->Add(txt1);
Controls->Add(btn1);
/// استدعاء الاجراء لتنفيذه
btn1->Click+=gcnew System::EventHandler(this, &Form1::btn1_Click);
}

//////////////////////////////
////////////////////////////////////////

طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( سي شارب )

Visual C#

namespace CreateControl1
{
public partial class Form1 : Form
{
private Button btn1;
public Form1()
{
//// طول
int length = 35;
//// عرض
int width = 15;
/// يسار
int left = 15;
//// اعلى
int top = 10;
//// هذه المتغيرات وضعت من أجل توضيح فقط و من الاحسن عدم استعمالها

//// انشاء لابل
Label lbl1=new Label();
/// نقطة بداية لابل من اليسار، ونقطة بداية لابل من الاعلى
lbl1.Location=new Point(left,top);//System.Drawing.
//// اسم لايل
lbl1.Name="lbl1";
/// طول وعرض لابل
lbl1.Size = new Size(length, width);//System::Drawing::
//// عنوان لابل
lbl1.Text="لابل الاول";

TextBox txt1=new TextBox();
txt1.Location=new Point(50,10);
txt1.Size = new Size(150, 15);
//// من اجل تحرك بالمفتاح تاب البداية من صفر
txt1.TabIndex = 0;

btn1 = new Button();
btn1.Location= new Point(50,35);
btn1.Size = new Size(80,25);
btn1.Text = "انقر هنا";
btn1.TabIndex = 1;

//// اظهار الكائنات فوق الفورم وهم لابل مربع النص تكست بوكس وبوتو
Controls.Add(lbl1);
Controls.Add(txt1);
Controls.Add(btn1);
//// استدعاء الاجراء لتنفيذه
btn1.Click+=new EventHandler(btn1_Click);

InitializeComponent();
}
void btn1_Click(object sender, EventArgs e)
{
//// اظهار رسالة مساج بوكس
MessageBox.Show("Hello!");
}
}

/////////////////////////

//////////////////////////

طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك )

Visual Basic

Public Class Form1
Public WithEvents btn1 As Button

Public Sub CreateCtrl()
' طول
Dim length As Integer = 35
' عرض
Dim width As Integer = 15
' يسار
Dim left As Integer = 15
' اعلى
Dim top As Integer = 10
' هذه المتغيرات وضعت من أجل توضيح فقط و من الاحسن عدم استعمالها

' انشاء لابل
Dim lbl1 As Label = New Label()
' نقطة بداية لابل من اليسار، ونقطة بداية لابل من الاعلى
lbl1.Location = New Point(left, top)
' اسم لايل
lbl1.Name = "lbl1"
' طول وعرض لابل
lbl1.Size = New Size(length, width)
' عنوان لابل
lbl1.Text = "لابل الاول"

Dim txt1 As TextBox = New TextBox()
txt1.Location = New Point(50, 10)
txt1.Size = New Size(150, 15)
' من اجل تحرك بالمفتاح تاب البداية من صفر
txt1.TabIndex = 0

btn1 = New Button()
btn1.Location = New Point(50, 35)
btn1.Size = New Size(80, 25)
btn1.Text = "انقر هنا"
btn1.TabIndex = 1

' اظهار الكائنات فوق الفورم وهم لابل مربع النص تكست بوكس وبوتو
Me.Controls.Add(lbl1)
Me.Controls.Add(txt1)
Me.Controls.Add(btn1)
' استدعاء الاجراء لتنفيذه
AddHandler btn1.Click, AddressOf btn1_Click

End Sub
Sub btn1_Click(ByVal sender As Object, ByVal e As EventArgs)
' اظهار رسالة مساج بوكس
MessageBox.Show("Hello!")
End Sub

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