SS Tab

SS tab เป็นตัว control ที่ยอมให้สร้างไดอะล๊อกบ๊อกซ์ Tab ซึ่งเกือบเหมือนกับ Tab strip แต่มีความแตกต่างที่สำคัญระหว่างตัว control นี้ คือ SS tab เป็น container ทำให้สามารถวางตัว control ลูกได้โดยตรงบนผิว และสามารถเปลี่ยนหน้า Tab ระหว่างการออกแบบ ทำให้งานที่เตรียมตัว control มีความง่ายและสะดวกมากกว่า Tab strip การทำงานกับ SS tab ทำได้ง่ายเพราะตัว control ไม่เก็บอ๊อบเจคที่ขึ้นต่อ และไวยากรณ์ของคุณสมบัติและ event ตรงไปตรงมา

SS tab อยู่ในไฟล์ TABCTL32.OCX ซึ่งต้องกระจายไปกับโปรแกรมประยุกต์ที่ใช้ตัว control นี้ และต้องมีการโหลดเข้ามา โดยเลือก Microsoft Tabbed Dialog Control 6.0 จากรายการในไดอะล๊อกบ๊อกซ์ Component ส่วน tool บน Toolbox คือ

การตั้งค่าคุณสมบัติเมื่อออกแบบ

เมื่อมีการวางตัว control ลงบนฟอร์มแล้ว ที่แท็บ General คุณสมบัติ Style เป็นคุณสมบัติแรกที่ควรเปลี่ยนจากค่าเริ่มต้น 0-ssStyleTabbedDialog เป็นรูปที่ทันสมัยกว่าด้วยค่า 1-ssStylePropertyPage แต่จะไม่สามารถเปลี่ยนค่าเริ่มต้นได้ ถ้าตั้งค่าคุณสมบัติ TabOrientation

การเพิ่มหรือลบหน้าแท็บใช้การเปลี่ยนค่าในฟิลด์ TabCount และสร้างแถวแท็บเป็นแบบหลายแถว ด้วยการตั้งค่าที่เหมาะสมสำหรับคุณสมบัติ TabsPerRow การย้ายระหว่างแท็บ สามารถใช้ปุ่ม spin และปรับปรุงคุณสมบัติ Caption (คุณสมบัติจะแสดงฟิลด์ เฉพาะแท็บปัจจุบัน) และสามารถใช้ตัวอักษร & เพื่อกำหนดเป็น hot key

คุณสมบัติ TabHeight เป็นความสูงในหน่วย twips ของแท็บทั้งหมดในตัว control คุณสมบัติ TabMaxWidth มีความกว้างมากที่สุด คุณสมบัติ WordWrap ควรตั้งเป็น True เพื่อล้อม caption ถ้าคุณสมบัติ ShowFocusRect เป็น True โฟกัสรูปสี่เหลี่ยมจะปรากฏบนแท็บที่ได้รับโฟกัส

ที่แท็บ Picture สามารถกำหนดภาพขนาดเล็กด้วยการคลิกบนคุณสมบัติ Picture ที่ซ้ายสุดของ List box และเลือกบิตแม็บหรือไอคอนที่ต้องการกำหนดให้กับแท็บปัจจุบัน ภาพที่ใช้สามารถอ้างถึงในคำสั่งด้วยคุณสมบัติ TabPicture

ข้อควรระวัง: ตัว control ที่วางลงไปทั้งหมดอยู่ใน container เดียวของ SS tab ไม่ขึ้นกับหน้าแท็บ ทำให้ตัว control เช่น Option button ถ้ามี 2 กลุ่มในหน้าแท็บที่ต่างกับ 2 หน้า ควรวางแต่ละกลุ่มให้อยู่คนละ frame หรือคนละ container

การทำงานเมื่อเรียกใช้

คุณสมบัติหลักของ SS tab คือแท็บซึ่งส่งค่าดัชนีของแท็บปัจจุบันที่เลือกโดยผู้ใช้ ซึ่งสามารถตั้งค่าเพื่อเปลี่ยนไปแท็บอื่นโดยใช้คำสั่ง โดยแท็บแรกที่ค่าดัชนีที่เป็น 0

การเปลี่ยนคุณลักษณะของแท็บ

การเปลี่ยนคุณลักษณะของแท็บไม่จำเป็นต้องทำที่แท็บปัจจุบันเพราะคุณสมบัติ ที่ต้องการ คือ ดัชนี

SSTab1.TabCaption(0) = "เข้าสู่ระบบ"
picFile = ("C:\ Microsoft Visual Studio\Common\Graphics\Bitmaps\Asserted\ballon.bmp"
SSTab1.TabPicture(1) = LoadPicture(picFile)
SSTab1.TabVisible(2) = False

คุณสมบัติ Tabs ส่งออกจำนวนของแท็บที่มีอยู่

' ไม่ให้ใช้แท็บทั้งหมดยกเว้นแท็บปัจจุบัน
For i = 0 to SSTab1.Tabs -1
SSTab1.TabEnabled (i) = (I = SSTab1.Tab}
Next

การสร้างแท็บใหม่

การสร้างแท็บใหม่ เมื่อเวลาเรียกใช้สร้างด้วยการเพิ่มค่าของคุณสมบัติ Tabs และสามารถต่อแท็บใหม่ในที่เฉพาะได้

SSTab1.Tabs = SSTab1.Tabs+1
SSTab1.TabCaption (SSTab1.Tabs-1) = "รายงานสรุป"

การเพิ่มตัว control ให้กับแท็บที่สร้างใหม่ สามารถทำด้วยการสร้างตัว control แบบ dynamic แล้วเปลี่ยนคุณสมบัติ Container

Dim txt As TextBox
Set txt = Controls.Add ("VB.Text Box", "txt")
SSTab1.Tab = SSTab1.Tab -1
txt.Move 400, 800, 1200, 350
txt.Visible = True

ดาวน์โหลดตัวอย่าง(SSTab.vbp)