[VB.NET] การใช้งาน MaterialSkin2 Framework สำหรับรุ่นที่สูงกว่า VS2010
การใช้งาน MaterialSkin2 Framework สำหรับรุ่นที่สูงกว่า VS2010 นั่นคือต้องใช้งาน .Net Framework ที่มีเวอร์ชั่นตั้งแต่ 4.5 ขึ้นไป ...https://www.nuget.org/packages/MaterialSkin.2/ ...
http://www.g2gsoft.com/webboard/images/VBNet/materialskin2.png
วิธีการสร้างกลุ่มเครื่องมือ ToolBox ของ MaterialSkin2 ...
http://www.g2gsoft.com/webboard/images/VBNet/materialskin2tool.png
ดาวน์โหลดโค้ดต้นฉบับ Visual Basic (2017) ได้ที่นี่ ... :victory::victory::victory:
คลิปสอนการใช้งาน MaterialSkin2 ...
x6Yhey3X-PM
มาดูโค้ดกันเถอะ ...
'// Download packages.
'// https://www.nuget.org/packages/MaterialSkin.2/
Imports MaterialSkin
Public Class frmLogin
Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "MaterialSkin 2 - Login System"
txtUserName.Text = "Username"
txtPassword.Text = "Password"
With Me
.MinimumSize = New Point(451, 503)
.MaximumSize = New Point(451, 503)
End With
'// Code sample.
'// https://www.nuget.org/packages/MaterialSkin.2/
Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
SkinManager.AddFormToManage(Me)
SkinManager.Theme = MaterialSkinManager.Themes.DARK
'SkinManager.ColorScheme = New ColorScheme(Primary.Blue300, Primary.Blue500, Primary.Blue500, Accent.Blue400, TextShade.WHITE)
SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
End Sub
Private Sub swPassword_CheckedChanged(sender As Object, e As EventArgs) Handles swPassword.CheckedChanged
txtPassword.Focus()
txtPassword.Password = Not swPassword.Checked
End Sub
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
MessageBox.Show("OK, You can login to system.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub frmLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
GC.SuppressFinalize(Me)
Application.Exit()
End Sub
Private Sub txtUserName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserName.KeyPress
'// Press ENTER
If Asc(e.KeyChar) = 13 Then
e.Handled = True '// No beep
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
'// Press ENTER
If Asc(e.KeyChar) = 13 Then
e.Handled = True '// No beep
SendKeys.Send("{TAB}")
End If
End Sub
End Class
หน้า:
[1]