اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

(تمت الاجابة) كيف نربط أمر برقم من لوحة المفاتيح مع صوت؟


الردود الموصى بها

السلام عليكم

لدي برنامج مضمنا أمرين الأمر الأول أرغب أن أربطه بزر رقم واحد من لوحة المفاتيح بحيث إذا ضغت على رقم واحد يعمل الزر دون استخدام الفأرة وكذلك كيف أربط هذا الزر بإصدار صوت معين ..

وكذل الزر الثاني برقم 2 من لوحة المفاتيح

وبالمثال يتضح المقال...

والله يرعاكم

الربط بصوت.rar

رابط هذا التعليق
شارك

ماشاء الله تبارك الله إبداااااااع رائع جدا

وفقك الله وجعلها في ميزان حسناتك

وهلا زدت فضلك ببيان الكود


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

If KeyCode = 49 Then

Call sounds1

[Alert] = Nz(Me.Alert, 0) + 1

ElseIf KeyCode = 50 Then

Call sounds2

[open] = Nz(Me.open, 0) + 1

End If

End Sub

رابط هذا التعليق
شارك

اعتذر عن الغفلة وعدم المبادرة في الاجابة

الذي يخصني في الكود هما هذين السطرين وسطرين آخرين شبيهان بهما


If KeyCode = 49 Then

Call sounds1
اما البقية فهي موجودة سابقا في المثال الرقم هذا هو رقم الآسكي للزر 1 في لوحة المفاتيح انظر المثال المرفق
If KeyCode = 49 Then
استدعاء الوحدة النمطية الخاصة بتشغيل الملف الصوتي
Call sounds1

لوحة المفاتيح KeyAscII Values.rar

رابط هذا التعليق
شارك

عفا الله عنك يا أبا خليل لماذا الاعتذار ،،،

أنا الذي أعتذر لقد استفدت كثيرا من توجيهاتك في الآونة الأخيرة ما لم أستفده سابقا فجعل الله ذلك في ميزان حسناتك،،،

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information