+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : قسم البرمجة العام - General Programming Section (https://www.at4re.net/f/forum-15.html)
+--- الموضوع : مساعدة فى الحدث KeyDown و KeyCode (/thread-3388.html)
مساعدة فى الحدث KeyDown و KeyCode - soom3aa - 13-11-2022
السلام عليكم ورحمة الله وبركاته
كل عام وانتم بالف خير
عندى سؤال لو تكرمتم
ارجو المساعدة فى فهم هذا الكود ( ما معناه وما دلالته وماذا افعل حتى يتم تنفيذ هذا الكود للمستخدم بمعنى ( كيف اصل الى نتيجة main.Picture6.Visible = True ) عن طريق الكيبور لكى يتم تنفيذ الكود واظهار الصورة
=========
كل عام وانتم بالف خير
عندى سؤال لو تكرمتم
ارجو المساعدة فى فهم هذا الكود ( ما معناه وما دلالته وماذا افعل حتى يتم تنفيذ هذا الكود للمستخدم بمعنى ( كيف اصل الى نتيجة 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
If ((KeyCode <> 81) Or (Shift <> 4)) = 0 Then
main.Picture6.Visible = True
main.Text10.SetFocus
End If
GoTo con
Exit Sub
End Sub
RE: مساعدة فى الحدث KeyDown و KeyCode - [email protected] - 13-11-2022
وعليكم السلام
ليم تنفيذ الدالة 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 .window call_back(events)
switch(events):
case keydown:
{
Text7_KeyDown(14,4)
}
.
.
.
End pseudo code:
اذا كان KeyCode يساوي 81
أو
Shift يساوي 4
فالنتيجة ستكون
false و
false = 0
.
أو
Shift يساوي 4
فالنتيجة ستكون
false و
false = 0
.