جابجایی ین دکمه ها و تکست باکس ها با Enter

[likemoon]

سلام
من میخوام در برنامم وقتی یک تکست باکسی با اطلاعات مورد نظر پر میشه و میخوایم به تکست باکس بعدی بریم و یا دکمه رو بزنیم به جای اینکه از موس (یا فکر کنم به صورت پیش فرض با کلید tab میشه اینکارو کرد) با کلید Enter جابجا بشم، با vb کار میکنم لطفا کدی رو که باید وارد کنم برای اینکار یادم بدید:لبخندساده:

[ghayour]

با سلام دوست عزیز

بهتره قبل از تاپیک زدن کمی جستجو کنید.
در همین سایت برنامه نویس خیلی از این سوالها پرسیده شده.
به عنوان مثال:
به این آدرس برید. (http://barnamenevis.org/showthread.php?377040-%D8%AA%D9%85%D8%B1%DA%A9%D8%B2-%D8%AF%D8%B1-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3&p=1666443&viewfull=1#post1666443)

موفق باشید

[shahryari]

1- تب ايندكس تكست باكسها را براساس اوليت مرتب كنيد
2- با استفاده از كليد ‍Ctrl همه تكست باكس ها را بصورت انتخاب شده در بياوريد
3- بر روي رويداد KeyDown موجود در ليست Events دوبار كليك كنيد تا رويداد KeyDown براي همه تكست باكس ها ايجاد شود
4- در رويداد ايجاد شده كد زير را به رشته تحرير!! بياوريد.
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
ProcessTabKey(True)
End If

[likemoon]

یک دنیا ممنونمممم یک دنیاااااااااااااااااااااا

[likemoon]

1- تب ايندكس تكست باكسها را براساس اوليت مرتب كنيد
2- با استفاده از كليد ‍Ctrl همه تكست باكس ها را بصورت انتخاب شده در بياوريد
3- بر روي رويداد KeyDown موجود در ليست Events دوبار كليك كنيد تا رويداد KeyDown براي همه تكست باكس ها ايجاد شود
4- در رويداد ايجاد شده كد زير را به رشته تحرير!! بياوريد.
1
2
3
4
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
ProcessTabKey(True)
End If


آقا من کد رو نوشتم جواب نداد

[gilsoft]

آقا من کد رو نوشتم جواب نداد

سلام دوست عزیز

ضمن تایید کد پست 3# .. بصورت کامل برات گذاشتم :
Private Sub TextBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
ProcessTabKey(True)
End If
End Sub

موفق باشید

[likemoon]

من دقیقا عین همین کد رو برای چند تا تکس باکسی که میخواستم نوشتم اما جواب نداد :(
اما هر تکست باکس یه پروپرتی داره به اسم EnterMoveNextControl که اگه این رو true کنیم همین کارو انجام میده
البته این خاضیت فقط مال تکست باکس های devexpress هست(textedit)

[ghayour]

من که اینو که گفتی توی پروپرتیزش پیدا نکردم!! شاید شما از کامپوننت استفاده میکنی؟!
این کد رو که مینوسی باید TabIndex هاش رو هم توی پروپرتیز شماره بدی.
مثلا اولین تکست باکس 0، دومی 1 و...
بعدش باید این کد رو در خاصیت KeyDown هر تکست باکس قرار بدی.

1
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
ProcessTabKey(True)
End If

[likemoon]

من که اینو که گفتی توی پروپرتیزش پیدا نکردم!! شاید شما از کامپوننت استفاده میکنی؟!بله از کامپوننت textedit ،از devexpress استفاده میکنم ، مگه شما از چی استفاده میکنید؟

[ghayour]

از تکست باکس خود وی بی