حامل المسك قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 السلام عليكم لدي برنامج مضمنا أمرين الأمر الأول أرغب أن أربطه بزر رقم واحد من لوحة المفاتيح بحيث إذا ضغت على رقم واحد يعمل الزر دون استخدام الفأرة وكذلك كيف أربط هذا الزر بإصدار صوت معين .. وكذل الزر الثاني برقم 2 من لوحة المفاتيح وبالمثال يتضح المقال... والله يرعاكم الربط بصوت.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 وعليكم السلام تفضل تم التعديل الربط بصوت2.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر مارس 19, 2012 الكاتب مشاركة قام بنشر مارس 19, 2012 ماشاء الله تبارك الله إبداااااااع رائع جدا وفقك الله وجعلها في ميزان حسناتك وهلا زدت فضلك ببيان الكود 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 21, 2012 مشاركة قام بنشر مارس 21, 2012 اعتذر عن الغفلة وعدم المبادرة في الاجابة الذي يخصني في الكود هما هذين السطرين وسطرين آخرين شبيهان بهما If KeyCode = 49 Then Call sounds1 اما البقية فهي موجودة سابقا في المثال الرقم هذا هو رقم الآسكي للزر 1 في لوحة المفاتيح انظر المثال المرفق If KeyCode = 49 Then استدعاء الوحدة النمطية الخاصة بتشغيل الملف الصوتي Call sounds1 لوحة المفاتيح KeyAscII Values.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر مارس 22, 2012 الكاتب مشاركة قام بنشر مارس 22, 2012 عفا الله عنك يا أبا خليل لماذا الاعتذار ،،، أنا الذي أعتذر لقد استفدت كثيرا من توجيهاتك في الآونة الأخيرة ما لم أستفده سابقا فجعل الله ذلك في ميزان حسناتك،،، رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر مارس 22, 2012 مشاركة قام بنشر مارس 22, 2012 جزيتم خيراً """ سهل ممتنع """ بارك الله بكما .......... تمت الاجابة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.