[VB.NET] การใช้งาน GroupBar ของฟรีใน Syncfusion Community

thongkorn

ย้ำอีกทีน่ะครับว่า Syncfusion Community เป็นของฟรีที่เต็มไปด้วย Control หรือ Component ที่น่าใช้งานอยู่มากมายหลายตัว และหนึ่งในนั้นก็คือ GroupBar ซึ่งนำมาใช้ประโยชน์ด้วยการจัดหมวดหมู่กลุ่ม Control อีกทีหนึ่งได้ค่อนข้างดีทีเดียว ... (Download Syncfusion Community Edition)


การเรียกใช้งาน Syncfusion โดยเลือก Reference ตัวหลัก 2 ตัวนี้ ...



หน้าจอการออกแบบ (Design Time)


มาดูโค้ดกันเถอะ ...

1. ' / -------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More Info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Using GroupBar of Syncfusion Community.
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / -------------------------------------------------------------------------------
    
15. 
    
16. Public Class frmGroupBar
    
17. 
    
18.     Private Sub frmGroupBar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         Me.CenterToScreen()
    
20.         '/ MessageBox.Show(AppPath);
    
21.         Dim MyPath As String = Application.StartupPath.ToLower
    
22.         MyPath = MyPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
23.         '// If not found folder then put the \ (BackSlash) at the end.
    
24.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
25.         Dim strPathImage As String = MyPath & "images"
    
26.         '//
    
27.         Me.GroupBar1.ForeColor = Color.Black
    
28.         Me.GroupBar1.Font = New Font("Tahoma", 10, FontStyle.Bold)
    
29.         '// Acquire the DataTable instance.
    
30.         Dim table As DataTable = GetTable()
    
31.         Dim row As DataRow
    
32.         Dim img As String
    
33.         '/ Load data @RunTime
    
34.         Dim Rec As Integer = 0
    
35.         Dim myButtons = { _
    
36.             btnBurger1, btnBurger2, btnBurger3, btnBurger4, btnBurger5, btnBurger6, btnBurger7, _
    
37.             btnSmall1, btnSmall2, btnSmall3, btnMedium1, btnMedium2, btnMedium3, btnLarge1, btnLarge2, btnLarge3 _
    
38.             }
    
39.         For Each btn In myButtons
    
40.             row = table.Rows(Rec)
    
41.             With btn
    
42.                 '// ใช้คุณสมบัติ Tag เก็บค่า Primary Key
    
43.                 .Tag = row("PK")
    
44.                 '// ใช้คุณสมบัติ Text เก็บค่า Description
    
45.                 .Text = row("Description")
    
46.                 img = strPathImage & row("Picture")
    
47.                 .BackgroundImage = New System.Drawing.Bitmap(img)
    
48.             End With
    
49.             '// Force events handler.
    
50.             AddHandler btn.Click, AddressOf ClickButton
    
51.             Rec += 1
    
52.         Next
    
53.     End Sub
    
54. 
    
55.     '// Click Button event, get the text of button
    
56.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
    
57.         Dim btn As Button = sender
    
58.         '// หากนำไปใช้งานจริง ข้อมูลของตัวสินค้าจะถูกเรียกมาจากตารางข้อมูล
    
59.         '// Acquire the DataTable instance.
    
60.         Dim table As DataTable = GetTable()
    
61.         'Search DataTable by string DataType
    
62.         Dim oRow() As DataRow = table.Select("PK = " & btn.Tag)
    
63.         MessageBox.Show("You choose: " & btn.Text & vbCrLf & "Price: " & CDbl(oRow(0)("PriceCash")) & " Baht.")
    
64.     End Sub
    
65. 
    
66.     '// จำลองเป็นตารางข้อมูล (Table)
    
67.     Function GetTable() As DataTable
    
68.         ' Generate a new DataTable.
    
69.         ' ... Add columns.
    
70.         Dim table As DataTable = New DataTable
    
71.         table.Columns.Add("PK", GetType(Integer))
    
72.         table.Columns.Add("Description", GetType(String))
    
73.         table.Columns.Add("PriceCash", GetType(Double))
    
74.         table.Columns.Add("Quantity", GetType(Integer))
    
75.         table.Columns.Add("Picture", GetType(String))
    
76.         ' ... Add rows.
    
77.         table.Rows.Add(1, "Classic Checken", "50.00", "1", "BurgerChicken.png")
    
78.         table.Rows.Add(2, "Mexicana", "100.00", "1", "BurgerMexicana.png")
    
79.         table.Rows.Add(3, "Lemon Shrimp", "150.00", "1", "BurgerLemonShrimp.png")
    
80.         table.Rows.Add(4, "Bacon", "200.00", "1", "BurgerBacon.png")
    
81.         table.Rows.Add(5, "Spicy Shrimp", "250.00", "1", "BurgerSpicyShrimp.png")
    
82.         table.Rows.Add(6, "Tex Supreme", "300.00", "1", "BurgerTexSupreme.png")
    
83.         table.Rows.Add(7, "Fish", "350.00", "1", "BurgerFish.png")
    
84.         '//
    
85.         table.Rows.Add(101, "Pepsi Small", "10.00", "1", "PepsiCan.png")
    
86.         table.Rows.Add(102, "Coke Small", "15.00", "1", "CocaColaCan.png")
    
87.         table.Rows.Add(103, "7Up Small", "20.00", "1", "7UpCan.png")
    
88.         table.Rows.Add(104, "Pepsi Medium", "25.00", "1", "PepsiCan.png")
    
89.         table.Rows.Add(105, "Coke Medium", "30.00", "1", "CocaColaCan.png")
    
90.         table.Rows.Add(106, "7Up Medium", "45.00", "1", "7UpCan.png")
    
91.         table.Rows.Add(107, "Pepsi Large", "50.00", "1", "PepsiCan.png")
    
92.         table.Rows.Add(108, "Coke Large", "55.00", "1", "CocaColaCan.png")
    
93.         table.Rows.Add(109, "7Up Large", "60.00", "1", "7UpCan.png")
    
94.         Return table
    
95.     End Function
    
96. 
    
97. End Class

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

ดาวน์โหลดโค้ดต้นฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

wut262

ขอบคุณครับ