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