VB6 TabStrip

عندما كنت أقوم بالبرمجة بلغة Visual Basic 6.0 كانت من أشد الأدوات قوة وقدرة على التنظيم في برامج Windows Desktop Application وفي نفس الوقت صعبة في البرمجة ما يعرف بأداة (TabStrip) ويفضل إستخدامه من المكتبة البرمجية (Microsoft Windows Common Controls 6.0) مع (Service Pack 6)، بالرغم من وجود إمكانية التحكم بها لكن إذا أردت وضع بعد اللأدوات عليها فتوجد طرق معينة لذلك.

لنفرض أنك وضعت العنصر (TabStrip1) على Form وأردت صنع مساحتين (Tab1) و (Tab2) فيفضل جمع الأدوات داخل (Frame) وبالتالي يكون لدينا (Frame1(0)) و (Frame1(1))، ثم نبدأ بوضع الأكواد حيث يكون الكود الأول في Form_Load هو

  Dim Ctl As Control
  TabStrip1.Tabs(1).Caption = "Tab1"
  TabStrip1.Tabs.Add , , "Tab2"
  For Each Ctl In frmX.Controls
      Select Case TypeName(Ctl)
        Case "Frame"
          If (Ctl.Name = "Frame1") Th en
            Ctl.Move TabStrip1.ClientLeft, TabStrip1.ClientTop, 
                     TabStrip1.ClientWidth, TabStrip1.ClientHeight
          Ctl.BorderStyle = 0
        End If
      End Select
    Next
  Frame1(0).ZOrder 0
  Frame1(0).Visible = True

وفي مكان الحدث (TabStrip1_Click) يتم وضع الكود التالي 

Frame1(TabStrip1.SelectedItem.Index - 1).ZOrder 0
Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True

بعد ذلك يمكنك وضع كافة أدواتك على () و () بسهولة ويمكنك الإختيار بيناهما من (TabStrip1).