أسئلة في الفيجول بيسك حفظكم الله

[ammar5]

الأحبة الكرام في منتدى الفيجول
أنا من الجزائر مبتدئ في الفيجول
أريد أن أعرف كود الإنتقال بين خانة وخانة أي ب entr تنتقل لخانة أخرى
كما أريد أن أعرف كيف نقوم بعمل كود ب entr بدلا من الظغط بزر الماوس
وبارك الله فيكم

[Master x Power]

بنسبة لسؤال الاول ما فهمت ايش قصدك :06:


بنسبة لسؤال الثاني

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case **
******************************

End Select
End Sub

==========================================

** = رقم كل زر في الكي بورد له رقم

****************************** = الامر الي تبيه يصير اذا تضغط الزر المعين


س : كيف اعرف رقم الزر الي ابيه

ج : عن طريق

print keyCode

اكتبها في محل الشفرات

[الكريستال]

اهلا اخي الكريم /
بانسبة للسؤال الاول تتم عن طريق setFocus واليك هذا المثال/
نفرض ان لديك خانتين نص الاولى اسمها text1 والثانية text2 ،، فترغب بالانتقال من الاول للثاني :-

1- تذهب للحدث KeyPress في text1 وهذا الحدث يحدث عند الضغط على اي زر .
2- تكتب الكود التالي/

text2.setFocus .

ولاكن اذا حاولت تختبر البرنامج راح ينتقل التركيز من الاول للثاني اذا ضغط على اي زر ، هنا ياتي دور KeyAscii للتخصيص
وهو جواب السؤال الثاني ;)

3- KeyAscii هذا المتغير يرجع كود الزر الذي ضغط ،،، بمعنى اذا ضغط على enter راح يرجع القيمة 13 ،، اذا ماذا تفعل :33: ،التالي:


If KeyAscii = 13 Then
Text2.SetFocus
End If

هنا اختبر المنتغير KeyAscii اذا كان يساوي 13 معنى ذلك ان الزر enter ضغط اذا انتقل للخانة الثانية


وهذا الكود الكامل /


Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub


وكل عام وانت بخير :biggthump