Strādājot pie sistēmas Windows 8 lietotnes atjaunināšanas, es nolēmu apvienot šādu veidni lietotājiem, kuri lieto lietotājus, kuri joprojām var izmantot VB.Net 2010. Kā kāds, kas vēl mācās, kā izmantot Visual Studio Tools, kas iekļauti Windows 8 Developer Build, es joprojām rakstot lietojumprogrammas, izmantojot VB.Net 2008/2010, un domāju, ka tas varētu būt noderīgi, ja kāds vēlētos mazliet uzlabot savas lietojumprogrammas.
Jūs varat lejupielādēt Veidne, kas jau iepriekš ir izveidota lapas apakšā.
Sāciet jaunu Blank projektu VB.net (es izmantoju šo veidni VB.Net Express 2010)
Pievienot 2 veidlapas projektam. Iezīmē tos kā šļakatām un galvenais un iestatīt gan FormBorderStyle None, gan WindowState Maximized. (Es noteicu, ka abos neparādās uzdevumjoslā un nav teksta, bet man tā ir tikai priekšroka).
Komplekts šļakatām aizmugures krāsa līdz 43, 186, 255, galvenais aizmugurklase balta. Iestatiet visas fontu krāsas visiem baltajiem elementiem.
Pie splash formā pievienojiet šādas kontroles:
Paneļa nosaukums pnllogo. pnllogo backcolor līdz 43, 186, 255. Par pnllogo pievienojiet šādas kontroles:
- Picturebox nosaukts piclogo, izmērs 200 × 200
- etiķete nosaukta lbllogo, Fontu stils Segeo UI gaisma, gaisma, 48
- etiķete nosaukta lblcompanyFonta stils Segeo UI Light, Light, 28
Taimeris ir nosaukts tmrdisplay ar intervālu 5000
Galvenajā veidlapā pievienojiet šādu kontroli:
Paneļa nosaukums pnlappbar. pnlappbar aizmugurējais pret melno krāsu. Pnlappbar pievienojiet šādas kontroles:
- Poga nosaukta btnapply, Teksts, kas jāuzrāda, ir Lietot: Fonta stils Segeo UI Light, Light, 12: pogas izmērs 120 × 45
- Poga nosaukta btnclose, Teksts, kas jāparāda, ir Aizvērt: Fonta stils Segeo UI Light, Light, 12: pogas izmērs 120 × 45
- Poga nosaukta btnyes, Teksts, kas jāparāda, ir Jā: Fonta stils Segeo UI Light, Light, 12: pogas izmērs 120 × 45
- Poga nosaukta btnno, Teksts, kas jāuzrāda, ir Nē: Fonta stils Segeo UI Light, Light, 12: Pogas izmērs 120 × 45
- Uzlīme nosaukta lblinfo, Fontu stils Segeo UI Light, Light, 12
- Uzlīme nosaukta lblinfo2, Fontu stils Segeo UI Light, Light, 12
Lai ielīmētu, pievienojiet šādu kodu:
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
Pievienojiet šādu kodu galvenajam:
#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
Ļaujiet man zināt, ja jums nepieciešama palīdzība.
Priekā! 🙂
