حرکت با کلید های keydown و key up

[fahimeh.n]

همگی خسته نباشین

چطور میشه با دکمه های keydown و keyup از یه textbox به textbox دیگه رفت ؟

[meysam_meysam74]

If Asc(e.KeyChar) = 13 Then
e.Handled = True
Form2.TextBox1.Focus()
end if
13 برابر با اینتر 27 میشه اسکیت هر کلیدی یه کد اسکی داره تویه روال KeyPress بنویس این کد رو

[fahimeh.n]

ممنون از راهنماییتون
کد اسکی رو چطور میتونم پیدا کنم ؟:خجالت:شما دارین ؟

[ali_najari]

دوست عزيز شما بايد خاصيت 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