[VB.NET] การใช้งาน MaterialSkin2 Framework สำหรับรุ่นที่สูงกว่า VS2010

thongkorn

การใช้งาน MaterialSkin2 Framework สำหรับรุ่นที่สูงกว่า VS2010 นั่นคือต้องใช้งาน .Net Framework ที่มีเวอร์ชั่นตั้งแต่ 4.5 ขึ้นไป ...

https://www.nuget.org/packages/MaterialSkin.2/ ...



วิธีการสร้างกลุ่มเครื่องมือ ToolBox ของ MaterialSkin2 ...


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

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


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

1. '// Download packages.
   
2. '// https://www.nuget.org/packages/MaterialSkin.2/
   
3. 
   
4. Imports MaterialSkin
   
5. 
   
6. Public Class frmLogin
   
7.     Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
8.         Me.Text = "MaterialSkin 2 - Login System"
   
9.         txtUserName.Text = "Username"
   
10.         txtPassword.Text = "Password"
    
11.         With Me
    
12.             .MinimumSize = New Point(451, 503)
    
13.             .MaximumSize = New Point(451, 503)
    
14.         End With
    
15.         '// Code sample.
    
16.         '// https://www.nuget.org/packages/MaterialSkin.2/
    
17.         Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
    
18.         SkinManager.AddFormToManage(Me)
    
19.         SkinManager.Theme = MaterialSkinManager.Themes.DARK
    
20.         'SkinManager.ColorScheme = New ColorScheme(Primary.Blue300, Primary.Blue500, Primary.Blue500, Accent.Blue400, TextShade.WHITE)
    
21.         SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
    
22.         'SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
    
23.         'SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
    
24.         'SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
    
25.     End Sub
    
26. 
    
27.     Private Sub swPassword_CheckedChanged(sender As Object, e As EventArgs) Handles swPassword.CheckedChanged
    
28.         txtPassword.Focus()
    
29.         txtPassword.Password = Not swPassword.Checked
    
30.     End Sub
    
31. 
    
32.     Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
    
33.         MessageBox.Show("OK, You can login to system.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
34.     End Sub
    
35. 
    
36.     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    
37.         Me.Close()
    
38.     End Sub
    
39. 
    
40.     Private Sub frmLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    
41.         Me.Dispose()
    
42.         GC.SuppressFinalize(Me)
    
43.         Application.Exit()
    
44.     End Sub
    
45. 
    
46.     Private Sub txtUserName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserName.KeyPress
    
47.         '// Press ENTER
    
48.         If Asc(e.KeyChar) = 13 Then
    
49.             e.Handled = True    '// No beep
    
50.             SendKeys.Send("{TAB}")
    
51.         End If
    
52.     End Sub
    
53. 
    
54.     Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
    
55.         '// Press ENTER
    
56.         If Asc(e.KeyChar) = 13 Then
    
57.             e.Handled = True    '// No beep
    
58.             SendKeys.Send("{TAB}")
    
59.         End If
    
60.     End Sub
    
61. End Class

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