سوال اخر عن hotkey

مغلق

بدأه عـــادل في 4 ديسمبر 2003 · 1 رد · 467 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

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

#14 ديسمبر 2003 في 13:36 صاحب الموضوع

السلام عليكم ورحمه الله

اود ان استفسر عن شى

تثبيت امر معين يعنى

لو انى وضعت timer

ووضعت الكود ده فيه

Private Sub Timer1_Timer()

Call WriteAInt(&H58D6E4, &H100)

واردت عمل ايقاف وتشغيل له ممكن ذلك من خلال وضع Buttons

هكذا

Private Sub Command1_Click()

If Timer1.Enabled = True Then

Timer1.Enabled = False

Command1.Caption = "Gps OFF"

Else

Timer1.Enabled = True

Command1.Caption = "Gps ON"

End If

من خلال هذا الامر فى ال Command1 لو ضغطت عليه ينتج عنه عمل او ايقاف الامر

الذى استفسر عنه هو كيف يمكن ايقاف او تشغيل الامر المكتوب فى ال timer 1 فى اعلى الصفحه

لكن من خلال hotkey

If GetKeyPress(vbKeyG) Then

يعنى لو ضغط G يعمل الtimer ولو ضغط G مره اخرى يتم ايقاف الامر المكتوب فى التيمر

يارب اكون وضحت سوالى واتمنى من الله ان اجد الجواب عندكم

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

#24 ديسمبر 2003 في 17:46

أضف الأمر الذي تريده مقروناً برقم آسكي للزر الذي تريده في حدث From_Keyprees ، ولا تنسى أن تغير خاصية KeyPreviwe للفورم بحيث تصبح True .

فمثلاً الأمر التالي يظهر رسالة إذا ضغطت على زر Enter = 13 :

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "Enter"
End If
End Sub

وستجد مثلاً أن رقم 65 = A ، 165 = "¥"

ولاحظ وجود فرق بين الاحرف الكبيرة والصغيرة .

والله الموفق ...

هذا الموضوع مغلق.