Page 84 - أساسيات الحاسب الالي2

‫عناصر التحكم‬ ‫الفصل الخامس‬

‫‪Private Sub Button1_Click(ByVal sender As System.Object,‬‬
‫‪ByVal e As System.EventArgs) Handles Button1.Click‬‬

‫& " ‪Label1.Text = Now.Hour & ": " & Now.Minute & ":‬‬
‫‪Now.Second‬‬

‫‪End Sub‬‬
‫‪Private Sub Button2_Click(ByVal sender As System.Object,‬‬
‫‪ByVal e As System.EventArgs) Handles Button2.Click‬‬

‫‪Label1.Text = Now.Date‬‬
‫‪End Sub‬‬
‫‪Private Sub Button3_Click(ByVal sender As System.Object,‬‬
‫‪ByVal e As System.EventArgs) Handles Button3.Click‬‬

‫"اهﻼ وسهﻼ " = ‪Label1.Text‬‬
‫‪End Sub‬‬
‫يمكن تغيير خلفية النموذج باستخدام الخاصية ‪ BackGroungImage‬واختيار ملف‬

‫صورة لتحسن من مظهر النموذج‪.‬‬

‫صندوق النصوص ‪Text Box‬‬

‫يحت وى ص ندوق الن صوص عل ى ن ص يمك ن تغيي ره مباش رة أثن اء التنفي ذ م ن خ ﻼل‬
‫المستخدم وتعتبر الوظيفة الرئي سية له ذا العن صر ه ى إتاح ة الفرص ة للم ستخدم ﻹدخ ال‬

‫البيانات الخاصة به وتحدد الخاصية ‪ Text‬هذه القيم‪.‬‬
‫يشترك هذا العنصر مع العنصر ‪ label‬فى بعض الخصائص السابق شرحها كم ا يتمي ز‬
‫ببعض الخصائص مثل الخاصية ‪ MultiLine‬وه ى خاص ة ب ه فق ط وتح دد م ا إذا ك ان‬
‫بإمكان الم ستخدم أن ي دخل ن ص عل ى مجموع ة م ن ال سطور ي ضغط بينه ا عل ى مفت اح‬
‫اﻹدخال لﻼنتقال إلى سطر جديد أم ﻻ‪ .‬القيمة التلقائية لهذه الخاص ية ه ى ‪ False‬بمعن ى‬

‫‪٨٤‬‬