ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
Private Sub YourTabbedControlName_Change() Select Case YourTabbedControlName Case 0 'First Page FirstPageButton.SetFocus Case 1 'Second page SecondPageButton.SetFocus Case 2 'Third page ThirdPageButton.SetFocus End Select End Sub
در رویداد Change تب کنترل که به نام YourTabbedControlName است انتخاب هایی صورت گرفته با Select Case ( در زمان رفتن به فرم یا تب خاصی تعدادی از رویدادها اتومات اجرا میشوند مثل رویداد Change و Click) طبق کد بالا چنانچه در پیج ها جابجاشویم حین این جابجایی فوکس به کنترل خاصی در آن پیج منتقل میشود وقتی به پیج یک می رویم یا بعبارتی پیج یک را انتخاب می کنیم کنترل نوع باتن به اسم FirstPageButton فوکس می گیرد.
Msgbox TabControl1.Pages.Count
با عبارت بالا تعداد پیج های موجود در تب کنترل 1 نمایش داده میشود
TabControl1.Pages(0).Caption = "First Page"
با عبارت بالا خاصیت کپشن پیج با ایندکس صفر در کنترل TabControl1 به First Page تنظیم شده