ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1532|ตอบกลับ: 0

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

[คัดลอกลิงก์]

315

กระทู้

506

โพสต์

6272

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6272

การใช้งาน 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. Imports MaterialSkin

  4. Public Class frmLogin
  5.     Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  6.         Me.Text = "MaterialSkin 2 - Login System"
  7.         txtUserName.Text = "Username"
  8.         txtPassword.Text = "Password"
  9.         With Me
  10.             .MinimumSize = New Point(451, 503)
  11.             .MaximumSize = New Point(451, 503)
  12.         End With
  13.         '// Code sample.
  14.         '// https://www.nuget.org/packages/MaterialSkin.2/
  15.         Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
  16.         SkinManager.AddFormToManage(Me)
  17.         SkinManager.Theme = MaterialSkinManager.Themes.DARK
  18.         'SkinManager.ColorScheme = New ColorScheme(Primary.Blue300, Primary.Blue500, Primary.Blue500, Accent.Blue400, TextShade.WHITE)
  19.         SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
  20.         'SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
  21.         'SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
  22.         'SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
  23.     End Sub

  24.     Private Sub swPassword_CheckedChanged(sender As Object, e As EventArgs) Handles swPassword.CheckedChanged
  25.         txtPassword.Focus()
  26.         txtPassword.Password = Not swPassword.Checked
  27.     End Sub

  28.     Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
  29.         MessageBox.Show("OK, You can login to system.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
  30.     End Sub

  31.     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
  32.         Me.Close()
  33.     End Sub

  34.     Private Sub frmLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
  35.         Me.Dispose()
  36.         GC.SuppressFinalize(Me)
  37.         Application.Exit()
  38.     End Sub

  39.     Private Sub txtUserName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserName.KeyPress
  40.         '// Press ENTER
  41.         If Asc(e.KeyChar) = 13 Then
  42.             e.Handled = True    '// No beep
  43.             SendKeys.Send("{TAB}")
  44.         End If
  45.     End Sub

  46.     Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.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. End Class
คัดลอกไปที่คลิปบอร์ด


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-7-20 13:56 , Processed in 0.518552 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้