[VB.NET] การใช้งาน MaterialSkin.Net4 Framework สำหรับ VS2010
การใช้งาน MaterialSkin.Net4 Framework สำหรับ .Net Framework 4.0 นั่นหมายความว่าเป็น Visual Studio 2010 ... กรณีที่ .Net Framework เวอร์ชั่นที่สูงกว่า 4.0 ก็ให้ไปใช้ MaterialSkin2 Framework ได้เลยครับ ...http://www.g2gsoft.com/webboard/images/VBNet/materialskinframework.png
การปรับแต่งโค้ดในฟอร์ม Designer ...
http://www.g2gsoft.com/webboard/images/VBNet/materialdesigner.png
คลิปสอนการใช้งาน MaterialSkin 2 ...
x6Yhey3X-PM
หรือดาวน์โหลดไฟล์ DLL ได้จาก Nuget ...
มาดูโค้ดฉบับเต็มกันเถอะ ...
Public Class frmLogin
Private Sub frmLogin_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'// Initialize MaterialSkin .Net Framework 4.0
Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
SkinManager.AddFormToManage(Me)
SkinManager.Theme = MaterialSkinManager.Themes.LIGHT
'SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
'//
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.MinimumSize = New Point(413, 473)
Me.MaximumSize = New Point(413, 473)
'//
Me.MaterialSingleLineTextField1.Text = "Username"
Me.MaterialSingleLineTextField2.Text = "Password"
'//
With cmbColorTheme
.Items.Add("Default")
.Items.Add("Orange")
.Items.Add("Green")
.Items.Add("Light Blue")
.Items.Add("Cyan")
.Items.Add("Gray")
End With
cmbColorTheme.SelectedIndex = 0
End Sub
'// Select Color Theme
Private Sub cmbColorTheme_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbColorTheme.SelectedIndexChanged
Select Case cmbColorTheme.SelectedIndex
Case 0
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.BlueGrey800, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
Case 1
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
Case 2
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
Case 3
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
Case 4
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
Case 5
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Grey600, Primary.Grey700, Primary.Grey100, Accent.LightGreen200, TextShade.WHITE)
End Select
End Sub
End Class
ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .NET (2010) ได้จากที่นี่ ...
หน้า:
[1]