كيف .... عند ما أضغط على زر ... ينفذ الكود ... وعندما أزيل الضغط يلغى

مغلق

بدأه goon في 20 فبراير 2007 · 12 رد · 1,529 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#120 فبراير 2007 في 20:56 صاحب الموضوع

السلام عيكم

سؤالي هو

عندي صورة

عندما أضغط على زر انتر تبدأ الصورة بالتحرك الى الأعلى

المشكلة

أريد أن تبدأ الصورة بالتحرك عندما يكون الزر مضغوطاً down وعندما يزال الضغط عنه تتوقف الصورة أي تصبح قيمة التايمر =false

((( ليست لعبة )))

#220 فبراير 2007 في 22:07

أخي الغالي يكفيك ان تضع هذا الكود فقط دون استخدام تايمر

وأرجو ان أكون وفقت في إجابتك

If KeyCode = vbKeyReturn Then Image1.Top = Image1.Top - 10
' طبعا ممكن تكتب كود تحريك الصورة اللي يعجبك انا هنا برفعها لفوق بس
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

تم تعديل هذه المشاركة بواسطة egypt_man في 20 فبراير 2007 في 22:11

#321 فبراير 2007 في 16:11

شكراًَ شكراً شكراً شكراً

:lol: :lol: :lol: :lol:

المساعدة تصل بسرعة في هذا المنتدى الرائع

#421 فبراير 2007 في 17:17

العفو يا أخي

والحمد لله اني قدرت اساعدك

#522 فبراير 2007 في 14:04

السلام عليكم

كود الأخ egypt_man صحيح تمام %

إذا كنت تريد ذلك من خلال تايمر فهذا الكود ينفعك

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'عند الضغط على إنتر يعمل التايمر
If KeyCode = vbKeyReturn Then Timer1.Enabled = True
End Sub

Private Sub Form_Keyup(KeyCode As Integer, Shift As Integer)
'عند رفع الضغط عن إنتر يتوقف التايمر
If KeyCode = vbKeyReturn Then Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
' هنا عند وصول الصورة لرأس الفورم تتوقف حسب الرغبة
If Image1.Top < 0 Then
Timer1.Enabled = False
MsgBox "المزمجر بيسلم عليك ليش ما ترد السلام"
Else
'ارتفاع الصورة الجديد أي القفزة نحو الاعلى
Image1.Top = Image1.Top - 20
End If
End Sub
'تستطيع جعل كود التايمر هو
'Image1.Top = Image1.Top - 20
'إذا أردت ان تتابع الصورة نحو الاعلى وتختفي

لأنه قد تحتاج أحياناً لتايمر لتقييد الصورة بسرعة معينة أو تحديد مكان نهاية الحركة لها

و السلام عليكم

NOUR_move.rar

ألا بذكر الله تطمئن القلوب