Besplatni predložak stila Metro stila za korisnike Visual Basic.

Sadržaj:

2024 Autor: Geoffrey Carr | [email protected]. Zadnja promjena: 2024-01-15 14:22

Dok radim na ažuriranju aplikacije za Windows 8, odlučio sam sastaviti sljedeći predložak za upotrebu korisnika koji još uvijek mogu koristiti VB.Net 2010. Kao netko tko još uvijek uči kako koristiti Visual Studio Tools uključen u Windows 8 Developer Build, još uvijek pišem aplikacije koristeći VB.Net 2008/2010 i pomislila bih da bi to moglo biti korisno ako bi netko želio smrskati svoje aplikacije malo.

Predložak možete preuzeti već pripreman na dnu stranice.

Pokrenite novi Blank projekt u VB.net (koristim VB.Net Express 2010 za ovaj predložak)

Dodajte 2 obrasca projektu. Označite ih kao prskanje i glavni i postaviti i na FormBorderStyle None, Windowstate maksimizira. (Ja sam postavio kako se ne mogu prikazati u traci i ni tekst, ali to je samo sklonost meni).

Set prskanje backcolor na 43, 186, 255, glavni backcolour u bijelo. Postavite sve boje fonta za sve kontrole na bijelo.

Na obrascu prelijevanja dodajte sljedeće kontrole:

Panel je imenovan pnllogo. pnllogo backcolor na 43, 186, 255. Na pnllogo dodajte sljedeće kontrole:

slikovni imenik piclogo, veličine 200 × 200
oznaka s imenom lbllogo, Stil fonta Segeo UI svjetlo, svjetlo, 48
oznaka s imenom lblcompany, Stil fonta Segeo UI svjetlo, Svjetlo, 28

Timer je nazvan tmrdisplay s Intervalom postavljenom na 5000

U glavnom obliku dodajte sljedeću kontrolu:

Panel je imenovan pnlappbar. pnlappbar backcolour u crno. Na pnlappbar dodajte sljedeće kontrole:

Gumb imenovan btnapply, Tekst za prikaz je Primjena: Stil fonta Segeo UI svjetlo, svjetlo, 12: veličina gumba 120 × 45
Gumb imenovan btnclose, Tekst za prikaz je Zatvori: Stil fonta Segeo UI svjetlo, svjetlo, 12: veličina gumba 120 × 45
Gumb imenovan btnyes, Tekst za prikaz je Da: Stil fonta Segeo UI svjetlo, svjetlo, 12: veličina gumba 120 × 45
Gumb imenovan btnno, Tekst za prikaz je Ne: Stil fonta Segeo UI svjetlo, svjetlo, 12: veličina gumba 120 × 45
Oznaka zove lblinfo, Stil fonta Segeo UI svjetlo, svjetlo, 12
Oznaka zove lblinfo2, Stil fonta Segeo UI svjetlo, svjetlo, 12

Dodajte sljedeći kôd koji želite dodirnuti:


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

Dodajte sljedeći kôd na glavni:


#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

Javite mi ako trebate pomoć.

Preuzimanje: Predložak stila Metro stila za Windows 8 za korisnike Visual Basic 2010.

Živjeli! 🙂

Preporučeni:

Stvorite predložak e-pošte u programu Outlook 2003

Ako imate e-poštu koju šaljete svaki dan koji sadrži iste podatke ili obrazac koji zahtijeva da korisnici diktiraju odgovore na ista pitanja - možete izraditi predložak u programu Outlook kako biste uštedjeli vrijeme.

Kako odrediti i promijeniti koji je predložak priložen Word dokumentu

Svaki dokument u programu Word mora imati priloženi predložak. Ako koristite prilagođeni predložak s trenutačnim dokumentom i zaboravili ste koji je to, lako možete saznati u programu Word. Također možete lako promijeniti predložak koji je priključen na trenutni dokument.