تقييم الموضوع :
  • 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
أعضاء أعجبوا بهذه المشاركة : Venox
#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 
.

 
 
أعضاء أعجبوا بهذه المشاركة : Venox


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


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