Saat bekerja pada pembaruan untuk aplikasi untuk Windows 8, saya memutuskan untuk menyusun template berikut untuk digunakan pengguna yang mungkin masih menggunakan VB.Net 2010. Sebagai seseorang yang masih belajar cara menggunakan Visual Studio Tools yang 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 mereka sedikit.
Anda dapat mengunduh Template yang sudah dilakukan sebelumnya di bagian bawah halaman.
Mulai Proyek Kosong baru di VB.net (saya menggunakan VB.Net Express 2010 untuk Template ini)
Tambahkan 2 Formulir ke proyek. Tandai mereka sebagai guyuran dan utama dan mengatur keduanya ke FormBorderStyle None, WindowState Dimaksimalkan. (Saya mengatur keduanya agar tidak ditampilkan di Taskbar dan tidak ada Teks tetapi ini hanya preferensi untuk saya).
Set guyuran backcolor ke 43, 186, 255, utama backcolor menjadi putih. Atur semua warna font untuk semua kontrol menjadi putih.
Pada formulir splash tambahkan kontrol berikut:
Panel bernama pnllogo. pnllogo backcolor ke 43, 186, 255. Pada pnllogo tambahkan kontrol berikut:
- picturebox bernama piclogo, berukuran 200 × 200
- label bernama lbllogo, Font Style Segeo UI Light, Light, 48
- label bernama lblcompany, Font Style Segeo UI Light, Light, 28
Timer dinamai tmrdisplay dengan Interval ditetapkan ke 5000
Pada formulir utama tambahkan kontrol berikut:
Panel bernama pnlappbar. pnlappbar backcolor menjadi hitam. Pada pnlappbar tambahkan kontrol berikut:
- Tombol bernama btnapply, Teks untuk ditampilkan adalah Terapkan: Font Style Segeo UI Light, Light, 12: Ukuran tombol 120 × 45
- Tombol bernama btnclose, Teks untuk ditampilkan adalah Tutup: Font Style Segeo UI Light, Light, 12: Ukuran tombol 120 × 45
- Tombol bernama btnyes, Teks untuk ditampilkan Ya: Font Style Segeo UI Light, Light, 12: Ukuran tombol 120 × 45
- Tombol bernama btnno, Teks yang ditampilkan adalah No: Font Style Segeo UI Light, Light, 12: Ukuran tombol 120 × 45
- Label bernama lblinfo, Font Style Segeo UI Light, Light, 12
- Label bernama lblinfo2, Font Style Segeo UI Light, Light, 12
Tambahkan kode berikut ke 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 ke 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.
Tepuk tangan! 🙂
