Voľná šablóna štýlu metra Windows pre používateľov jazyka Visual Basic.

Obsah:

Voľná šablóna štýlu metra Windows pre používateľov jazyka Visual Basic.
Voľná šablóna štýlu metra Windows pre používateľov jazyka Visual Basic.

Video: Voľná šablóna štýlu metra Windows pre používateľov jazyka Visual Basic.

Video: Voľná šablóna štýlu metra Windows pre používateľov jazyka Visual Basic.
Video: Fixing a Viewer's BROKEN Gaming PC? - Fix or Flop S1:E9 - YouTube 2024, Marec
Anonim

Pri práci na aktualizácii aplikácie pre systém Windows 8 som sa rozhodol vytvoriť nasledujúcu šablónu pre používateľov, ktorí môžu používať používateľov, ktorí stále používajú VB.Net 2010. Ako niekto, kto sa ešte učí používať nástroje Visual Studio, ktoré sú súčasťou programu Windows 8 Developer Build, stále píšem aplikácie pomocou VB.Net 2008/2010 a myslel som si, že by to mohlo byť užitočné, ak by niekto rád trochu pokrčil svoje aplikácie.

Image
Image

Stiahnutú šablónu si môžete stiahnuť v spodnej časti stránky.

Začať nový projekt Blank v službe VB.net (pre túto šablónu používam službu VB.Net Express 2010)

Pridajte 2 projekty do projektu. Označte ich ako kaluž a hlavné a nastavte oba na FormBorderStyle None, WindowState Maximized. (Nastavil som, aby sa nezobrazovali na paneli úloh a žiadny text, ale toto je pre mňa len preferencia).

nastaviť kaluž backcolor na 43, 186, 255, hlavné farba do bielej farby. Nastavte všetky farby písma pre všetky ovládacie prvky na bielu.

Na úvodnom formulári pridajte nasledujúce ovládacie prvky:

Panel s názvom pnllogo. pnllogo backcolor na 43, 186, 255. Na pnllogo pridajte nasledujúce ovládacie prvky:

  1. fotka s názvom piclogo, veľkosti 200 × 200
  2. štítok s názvom lbllogo, Štýl písma Segeo UI Light, Light, 48
  3. štítok s názvom lblcompany, Štýl písma Segeo UI Light, svetlo, 28

Časovač bol pomenovaný tmrdisplay s intervalom nastaveným na 5000

Na hlavnom formulári pridajte nasledujúci ovládací prvok:

Panel s názvom pnlappbar. pnlappbar farba do čiernej farby. Na pnlappbar pridajte nasledujúce ovládacie prvky:

  1. Tlačidlo s názvom btnapply, Text, ktorý sa má zobraziť, je Apply: Štýl písma Segeo UI Light, Light, 12: Veľkosť tlačidla 120 × 45
  2. Tlačidlo s názvom btnclose, Text, ktorý sa má zobraziť, je Close: Štýl písma Segeo UI Light, Light, 12: Veľkosť tlačidla 120 × 45
  3. Tlačidlo s názvom btnyes, Text, ktorý sa má zobraziť, je Áno: Štýl písma Segeo UI Light, Light, 12: Veľkosť tlačidla 120 × 45
  4. Tlačidlo s názvom btnno, Text na zobrazenie nie je: Štýl písma Segeo UI Light, Light, 12: Veľkosť tlačidla 120 × 45
  5. Označené označenie lblinfo, Štýl písma Segeo UI Light, svetlo, 12
  6. Označené označenie lblinfo2, Štýl písma Segeo UI Light, svetlo, 12

Pridajte nasledujúci kód do šmuhy:

Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘Set Splash Screen size and begin the Timer Me.WindowState = FormWindowState.Maximized pnllogo.Left = (Me.Width – pnllogo.Width) / 2 pnllogo.Top = (Me.Height – pnllogo.Height) / 2 tmrdisplay.Enabled = True End Sub Private Sub tmrdisplay_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrdisplay.Tick ‘Removes the Splash Screen and displays the Main Application Me.Visible = False main.Visible = True End Sub

