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

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles Timer1.Tick

Label3.Text = Now.ToLongDateString

Label4.Text = Now.ToLongTimeString

End Sub

‫ لتغيير مكان صندوق نص ك ل ثاني ة مم ا‬timer ‫المشروع التالى يستخدم عنصر التحكم‬
‫ والكود له كالتالى‬timer ‫ النموذج يضم صندوق النص وال‬.‫يجعله يبدو متحركا‬

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Timer1.Tick

Static i, j
TextBox1.Left = i
TextBox1.Top = j

٩٣