Windows 8 Metro Style Template untuk Visual Basic 2010 (Pengguna)

Ketika kita bekerja pada sebuah update untuk sebuah aplikasi di Windows 8, saya memutuskan untuk menempatkan bersama-sama template berikut bagi pengguna untuk menggunakan yang masih mungkin menggunakan VB.Net 2010...

Sebagai seseorang yang masih belajar bagaimana menggunakan Visual Studio Tools disertakan dengan Windows 8 Developer Build, saya masih menulis aplikasi menggunakan VB.Net 2008/2010 dan berpikir ini mungkin berguna jika ada yang ingin merapikan aplikasi sedikit bit...

Mulai Proyek kosong baru di VB.net (saya menggunakan VB.Net Ekspres 2010 untuk Template ini)

Tambahkan 2 Formulir untuk proyek. Label sebagai splash dan utama dan menetapkan kedua ke Tidak FormBorderStyle, WindowState Dimaksimalkan. (Saya set keduanya untuk tidak menunjukkan di Taskbar dan tidak ada teks tapi ini hanya preferensi bagi saya).

Set percikan BackColor menjadi 43, 186, 255, utama BackColor menjadi putih. Mengatur warna font semua untuk semua kontrol ke putih.

Pada formulir percikan menambahkan kontrol berikut:

Panel bernama pnllogo. pnllogo BackColor sampai 43, 186, 255. Pada pnllogo menambahkan kontrol berikut:

PictureBox bernama piclogo, berukuran 200 × 200
label bernama lbllogo, Font Style Segeo UI Terang, Cahaya, 48
label bernama lblcompany, Font Style Segeo UI Terang, Cahaya, 28
Timer tmrdisplay bernama dengan Interval set ke 5000

Pada form utama tambahkan kontrol berikut:

Panel bernama pnlappbar. pnlappbar BackColor menjadi hitam. Pada pnlappbar menambahkan kontrol berikut:

Tombol bernama btnapply, Teks untuk menampilkan adalah Terapkan: Font Style Segeo UI Terang, Cahaya, 12: Tombol ukuran 120 × 45
Tombol bernama btnclose, Teks untuk menampilkan adalah Tutup: Font Style Segeo UI Terang, Cahaya, 12: Tombol ukuran 120 × 45
Tombol bernama btnyes, Teks untuk menampilkan adalah Ya: Font Style Segeo UI Terang, Cahaya, 12: Tombol ukuran 120 × 45
Tombol bernama btnno, Teks untuk menampilkan adalah Tidak: Font Style Segeo UI Terang, Cahaya, 12: Tombol ukuran 120 × 45
Label bernama lblinfo, Font Style Segeo UI Terang, Cahaya, 12
Label bernama lblinfo2, Font Style Segeo UI Terang, Cahaya, 12

Tambahkan kode berikut untuk 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

Tambahkan kode berikut untuk utama :

#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

Beritahu saya jika Anda membutuhkan bantuan...