حرکت با کلید های جهت نما روی تکست باکس ها

[Marius]

با سلام خدمت دوستان عزیز

سوالی داشتم در مورد اینکه با چه کدی میتونم با کلید های جهت نمای کیبورد روی تکست باکس های مختلف حرکت و به تکست باکس قبلی و بعدی برم؟
سوال دومم اینه که چه رویداد تکست باکسی کد نویسی کنم که مثلا در تکست باکس یک کلید F2 رو زدم یه صفحه رو نشون بده و در تکست باکس 2 همین کلید رو زدم صفحه دیگر رو نشون بدم

ممنون میشم از مهندسین عزیز اگر با نمونه کدها کمکم کنند.

[YasserDivaR]

جواب سوال اول :


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) ' text1
If KeyCode = 40 Then Text2.SetFocus
End Sub


Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) ' Text 2
If KeyCode = 38 Then Text1.SetFocus
End Sub



===========================
Keycode دکمه های صفحه کلید:
بالا :38
پایین : 40
چپ : 37
راست : 39

[YasserDivaR]

جواب سوال دم :
Keycode کلید ها
F2 : 113




Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then Form2.Show 1
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then Form3.Show 1
End Sub

[Marius]

دستت درد نکنه آقای مهندس ولی اگر چندتا تکست باکس داشتم باید برای هرکدوم این کدهای سوال اول رو بنویسم؟
نمیشه یه کد کلی برای هرچندتا تکست باکس که هست نوشت آیا؟

[m.4.r.m]

میشه برای این کار شما یک تکست باکس رو فرم میزاری بقیه تکست باکس ها رو از اون کپی و پیست می کنی و Index می کنی . بعدش داخل keydown یکیشون این کد رو بنویسی واسه همشون شامل میشه