ปัญหาคือผมต้องการอ้าง Control CheckListBox ที่อยู่ในแต่ละหน้ายังงัยครับ เพราะหากเป็นการเพิ่ม Control เข้าไปก่อน Run ก็คงจะโปรแกรมกันปกติครับ แต่ขณะ RunTime ผมติดแหงกเลครับ แต่ส่งโค้ด ที่เพิ่ม Tabpages และ CheckListBox ทำได้แล้วครับ ดังโค้ดด้านล่าง
Code
Private Sub AddControlItem()
For i As Integer = 0 To mdiSAHServer.C1rbbMainMenu.Tabs.Count - 1
Dim c1dtpTab As New C1DockingTabPage
c1dtpTab.Text = mdiSAHServer.C1rbbMainMenu.Tabs(i).Text
c1dtpTab.TabIndex = i
c1dktGroupItem.TabPages.Add(c1dtpTab)
Dim clbList As New CheckedListBox
clbList.CheckOnClick = True
clbList.Font = New Font("Microsoft Sans Serif", 11)
clbList.Location = New Point(6, 10)
clbList.Name = "cblItemGroup" & (i + 1)
clbList.Size = New Size(c1dtpTab.Width - 12, c1dtpTab.Height - 10)
c1dtpTab.Controls.Add(clbList)
For j As Integer = 0 To mdiSAHServer.C1rbbMainMenu.Tabs(i).Groups.Count - 1
clbList.Items.Add(mdiSAHServer.C1rbbMainMenu.Tabs(i).Groups(j).Text)
Next
Next
End Sub
Tag : .NET, Win (Windows App), VB.NET, C#, VS 2008 (.NET 3.x), VS 2010 (.NET 4.x)
จากตัวอย่างเป็นการ Get ค่า Properties Text ของ Button ทั้งหมดที่อยู่ใน TabControl1 น่าจะเป็นลักษณะเดียวกันลองแกะดูครับไม่น่ายากสำหรับ จขกท. นะครับ
Code (VB.NET)
For Each ctl In TabControl1.Controls
If TypeOf ctl Is TabPage Then
For Each ctl2 In ctl.Controls
If TypeOf ctl2 Is Button Then
Dim _But As Button = ctl2
Me.Text &= _But.Text
End If
Next
End If
Next
Load balance : Server 03
