استفاده از enter بجای tab [بایگانی]

user2535

شنبه 08 بهمن 1384, 21:35 عصر

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

sohrab o

شنبه 08 بهمن 1384, 22:31 عصر

Private Sub Form_KeyPress(KeyAscii As Integer)

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

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

sohrab o

شنبه 08 بهمن 1384, 22:32 عصر

Private Sub Form_KeyPress(KeyAscii As Integer)

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

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

sohrab o

شنبه 08 بهمن 1384, 22:33 عصر

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

ehsan_ansaripoor

شنبه 08 بهمن 1384, 23:48 عصر

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

if Keyascii=13 then
TextBox(index+1).SetFocus
end if

sohrab o

یک شنبه 09 بهمن 1384, 11:57 صبح

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

Typisch_VB6

دوشنبه 17 بهمن 1384, 18:55 عصر

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

user2535

سه شنبه 18 بهمن 1384, 00:22 صبح

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

sohrab o

سه شنبه 18 بهمن 1384, 00:47 صبح

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

mpmsoft

جمعه 28 بهمن 1384, 22:35 عصر

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

bahar65

جمعه 28 بهمن 1384, 23:31 عصر

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

sohrab o

شنبه 29 بهمن 1384, 13:46 عصر

chon bayad keypreview=true koni

Armin62

شنبه 29 بهمن 1384, 14:27 عصر

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

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

H_SH_VB

یک شنبه 30 بهمن 1384, 00:37 صبح

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