View Full Version : سوال: حرکت با کلید های keydown و key up
fahimeh.n
شنبه 27 آذر 1389, 12:11 عصر
همگی خسته نباشین
چطور میشه با دکمه های keydown و keyup از یه textbox به textbox دیگه رفت ؟
meysam_meysam74
شنبه 27 آذر 1389, 13:19 عصر
If Asc(e.KeyChar) = 13 Then
e.Handled = True
Form2.TextBox1.Focus()
end if
13 برابر با اینتر 27 میشه اسکیت هر کلیدی یه کد اسکی داره تویه روال KeyPress بنویس این کد رو
fahimeh.n
شنبه 27 آذر 1389, 14:17 عصر
ممنون از راهنماییتون
کد اسکی رو چطور میتونم پیدا کنم ؟:خجالت:شما دارین ؟
ali_najari
شنبه 27 آذر 1389, 15:24 عصر
دوست عزيز شما بايد خاصيت Keypreview فرمتون رو معادل True قرار دهيد و سپس توي keydown فرمتون كدهاي زير رو قرار دهيد:
Select Case e.KeyCode
Case Keys.Up
e.Handled = True
SendKeys.Send("+{tab}")
SendKeys.Send("{End}")
Case Keys.Down
e.Handled = True
SendKeys.Send("{tab}")
SendKeys.Send("{End}")
End Select
و براي كليد Enter از خاصيت Keypress استفاده كنيد تا صداي beep ويندوز را نشنويد!
If e.KeyChar = Chr(13) Then
e.Handled = True
SendKeys.Send("{tab}")
SendKeys.Send("{End}")
End If
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.