فعال کردن مکان نما در تکست باکس مورد نظر

[esyoo]

سلام
دوستان من قصد دارم بعد از اینتر در تکست باکس نام


http://aks98.com/images/r3z82blld3gxfh3vswrl.jpg



مکان نما در تکست باکس سال فعال بشه با چه کدی این کار روانجام بدم؟


http://aks98.com/images/odcvkasp4o35c5c3qhie.jpg

http://rapidshare.com/files/415061529/active_txtbox_after_inter.xlsm

با تشکر

[esyoo]

سلام
دوستان با این دو کد نتونستم این چیزی رو که می خوام درست انجام بدم
ActiveSheet.TextBox1.Activate
یا
Text1.SetFocus
با تشکر

[shamsololama]

با درود فراوان

برای این کار راه های مختلفی وجود دارد که برخی از انهارا می گویم

یکی این که ترتیب تکس باکسها را طوری که مدنظرتون هست تغییر بدید یعنی با راست کلیک بر روی یوزرفورم و انتخاب Tab Order بروید
و در لیست باز شده با کمک انتخاب کردن تکس 3 و کلیک بر روی Move Up یا Move Down آن را بالا و پائین ببر تا که دقیقا زیر تکس باکس یک قرار بگیرد
با این کار وقتی که مکان نما در تکس باکس یک باشد با تب و یا اینتر به تکس باکس سه خواهیم رفت.

روش دوم :

کد زیر را در تکس باکس یک قرار دهیم تا زمان خروج از تکست باکس یک به تکس باکس سه برویم (همانطور که می بینید کد را در زیر روال Exit قرار داده ایم

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.SetFocus
End Sub

روش سوم :
اگر در نظر داشته باشیم که در هر تکس باکس و یا گزینه های دیگر یوزر فورم باشیم زمانی که اینتر میزنیم یکی از CommandButton کند آن کلید را انتخاب کرده و در قسمت پروپرتیس Default آن را برابر True قرار می دهیم
با اینکار همیشه زمانی که اینتر بزنیم آن CommandButton عمل می کند که می توانید دستوری که در آن کلید می نویسید را بشکل زیر قرار دهید تا زمان اینتر تکس باکس سه فعال بشود

Private Sub CommandButton1_Click()
TextBox3.SetFocus
End Sub

[ariyo]

با سلام
با کسب اجازه از اساتید فروم
اگر بخواهید زمانی که دکمه ی Enter توسط کاربر زده می شود، کنترل را به دست بگبربد و کد مورد نظرتان را به اجرا در آورید بایستی از رویداد (Event) KeyDown همان کنترل استفاده کنید (رویداد Keypress دراین مورد کاری انجام نمی دهد).
مثلا اگر ما سه TextBox تحت نام های Textbox1 و Textbox2 و Textbox3 داشته باشیم و بخواهیم زمانی که روی Textbox1 دکمه ی Enter زده شد، مکان نما به Textbox3 منتقل شود، بایستی از کد زیر استفاده کنیم.


(Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer
If KeyCode = 13 Then
TextBox3.SetFocus
End If
End Sub

امیدوارم که توانسته باشم کمکی کرده باشم.
خدانگهدار[hr]
از مسئولین سایت خواهشمندم یک کاری برای ادیتور درج کامنت انجام بدهند.
چون ویرایش کردن واقعا سخته.
با سپاس
خدانگهدار

[fatemeh.1620]

سلام دوستان، من در رویداد اینتر تکست باکس کد جستجو رو می نویسم اما وقتی اینتر رو می زنم عملیات جستجو و بارگذاری گرید رو انج:huh:ام نمی ده. اگر راهنمایی بفرمایید متشکر میشم.