[VB.NET] แจกโค้ดการใช้งาน Ribbon Control Advance ของฟรีจากค่าย Syncfusion

thongkorn

โค้ดการใช้งาน Ribbon Control Advance ของค่าย Syncfusion (ฟอร์มหลัก MDI)...

1. Imports Syncfusion.Windows.Forms.Tools
   
2. 
   
3. Public Class frmMainRibbon
   
4. 
   
5.     Private Sub frmMainRibbon_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
6.         Me.Dispose()
   
7.         GC.SuppressFinalize(Me)
   
8.         Application.Exit()
   
9.     End Sub
   
10. 
    
11.     Private Sub frmMainRibbon_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
12.         '// Run Time
    
13.         With Me.RibbonControlAdv1
    
14.             '.AutoLayoutToolStrip = False
    
15.             .MenuButtonEnabled = False
    
16.             .MenuButtonVisible = False
    
17.             .QuickPanelVisible = False
    
18.             .ScaleMenuButtonImage = False
    
19.             .ShowContextMenu = True ' False
    
20.             .ShowLauncher = False
    
21.             .ShowMinimizeButton = True  ' false
    
22.             .ShowQuickItemsDropDownButton = False
    
23.             .ShowRibbonDisplayOptionButton = False ' True
    
24.         End With
    
25.         Me.RibbonControlAdv1.IsFormManager = False
    
26.         '// Set Default.
    
27.         Call Office2016ToolStripMenuItem_Click(sender, e)
    
28. 
    
29.         '// StatusStrip
    
30.         ToolStripStatusLabel1.Text = "[Design and Code by : Mr.Thongkorn Tumtimkrob]"
    
31.         ToolStripStatusLabel2.Text = ""
    
32.         '// Refresh every 1 Min. (1000 ms = 1 sec.)
    
33.         Timer1.Interval = 1000
    
34.         Timer1.Enabled = True
    
35.     End Sub
    
36. 
    
37.     '// Office 2016
    
38.     Private Sub Office2016ToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles Office2016ToolStripMenuItem.Click
    
39.         Me.RibbonControlAdv1.RibbonStyle = Syncfusion.Windows.Forms.Tools.RibbonStyle.Office2016
    
40.         Me.Office2016ToolStripMenuItem.Checked = True
    
41.         '//
    
42.         Me.Office2007ToolStripMenuItem.Checked = False
    
43.         Me.Office2010ToolStripMenuItem.Checked = False
    
44.         Me.Office2013ToolStripMenuItem.Checked = False
    
45.         Me.TouchToolStripMenuItem.Checked = False
    
46.     End Sub
    
47. 
    
48.     '// Toucj Tool
    
49.     Private Sub TouchToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles TouchToolStripMenuItem.Click
    
50.         Me.RibbonControlAdv1.RibbonStyle = Syncfusion.Windows.Forms.Tools.RibbonStyle.TouchStyle
    
51.         Me.TouchToolStripMenuItem.Checked = True
    
52.         '//
    
53.         Me.Office2007ToolStripMenuItem.Checked = False
    
54.         Me.Office2010ToolStripMenuItem.Checked = False
    
55.         Me.Office2013ToolStripMenuItem.Checked = False
    
56.         Me.Office2016ToolStripMenuItem.Checked = False
    
57.     End Sub
    
58. 
    
59.     '// Office 2007
    
60.     Private Sub Office2007ToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles Office2007ToolStripMenuItem.Click
    
61.         Me.RibbonControlAdv1.RibbonStyle = Syncfusion.Windows.Forms.Tools.RibbonStyle.Office2007
    
62.         Office12ColorTable.ApplyManagedColors(Me, Color.Red)
    
63.         Me.Office2007ToolStripMenuItem.Checked = True
    
64.         '//
    
65.         Me.Office2010ToolStripMenuItem.Checked = False
    
66.         Me.Office2013ToolStripMenuItem.Checked = False
    
67.         Me.Office2016ToolStripMenuItem.Checked = False
    
68.         Me.TouchToolStripMenuItem.Checked = False
    
69.     End Sub
    
70. 
    
71.     '// Office 2010
    
72.     Private Sub Office2010ToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles Office2010ToolStripMenuItem.Click
    
73.         Me.RibbonControlAdv1.RibbonStyle = Syncfusion.Windows.Forms.Tools.RibbonStyle.Office2010
    
74.         Me.Office2010ToolStripMenuItem.Checked = True
    
75.         '//
    
76.         Me.Office2007ToolStripMenuItem.Checked = False
    
77.         Me.Office2013ToolStripMenuItem.Checked = False
    
78.         Me.Office2016ToolStripMenuItem.Checked = False
    
79.         Me.TouchToolStripMenuItem.Checked = False
    
80.     End Sub
    
81. 
    
82.     '// Office 2013
    
83.     Private Sub Office2013ToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles Office2013ToolStripMenuItem.Click
    
84.         Me.RibbonControlAdv1.RibbonStyle = Syncfusion.Windows.Forms.Tools.RibbonStyle.Office2013
    
85.         Me.Office2013ToolStripMenuItem.Checked = True
    
86.         '//
    
87.         Me.Office2007ToolStripMenuItem.Checked = False
    
88.         Me.Office2010ToolStripMenuItem.Checked = False
    
89.         Me.Office2016ToolStripMenuItem.Checked = False
    
90.         Me.TouchToolStripMenuItem.Checked = False
    
91.     End Sub
    
92. 
    
93.     Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
    
94.         'MessageBox.Show("You Click me.")
    
95.         With frmFirst
    
96.             .MdiParent = Me
    
97.             .TopMost = True
    
98.             .Show()
    
99.         End With
    
100.     End Sub
     
101. 
     
102.     Private Sub tsbExit_Click(sender As Object, e As System.EventArgs) Handles tsbExit.Click
     
103.         Me.Close()
     
104.     End Sub
     
105. 
     
106.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
     
107.         Me.ToolStripStatusLabel2.Text = "Date-Time: " & Format(Now(), "dd/MM/yyyy HH:mm:ss")
     
108.     End Sub
     
109. End Class

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

ตัวอย่างโค้ดฟอร์มลูกที่ต้องเปิดใน MDI (Multiple Document Interface) ...

1. Imports System.Data
   
2. Public Class frmFirst
   
3. 
   
4.     Private Sub frmFirst_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
5.         Me.Dispose()
   
6.         GC.SuppressFinalize(Me)
   
7.     End Sub
   
8. 
   
9.     Private Sub frmFirst_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
10.         Me.Dock = DockStyle.Fill
    
11.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    
12.         Me.MinimizeBox = False
    
13.         Me.MaximizeBox = False
    
14.         Me.ControlBox = False
    
15.         '//
    
16.         Call SetupGridView(dgvData)
    
17.         dgvData.DataSource = GetDataTable()
    
18.     End Sub
    
19. 
    
20.     Private Sub SetupGridView(ByRef DGV As DataGridView)
    
21.         With DGV
    
22.             .RowHeadersVisible = True
    
23.             .AllowUserToAddRows = False
    
24.             .AllowUserToDeleteRows = False
    
25.             .AllowUserToResizeRows = False
    
26.             .MultiSelect = False
    
27.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
28.             .ReadOnly = True
    
29.             '// Data rows
    
30.             .Font = New Font("Tahoma", 10)
    
31.             .RowTemplate.MinimumHeight = 27
    
32.             .RowTemplate.Height = 27
    
33.             '// Column Header
    
34.             .ColumnHeadersHeight = 30
    
35.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
36.             '// Autosize Column
    
37.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
38.             '// Even-Odd Color
    
39.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
40.             .DefaultCellStyle.SelectionForeColor = Color.White
    
41.             '// Header
    
42.             With .ColumnHeadersDefaultCellStyle
    
43.                 .BackColor = Color.Navy
    
44.                 .ForeColor = Color.White
    
45.                 .Font = New Font(DGV.Font, FontStyle.Bold)
    
46.             End With
    
47.         End With
    
48.     End Sub
    
49. 
    
50.     Function GetDataTable() As Data.DataTable
    
51.         Dim dt As New Data.DataTable
    
52.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 6 หลัก
    
53.         With dt
    
54.             .Columns.Add("EmployeePK", GetType(Integer))
    
55.             .Columns.Add("EmployeeID", GetType(String))
    
56.             .Columns.Add("EmployeeName", GetType(String))
    
57.             .Columns.Add("Position", GetType(String))
    
58.             .Columns.Add("Department", GetType(String))
    
59.             .Columns.Add("HireDate", GetType(Date))
    
60.         End With
    
61.         ' / เพิ่มรายการข้อมูล (Record) เรียงตามลำดับฟิลด์
    
62.         With dt
    
63.             .Rows.Add("1", "EMP00001", "นายทองก้อน ทับทิมกรอบ", "Managing Director", "Management", "01/01/2555")
    
64.             .Rows.Add("2", "EMP00002", "นายบุญห่อ พ่อรวย", "ช่างซ่อมบำรุง", "Technical", "01/06/2555")
    
65.             .Rows.Add("3", "EMP00003", "นางสาวกุ๊กกิ๊ก น่ารักที่สุด", "เลขา", "Management", "25/02/2555")
    
66.             .Rows.Add("4", "EMP00004", "นางบัวผัน ฝันเฟื่อง", "หัวหน้าบัญชี", "บัญชี", "11/11/2555")
    
67.             .Rows.Add("5", "EMP00005", "หนูมาลี มีลูกแมวเหมียว", "ธุรการ", "ธุรการ", "13/04/2555")
    
68.         End With
    
69.         '// Hidden Column 0 of DataTable
    
70.         dt.Columns(0).ColumnMapping = MappingType.Hidden
    
71.         Return dt
    
72.     End Function
    
73. 
    
74.     Private Sub itemAdd_Click(sender As System.Object, e As System.EventArgs) Handles itemAdd.Click
    
75.         MessageBox.Show("You Click me for Add New Data.")
    
76.     End Sub
    
77. 
    
78.     Private Sub itemExit_Click(sender As System.Object, e As System.EventArgs) Handles itemExit.Click
    
79.         Me.Close()
    
80.     End Sub
    
81. End Class

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

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

maisurin

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

Adtaponr

ขอบคุณมากครับ

xissoco

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

jai

thank you , sir.