เรียนสอบถามเรื่อง การ ดึงข้อมูลจาก teble มาแสดง Button ใน tabcontrol

araban

thongkorn

โค้ดนี้เป็นการสร้างปุ่มแบบ Run Time โดยมีแค่ฟอร์มเปล่าๆและ CommandButton 1 ตัวเท่านั้นครับ โดยให้สร้างปุ่มตามจำนวนที่เรากำหนด และจัดเรียงแบบ 2 หลัก ด้วยการหาระยะการวางตำแหน่ง  หากเข้าใจวิธีการคิด ก็น่าจะนำไปประยุกต์ใช้งานได้ (ทำตามขั้นตอนที่ผมบอกโดยเริ่มจาก Form_Load) ...

1. Option Explicit
   
2. ' เก็บค่า Index ของ Control Array
   
3. Private CtrlIndex As Integer
   
4. 
   
5. Private Sub Form_Load()
   
6.         ' ปกติวิธีการสร้าง CommandButton Control Array ลงบนฟอร์ม
   
7.     ' 1. สร้าง CommandButton ต้นแบบออกมาไว้ก่อน 1 ตัว และตั้งค่าคุณสมบัติ
   
8.     '     - Name = CtrlCommand
   
9.     '     - Index = 0
   
10.     ' 2. คัดลอก หรือ Copy Control แล้ววาง (Paste) ลงบนฟอร์ม
    
11.    
    
12.     ' เราก็จะใช้วิธีการเดียวกันนั่นแหละครับ เพียงแต่ใช้ Code สั่งงานในขณะ Run Time แทน
    
13.     ' การโหลด Form หรือ Control เข้าสู่หน่วยความจำ ... เราใช้คำสั่ง LOAD
    
14.     ' กำหนด Index ของ CommandButton Control ตัวแรกเท่ากับ 0
    
15.     CtrlIndex = 0
    
16.     ' ป้ายบอกชื่อ Control
    
17.     'CtrlCommand(0).Caption = CtrlCommand(0).Name & " index " & CtrlCommand(0).Index
    
18.     CtrlCommand(0).Caption = "โต๊ะหมายเลข " & CtrlCommand(0).Index + 1
    
19.    
    
20.     ' เพิ่ม CommandButton อีก 8 ตัว
    
21.     Call AddControl(8)
    
22. End Sub
    
23. 
    
24. ' ===========================================================
    
25. ' โปรแกรมย่อยที่ใช้ในการเพิ่ม CommandButton ตามจำนวนที่กำหนด แบบ Run Time
    
26. ' ===========================================================
    
27. Private Sub AddControl(NumOfControl As Integer)
    
28.     Dim Count As Integer
    
29.     For Count = 1 To NumOfControl
    
30.         
    
31.         ' คำสั่ง Load คือ การโหลด Form หรือ Control เข้าสู่หน่วยความจำ
    
32.         ' การใช้คำสั่งนี้ ก็จะเหมือนกับการคัดลอก และ วาง Control ลงบนฟอร์มนั่นเอง
    
33.         ' และเพิ่มจำนวนค่าของ Index ขึ้นอีก1 ... เพราะมันเป็น Array ไงล่ะครับ
    
34.         ' เทคนิคง่ายๆ คำสั่งง่ายๆ ...
    
35.         CtrlIndex = CtrlIndex + 1
    
36.         Load CtrlCommand(CtrlIndex)
    
37.    
    
38.         With CtrlCommand(CtrlIndex)
    
39.             ' จัดตำแหน่งของ Control ...
    
40.             Select Case (Count Mod 2)
    
41.                 ' เลขจำนวนเต็มใดๆ หารเอาเศษ (MOD) ด้วย 2 หากผลลัพธ์เป็น 0 เลขจำนวนเต็มนั้นๆจะเป็นเลขคู่
    
42.                 Case 0
    
43.                     .Left = CtrlCommand(0).Left
    
44.                     .Top = CtrlCommand(CtrlIndex - 1).Top + _
    
45.                                 CtrlCommand(CtrlIndex - 1).Height + 60
    
46.                
    
47.                 ' เลขจำนวนเต็มใดๆ หารเอาเศษ (MOD) ด้วย 2 หากผลลัพธ์เป็น 1 เลขจำนวนเต็มนั้นๆจะเป็นเลขคี่
    
48.                 Case 1
    
49.                     .Left = CtrlCommand(CtrlIndex - 1).Left + _
    
50.                                 CtrlCommand(CtrlIndex - 1).Width + 60
    
51.                     .Top = CtrlCommand(CtrlIndex - 1).Top
    
52.                
    
53.             End Select
    
54.             
    
55.             .Visible = True
    
56.             ' ป้ายบอกชื่อ Control
    
57.             'CtrlCommand(Count).Caption = CtrlCommand(Count).Name & _
    
58.                                                                             " index " & CtrlCommand(Count).Index
    
59.             
    
60.             CtrlCommand(Count).Caption = "โต๊ะหมายเลข " & CtrlCommand(Count).Index + 1
    
61.         End With
    
62.     Next
    
63. End Sub
    
64. 
    
65. Private Sub ctrlCommand_Click(Index As Integer)
    
66.     ' นำไปประยุกต์กันต่อเองล่ะกันครับ ... พี่น้อง
    
67.     'MsgBox "CtrlCommand " & Index & " ถูกเลือก."
    
68.     MsgBox "คุณจิ้มกดเลือกโต๊ะหมายเลข " & Index + 1, vbOKOnly + vbInformation, "เลือกโต๊ะ:"
    
69. End Sub

คัดลอกไปที่คลิปบอร์ด

araban

ขอบคุณมากครับอาจารย์