استفاده از enter بجای tab

[user2535]

سلام
یک فرم ساده طراحی کرده ام حالا برای حرکت کردن بین textbox ها بجای آنکه از tab استفاده بشه می خوام از enter استفاده کنم لطفا راهنمایی کنید

[sohrab o]

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys "{Tab}"
End If

End Sub
این کد رو کپی کن بعدش هم Me.KeyPreview =True کن

[sohrab o]

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys "{Tab}"
End If

End Sub
این کد رو کپی کن بعدش هم Me.KeyPreview =True کن

[sohrab o]

راستی توضیح :
با تابع Sendkeys فکوس رو به object بعدی ارسال می کنه
در ضمن باید tabIndex های Object ها رو هم مرتب کرد

[ehsan_ansaripoor]

دوست عزیز به نظر من بهترین کار اینه که شما از کنترل TexBox به صورت آرایه استفاده کنید بعد می تونید به صورت زیر عمل کنید:

if Keyascii=13 then

TextBox(index+1).SetFocus

end if

[sohrab o]

albate code man az in lehaz behtare ke name text box ha farghi nadare va vase tamame onject ha kar mikone

[Typisch_VB6]

sohrab age ye textbox fucos bashe
onvaght code to javab nemid :-W

[user2535]

البته مشکل من حل شد از سهراب و بقیه دوستان ممنونم

[sohrab o]

می شه دقیقا بگی کده من کی کار نمی کنه
آخه توی بیشتر از 10 تا برنامه استفاده کردم
یکی از برنامه ها هم بیشتر از 1200 نسخه فروش رفته اما کسی چیرزی نگفته؟

[mpmsoft]

Private Text1_KeyDown()
if keycode=VBKeyReturn then
Text2.setFocus
end if
end sub

[bahar65]

man vaghty rooye frame mindazam text boxamo in code kar nemikone.

[sohrab o]

chon bayad keypreview=true koni

[Armin62]

سهراب جان اگه توجه کنی موقعی که از کد شما در برنامه استفاده میشه با زدن اینتر کار تب انجام میشه ولی صدایی هم از اسپیکر به گوش میرسه

به نظرت میشه حلش کرد

[H_SH_VB]

آره میشه
multiselect = true
badesh mogheye enter zadan bayad havaset bashe ke badesh entero az textbox pak koni
تو keypress ببین اگه اینتر بود بره بعدی و یه doevent بزار
بعد یه vbcrlf ازش پاک کن که نمونه اونجا