نبضه 1 - إضافه الاداوات علي الفورم بالاكواد

كاتب الموضوع : م إسماعيل علي النجار

السلام عليكم

اليوم سنتعلم طريقة إضافه مثلا زر والتحكم في الخط عليه ولونه بالاكواد

وكذلك إضافه text box والتحكم في لون الخط ومكان التيكست علي الفورم

بسم الله

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

كود :

Public Class Form1

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

End Sub

End Class

ثم نضيف هذا الكود

كود :

Dim btn As New Button()

With btn

.Location = New Point(30, 30)

.Text = "hi"

.ForeColor = Color.Yellow

End With

Me.Controls.Add(btn)

ليكون الكود الكلي

كود :

Public Class Form1

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

Dim btn As New Button()

With btn

.Location = New Point(20, 20)

.Text = "bnnnn"

.ForeColor = Color.Yellow

End With

Me.Controls.Add(btn)

End Sub

End Class

في الكود السابق تم التالي

حجز مكان لل btn في الذاكره

ثم نأتي لخصائص الزر المضاف للفورم ( عن طريق الكود )

تم تحديد ال location

وكذلك تحديد text التي ستظهر علي الزر

وكذلك تم تحديد لون الخط الموجود

ويمكن إضافة الكثير من الادوات علي الفورم بهذه الطريقه السهله

تحياتي