+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] Timer (/showthread.php?tid=17400)
Timer - naden - 22-09-16
السلام عليكم مطلوب كود اذا كان عندي صورتين في الفورم ويتحركو يمين ويسار عن طريق Timer
اريد عندما احدى منهم انصدمت بالاخره تختفي واحده من الصور
RE: Timer - سعود - 22-09-16
ضمن حدث move لمربع الصورة راقب Left Right Top and Bottom
انشيء مشروع بمؤقت وزر امر ومربعي صورة p1,p2
وهذا هو الكلاس
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Timer1.Enabled Then
Timer1.Stop()
Else
Timer1.Start()
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
p1.Left -= 4
p2.Left += 4
End Sub
Private Sub p1_Click(sender As Object, e As EventArgs) Handles p1.Click
End Sub
Private Sub p1_Move(sender As Object, e As EventArgs) Handles p1.Move
If p1.Left <= p2.Right Then
Timer1.Stop()
End If
End Sub
End Class
استخدمت ايقاف المؤقت عدل على الكود كما تريد
المثال مرفق
RE: Timer - naden - 24-09-16
بارك الله فيك جزاك الله كل خير ان شاء الله في ميزان حسناتك
RE: Timer - سعود - 24-09-16
(24-09-16, 01:17 AM)naden كتب : بارك الله فيك جزاك الله كل خير ان شاء الله في ميزان حسناتك
اللهم آمين ... و اياك وكل قاريء.
RE: Timer - bidaya - 23-10-16
هل يمكن تطبيق الفكرة للاعلى والاسفل
اي تحريك البيكتر 1 و2 واحدة من الاعلى والاخرى من الاسفل
وشكرا