انتقال فوکوس به شیئی با تب ایندکس معلوم

[kaladb]

باسلام
مبخواهم در فرمی که چند تکست باکس دارد فوکوس را به نکست باکسی با تب ایندکس مورذ نظر خود انتقال ذهم .لطفا مرا راهنمایی فرمایید
مثلا در فرمی که 10 کنترل فوکوس پذیر با تب ایندکس 1 الی10 دارد . اگر کاربر عدد 6 را به سیستم وارد کند فوکوس به کنترل با تب ایندکس 6 منتقل شود. متشکرم

[aliebrahimi1900]

باسلام
مبخواهم در فرمی که چند تکست باکس دارد فوکوس را به نکست باکسی با تب ایندکس مورذ نظر خود انتقال ذهم .لطفا مرا راهنمایی فرمایید
مثلا در فرمی که 10 کنترل فوکوس پذیر با تب ایندکس 1 الی10 دارد . اگر کاربر عدد 6 را به سیستم وارد کند فوکوس به کنترل با تب ایندکس 6 منتقل شود. متشکرم


If TextBox1.CanFocus Then
TextBox1.Focus()
End If

[aliebrahimi1900]

اینم کاملش




Dim Nom As Integer
Nom = Int(TextBox1.Text)
Select Case Nom
Case 1
TextBox1.Focus()
Case 2
TextBox2.Focus()
Case 3
TextBox3.Focus()
Case 4
TextBox4.Focus()
Case 5
TextBox5.Focus()
Case 6
TextBox6.Focus()
Case 7
TextBox7.Focus()
Case 8
TextBox8.Focus()
Case 9
TextBox9.Focus()
Case 10
TextBox10.Focus()

End Select

[kaladb]

با تشکر از aliebrahimi1900بله راههای مختلفی برای ان وجود دارد از جمله راهی که شما فرمودید ولی منظور من نوعی ادرس دهی به کنترل بود توسط تب ایندکس!
یعنی ایا عدد تب ایندکس موتواند بعنوان ادرسی برای کنترلهای موجود در فرم عمل نماید ؟ایا روشی برای اذرس دهی به کنترلها وجود دارد؟
میدانید دستور me.controls.count تعداد کنترلهای موجود در فرم را برای ما مشخص میسارد و با دستور
(me.controls.item(x
با مقدار دهی به x به هریک از کنترلها دستیابی پیدا کنیم . حال مسئله من چگونگی مرتب شدن کنترلها است یعنی کدام کنترل بعنوان ایتم(0) و کدام کنترل بعنوان ایتم(1)و .... تعیین میگردد؟:متفکر:

[aliebrahimi1900]

اینم با tab Index


Dim x As Integer = Int(TextBox1.Text)

For Each b As Control In Me.Controls
If b.TabIndex = x Then
b.Focus()

End If

Next