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.
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:
- picturebox kalt piclogo, størrelse 200 × 200
- etikett som heter lbllogo, Font Style Segeo UI Light, Light, 48
- 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:
- Knapp navngitt btnapply, Tekst som skal vises, gjelder: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
- Knapp navngitt btnclose, Tekst som skal vises er Lukk: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
- Knapp navngitt btnyes, Tekst som skal vises er Ja: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
- Knapp navngitt btnno, Tekst som skal vises er Nei: Font Style Segeo UI Light, Light, 12: Knappstørrelse 120 × 45
- Etikett kalt lblinfo, Font Style Segeo UI Light, Light, 12
- 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.
Jubel! 🙂