ورود

View Full Version : کار با دکمه های جهت (ArrowKey)


mobin_co
شنبه 23 تیر 1386, 14:10 عصر
با سلام
آیا راهی وجود داره که در فرم به جای دکمه Tab از دکمه های جهت (ArrowKey) استفاده بشه؟
__siavash__
شنبه 23 تیر 1386, 14:45 عصر
راه که وجود داره !
اما باید بسته به نیاز کد نویسی کنی ! دقیقا میخوای چه کار کنی ؟ میخوای بین تکست باکسها با این کلیدها جابه جا بشی ؟
مهیار کرمی
شنبه 23 تیر 1386, 14:59 عصر
Text1_KeyPress (از این استفاده کن)
noorsoft
شنبه 23 تیر 1386, 19:20 عصر
شما برای اینکار باید خودت در KeyDown یا keypress کنترلی که میخای کد بنویسی
mobin_co
یک شنبه 31 تیر 1386, 15:32 عصر
آخه دکمه های ArrowKey کد اسکی نداره که در رویداد KeyPress بنویسم
mobin_co
یک شنبه 31 تیر 1386, 15:34 عصر
راه که وجود داره !
اما باید بسته به نیاز کد نویسی کنی ! دقیقا میخوای چه کار کنی ؟ میخوای بین تکست باکسها با این کلیدها جابه جا بشی ؟
آره همین کار رو میخوام انجام بدم
mobin_co
یک شنبه 31 تیر 1386, 15:37 عصر
راه که وجود داره !
اما باید بسته به نیاز کد نویسی کنی ! دقیقا میخوای چه کار کنی ؟ میخوای بین تکست باکسها با این کلیدها جابه جا بشی ؟آره همین کار رو میخوام انجام بدم
noorsoft
یک شنبه 31 تیر 1386, 18:33 عصر
کد هر کلید را که احتاج داری از Enum وی بی استفاده کن
VbKeyLeft
VbKeyRight
VbKeyUp
VbKeyDown
....
noorsoft
یک شنبه 31 تیر 1386, 18:35 عصر
sub text1_keypress(keyascii as integer)
if keyascii=VbKeyLeft then text2.setfocus
end sub
__siavash__
یک شنبه 31 تیر 1386, 19:10 عصر
این یه جورایی جواب میده !!!


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
SendKeys "{Tab}"
End If
End Sub

حالا به جای
SendKeys "{Tab}" میتونی هر کاری خواستی بکنی مثلا Text2.SetFocus و ...
Left Arrow = 37
UP ARROW = 38
RIGHT ARROW = 39