[VB.NET] การใช้งาน MaterialSkin.Net4 Framework สำหรับ VS2010

thongkorn

การใช้งาน MaterialSkin.Net4 Framework สำหรับ .Net Framework 4.0 นั่นหมายความว่าเป็น Visual Studio 2010 ... กรณีที่ .Net Framework เวอร์ชั่นที่สูงกว่า 4.0 ก็ให้ไปใช้ MaterialSkin2 Framework ได้เลยครับ ...


การปรับแต่งโค้ดในฟอร์ม Designer ...


คลิปสอนการใช้งาน MaterialSkin 2 ...


หรือดาวน์โหลดไฟล์ DLL ได้จาก Nuget ...  

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

1. Public Class frmLogin
   
2. 
   
3.     Private Sub frmLogin_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         '// Initialize MaterialSkin .Net Framework 4.0
   
5.         Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
   
6.         SkinManager.AddFormToManage(Me)
   
7.         SkinManager.Theme = MaterialSkinManager.Themes.LIGHT
   
8.         'SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
   
9.         '//
   
10.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    
11.         Me.MaximizeBox = False
    
12.         Me.MinimizeBox = False
    
13.         Me.MinimumSize = New Point(413, 473)
    
14.         Me.MaximumSize = New Point(413, 473)
    
15.         '//
    
16.         Me.MaterialSingleLineTextField1.Text = "Username"
    
17.         Me.MaterialSingleLineTextField2.Text = "Password"
    
18.         '//
    
19.         With cmbColorTheme
    
20.             .Items.Add("Default")
    
21.             .Items.Add("Orange")
    
22.             .Items.Add("Green")
    
23.             .Items.Add("Light Blue")
    
24.             .Items.Add("Cyan")
    
25.             .Items.Add("Gray")
    
26.         End With
    
27.         cmbColorTheme.SelectedIndex = 0
    
28.     End Sub
    
29. 
    
30.     '// Select Color Theme
    
31.     Private Sub cmbColorTheme_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbColorTheme.SelectedIndexChanged
    
32.         Select Case cmbColorTheme.SelectedIndex
    
33.             Case 0
    
34.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.BlueGrey800, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
    
35.             Case 1
    
36.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
    
37.             Case 2
    
38.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
    
39.             Case 3
    
40.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
    
41.             Case 4
    
42.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
    
43.             Case 5
    
44.                 SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Grey600, Primary.Grey700, Primary.Grey100, Accent.LightGreen200, TextShade.WHITE)
    
45.         End Select
    
46.     End Sub
    
47. 
    
48. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .NET (2010) ได้จากที่นี่ ...