Gratis Windows Metro Style Template for Visual Basic brukere.

Innholdsfortegnelse:

Gratis Windows Metro Style Template for Visual Basic brukere.
Gratis Windows Metro Style Template for Visual Basic brukere.

Video: Gratis Windows Metro Style Template for Visual Basic brukere.

Video: Gratis Windows Metro Style Template for Visual Basic brukere.
Video: Windows 10 Clear Everything - YouTube 2024, Mars
Anonim

Mens jeg jobbet med en oppdatering til en app for Windows 8, bestemte jeg meg for å sette sammen følgende mal for brukere å bruke hvem som fortsatt kan bruke VB.Net 2010. Som noen som fortsatt lærer å bruke Visual Studio Tools inkludert i Windows 8 Developer Build, jeg skriver fortsatt programmer ved hjelp av VB.Net 2008/2010 og syntes dette kan være nyttig hvis noen ønsker å spruce opp sine applikasjoner litt.

Image
Image

Du kan laste ned malen allerede ferdigstilt nederst på siden.

Start et nytt tomt prosjekt i VB.net (jeg bruker VB.Net Express 2010 for denne mal)

Legg til 2 skjemaer til prosjektet. Merk dem som sprut og hoved- og sett begge til FormBorderStyle None, WindowState Maksimert. (Jeg setter begge for å ikke vise i oppgavelinjen og ingen tekst, men dette er bare en preferanse for meg).

Sett sprut backcolor til 43, 186, 255, hoved- bakfarget til hvitt. Sett alle skriftfarger for alle kontroller til hvitt.

På splash-skjemaet legger du til følgende kontroller:

Panel kalt pnllogo. pnllogo backcolor til 43, 186, 255. På pnllogo legg til følgende kontroller:

  1. picturebox kalt piclogo, størrelse 200 × 200
  2. etikett som heter lbllogo, Font Style Segeo UI Light, Light, 48
  3. etikett som heter lblcompany, Font Style Segeo UI Light, Light, 28

Timer kalt tmrdisplay med intervall satt til 5000

På hovedskjemaet legger du til følgende kontroll:

Panel kalt pnlappbar. pnlappbar bakfarget til svart. På pnlappbar legger du til følgende kontroller:

  1. Knapp navngitt btnapply, Tekst som skal vises, gjelder: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
  2. Knapp navngitt btnclose, Tekst som skal vises er Lukk: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
  3. Knapp navngitt btnyes, Tekst som skal vises er Ja: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
  4. Knapp navngitt btnno, Tekst som skal vises er Nei: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
  5. Etikett kalt lblinfo, Font Style Segeo UI Light, Light, 12
  6. Etikett kalt lblinfo2, Font Style Segeo UI Light, Light, 12

Legg til følgende kode for å splash:

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

Legg til følgende kode for hoved:

#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

Gi meg beskjed hvis du trenger hjelp.

Last ned: Windows 8 Metro Style Template for Visual Basic 2010 brukere.
Last ned: Windows 8 Metro Style Template for Visual Basic 2010 brukere.

Jubel! 🙂

Anbefalt: