Miközben egy Windows 8 rendszerű alkalmazás frissítésén dolgozik, úgy döntöttem, hogy összeállítom a következő sablont a felhasználók számára, akik továbbra is használhatják a VB.Net 2010-et. Mint valaki, aki még mindig megtanulja használni a Visual Studio Tools Windows 8 Developer Build, még mindig írok alkalmazásokat a VB.Net 2008/2010 használatával, és úgy véltem, ez hasznos lehet, ha valaki kicsit szeretne felfrissíteni alkalmazását.
Az oldal alján letölthető a sablon.
Indítson el egy új üres projektet a VB.net-ben (VB.Net Express 2010-et használok erre a sablonra)
Add hozzá 2 űrlapot a projekthez. Címkézze őket loccsanás és fő- és mindkettőt az FormBorderStyle None-ra állította, a WindowState Maximized. (Mindkettőt úgy állítottam be, hogy ne jelenjenek meg a tálcán és nincsenek szövegek, de ez csak nekem előnyös).
Készlet loccsanás backcolor a 43, 186, 255, fő- háttérszín fehér. Állítsa az összes betűtípus színeit fehérre.
A splash formában adja hozzá a következő vezérlőket:
A panel neve pnllogo. pnllogo backcolor értéket a 43, 186, 255-re. A pnllogo programon adja hozzá a következő vezérlőket:
- képkocka neve piclogo, méret 200 × 200
- címke neve lbllogo, Betűs stílust Segeo UI fény, világos, 48
- címke neve lblcompany, Betűtípus Segeo UI fény, világos, 28
Az időzítő neve tmrdisplay az intervallum 5000-re állítva
A fő formában adja hozzá a következő vezérlést:
A panel neve pnlappbar. pnlappbar háttérszín fekete. A pnlappbaron adja hozzá a következő vezérlőket:
- Gomb neve btnapply, A megjelenítendő szöveg Apply: Betűstílus Segeo UI Light, Light, 12: Button mérete 120 × 45
- Gomb neve btnclose, A megjelenítendő szöveg bezárása: betűszín Segeo UI fény, fény, 12: gomb mérete 120 × 45
- Gomb neve btnyes, A megjelenítendő szöveg igen: betűtípus Segeo UI fény, fény, 12: gomb mérete 120 × 45
- Gomb neve btnno, A megjelenítendő szöveg nem: betűszín Segeo UI fény, fény, 12: gomb mérete 120 × 45
- Címke neve lblinfo, Betűs stílust Segeo UI fény, világos, 12
- Címke neve lblinfo2, Betűs stílust Segeo UI fény, világos, 12
Adja hozzá a következő kódot a 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
Adja hozzá a következő kódot a főbe:
#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
Tudassa velem, ha segítségre van szüksége.
Egészségére! 🙂
