تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى الحدث KeyDown و KeyCode
#1
Question 
السلام عليكم ورحمة الله وبركاته
كل عام وانتم بالف خير
عندى سؤال لو تكرمتم


ارجو المساعدة فى فهم هذا الكود ( ما معناه وما دلالته وماذا افعل حتى يتم تنفيذ هذا الكود للمستخدم بمعنى ( كيف اصل الى نتيجة  main.Picture6.Visible = True  ) عن طريق الكيبور لكى يتم تنفيذ الكود واظهار الصورة
=========
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If ((KeyCode <> 81) Or (Shift <> 4)) = 0 Then
main.Picture6.Visible = True
main.Text10.SetFocus
End If
GoTo con
Exit Sub

End Sub
أعضاء أعجبوا بهذه المشاركة :
#2
وعليكم السلام 

ليم تنفيذ الدالة Text7_KeyDown  يجب أن  تضعها ذاخل ال window call_back على هذا الشكل :
 
pseudo code:
 window call_back(events)
switch(events):
case keydown:
{
Text7_KeyDown(14,4)
}
.
.
.

End pseudo code:
عند استدعاء الدالة Text7_KeyDown  يجب على ال KeyCode  أن يساوي 81 و Shift أن يساوي  4 .

 
اذا كان KeyCode  يساوي 81
أو 
Shift  يساوي 4
فالنتيجة ستكون 

false  و 

false = 0 
.

 
 
اللهمَّ إني أستودعك قلبي فلا‌ تجعل فيه أحداً غيرك، وأستودعك لا‌ إله إلا‌ الله فلقِني إياها عند الموت، وأستودعك نفسي فلا‌ تجعلني أخطو خطوة إلّا‌ في مَرضاتك، وأستودعك كل شيء رزقتني وأعطيتني فاحفظهُ لي من شر خلقك أجمعين، واغفر لي ولوالدي ولمن أحببت ولمن سكن قلبي، ولإ‌خوتي يا من لا‌ تضيع عنده الودائع.
أعضاء أعجبوا بهذه المشاركة :


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم