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

thongkorn

โค้ดการใช้งาน SfForm ของฟรีจากค่าย Syncfusion ... SfForm ก็จะมีความคล้ายคลึงกับ Metro Form แต่ SfForm สามารถทำฟอร์มให้เป็นแบบ MDI (Multiple Document Interface) ได้ รวมไปถึงการใส่ Control เช่น TextBox ลงไปใน TitleBar ของฟอร์มได้ นอกจากนี้ยังสามารถกำหนดให้ End User ปรับแต่งหน้าตาของฟอร์ม (Customization) ได้เองอีกต่างหาก ... เนื่องจากคุณสมบัติของ SfForm มันมีอยู่เยอะแยะมาก แอดมินเลยเลือกตัดมาเฉพาะในส่วนที่สำคัญ โดยแสดงเป็นโค้ดให้เห็นในส่วนของโปรแกรมย่อย SetupForm ซึ่งเราสามารถนำไปปรับแต่งคุณสมบัติ (Properties) ในแบบ Design Time ได้เลยทันที ...

SfForm vs MetroForm
Both SfForm and MetroForm controls are used for the same purpose. But, the SfForm control offers rich set of features over MetroForm. For caption images and label, use MetroForm. For custom user control in TitleBar and customizing the appearance of form and MDI forms, use SfForm.

SfForm
The SfForm window control allows you to completely customize its appearance. Support to load an user interface in the title bar: add an MDI child form and allows the appearance of child forms to be customized.

MetroForm
MetroForm is used to create customizable window for the end user’s application. It supports various built-in skins and let the user to control its behavior and appearance.


ข้อมูลเพิ่มเติม ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Syncfusion.Windows.Forms.Tools
   
2. 
   
3. Public Class sfForm
   
4. 
   
5.     Inherits Syncfusion.WinForms.Controls.SfForm
   
6. 
   
7.     Dim c As New Color
   
8. 
   
9.     Private Sub sfForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
10.         Me.Text = "SfForm Syncfusion VB.NET 2017"
    
11.         With Me.TrackBarEx1
    
12.             .Maximum = 10
    
13.             .Minimum = 1
    
14.             .Value = 5
    
15.         End With
    
16.         With Me.TrackBarEx2
    
17.             .Maximum = 80
    
18.             .Minimum = 20
    
19.             .Value = 45
    
20.             .ShowButtons = True
    
21.         End With
    
22.         '// Select Standard Colors.
    
23.         Me.ColorUIControl1.SelectedColorGroup = Syncfusion.Windows.Forms.ColorUISelectedGroup.StandardColors
    
24.         '// Setup Form.
    
25.         Call SetupForm()
    
26. 
    
27.         '// Get TitleBar BackColor.
    
28.         Me.ColorPickerUIAdv1.SelectedColor = Me.Style.TitleBar.BackColor
    
29.         '// Get Form BackColor.
    
30.         Me.ColorPickerUIAdv2.SelectedColor = Me.BackColor
    
31.         '// Get Border Color.
    
32.         Me.ColorUIControl1.SelectedColor = Me.Style.Border.Color
    
33.     End Sub
    
34. 
    
35.     Sub SetupForm()
    
36.         With Me.Style
    
37.             .TitleBar.Height = TrackBarEx2.Value
    
38.             '// Customize the shadow for active state
    
39.             .ShadowOpacity = 255
    
40.             '// Customize the shadow for inactive state
    
41.             .InactiveShadowOpacity = 100
    
42.             .Border = New Pen(Color.Black, 5)
    
43.             .InactiveBorder = New Pen(Color.Black, 5)
    
44.         End With
    
45.         '// Windows 11
    
46.         Me.AllowRoundedCorners = True
    
47.         '//
    
48.         '// Sets the back color and fore color of the title bar.
    
49.         Me.Style.TitleBar.BackColor = Color.Black
    
50.         Me.Style.TitleBar.ForeColor = Color.White
    
51. 
    
52.         '// Sets the fore color of the title bar buttons
    
53.         Me.Style.TitleBar.CloseButtonForeColor = Color.White
    
54.         Me.Style.TitleBar.MinimizeButtonForeColor = Color.White
    
55.         Me.Style.TitleBar.MaximizeButtonForeColor = Color.White
    
56. 
    
57.         '// Sets the hover state back color of the title bar buttons
    
58.         Me.Style.TitleBar.CloseButtonHoverBackColor = Color.DarkGray
    
59.         Me.Style.TitleBar.MinimizeButtonHoverBackColor = Color.DarkGray
    
60.         Me.Style.TitleBar.MaximizeButtonHoverBackColor = Color.DarkGray
    
61. 
    
62.         '// Sets the pressed state back color of the title bar buttons
    
63.         Me.Style.TitleBar.CloseButtonPressedBackColor = Color.Gray
    
64.         Me.Style.TitleBar.MaximizeButtonPressedBackColor = Color.Gray
    
65.         Me.Style.TitleBar.MinimizeButtonPressedBackColor = Color.Gray
    
66.         '//
    
67.     End Sub
    
68. 
    
69.     '// TitleBar BackColor
    
70.     Private Sub ColorPickerUIAdv1_Picked(sender As Object, args As Syncfusion.Windows.Forms.Tools.ColorPickerUIAdv.ColorPickedEventArgs) Handles ColorPickerUIAdv1.Picked
    
71.         Me.Style.TitleBar.BackColor = Me.ColorPickerUIAdv1.SelectedColor
    
72.     End Sub
    
73. 
    
74.     '// Change Border Color.
    
75.     Private Sub ColorUIControl1_ColorSelected(sender As Object, e As System.EventArgs) Handles ColorUIControl1.ColorSelected
    
76.         c = Me.ColorUIControl1.SelectedColor
    
77.         Me.Style.Border = New Pen(c, Me.TrackBarEx1.Value)
    
78.     End Sub
    
79. 
    
80.     '// Change Border Thickness.
    
81.     Private Sub TrackBarEx1_ValueChanged(sender As Object, e As System.EventArgs) Handles TrackBarEx1.ValueChanged
    
82.         Me.Style.Border = New Pen(c, Me.TrackBarEx1.Value)
    
83.         Me.Style.Border.Color = c
    
84.     End Sub
    
85. 
    
86.     '// Change TitleBar Height.
    
87.     Private Sub TrackBarEx2_ValueChanged(sender As Object, e As System.EventArgs) Handles TrackBarEx2.ValueChanged
    
88.         Me.Style.TitleBar.Height = TrackBarEx2.Value
    
89.     End Sub
    
90. 
    
91.     '// Change Form BackColor.
    
92.     Private Sub ColorPickerUIAdv2_Picked(sender As Object, args As ColorPickerUIAdv.ColorPickedEventArgs) Handles ColorPickerUIAdv2.Picked
    
93.         Me.BackColor = Me.ColorPickerUIAdv2.SelectedColor
    
94.     End Sub
    
95. End Class

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

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