Pridajte nasledujúci kód do hlavného:

#Region “Set Form” Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load setcontrols() End Sub

Public Sub setcontrols() ‘Sets the location for all of the controls on the form. pnlappbar.Width = Me.Width pnlappbar.Left = Me.Left pnlappbar.Height = 100 pnlappbar.Top = Me.Height – pnlappbar.Height btnclose.Left = (pnlappbar.Width – btnclose.Width) – 10 btnapply.Left = (btnclose.Left – btnclose.Width) – 10 btnyes.Left = btnapply.Left btnyes.Top = btnapply.Top btnyes.Visible = False btnno.Left = btnclose.Left btnno.Top = btnclose.Top btnno.Visible = False lblinfo.Left = Me.Left + 200 lblinfo.Visible = False lblinfo.Visible = False lblinfo2.Left = Me.Left + 200 lblinfo2.Visible = False Me.TopMost = True End Sub

Private Sub main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing ‘Make sure application exits. Application.Exit() End Sub #End Region ‘Set Form

#Region “Apply Button” Private Sub btnapply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnapply.Click ‘Sets the messages across the appbar and displays the correct buttons. lblinfo.Visible = False btnapply.Visible = False btnyes.Visible = True btnno.Visible = True btnclose.Visible = False lblinfo2.Visible = True lblinfo2.Text = “Changes you made may require a System Restart. Would you like to Restart Now?” End Sub

Private Sub btnapply_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnapply.MouseEnter ‘Sets the messages across the appbar and displays the correct buttons. btnapply.BackColor = Color.Gray lblinfo.Text = “Apply changes you have made to Windows 8” lblinfo.Visible = True End Sub

Private Sub btnapply_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnapply.MouseLeave btnapply.BackColor = Color.Black lblinfo.Visible = False End Sub #End Region ‘Apply Button

#Region “Close Button” Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click ‘Exit Application Application.Exit() End Sub

Private Sub btnclose_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnclose.MouseEnter ‘Sets the messages across the appbar and displays the correct buttons. btnclose.BackColor = Color.Gray lblinfo.Text = “Close the application without making changes?” lblinfo.Visible = True End Sub

Private Sub btnclose_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnclose.MouseLeave btnclose.BackColor = Color.Black lblinfo.Visible = False End Sub #End Region ‘Close Button

#Region “No Button” Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click ‘Apply your settings ‘We are going to do something here ‘------------------- ‘Sets the messages across the appbar and displays the correct buttons. lblinfo.Visible = False btnapply.Visible = True btnyes.Visible = False btnno.Visible = False btnclose.Visible = True lblinfo2.Visible = False End Sub

Private Sub btnno_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnno.MouseEnter btnno.BackColor = Color.Gray End Sub

Private Sub btnno_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnno.MouseLeave btnno.BackColor = Color.Black End Sub #End Region ‘No Button

#Region “Yes Button” Private Sub btnyes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnyes.Click ‘Apply your settings ‘We are going to do something here ‘------------------- ‘This code will Restart Windows System.Diagnostics.Process.Start(“shutdown”, “-r -t 05”) Application.Exit() End Sub

Private Sub btnyes_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnyes.MouseEnter btnyes.BackColor = Color.Gray End Sub

Private Sub btnyes_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnyes.MouseLeave btnyes.BackColor = Color.Black End Sub #End Region ‘Yes Button

Dajte mi vedieť, ak potrebujete nejakú pomoc.

Stiahnite si: Šablóna štýlu metra Windows 8 pre používateľov jazyka Visual Basic 2010.
Stiahnite si: Šablóna štýlu metra Windows 8 pre používateľov jazyka Visual Basic 2010.

Na zdravie! 🙂

Odporúča: