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

نسخة كاملة : نبضه 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 التي ستظهر علي الزر

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

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

تحياتي