Enquanto trabalhava em uma atualização de um aplicativo para o Windows 8, decidi reunir o seguinte modelo para os usuários usarem, que ainda podem estar usando o VB.net 2010. Como alguém que ainda está aprendendo a usar as Ferramentas do Visual Studio incluídas com o Windows 8 Developer Build, ainda estou escrevendo aplicativos usando VB.Net 2008/2010 e pensei que isso poderia ser útil se alguém gostaria de enfeitar seus aplicativos um pouco.
Você pode fazer o download do modelo já pré-feito na parte inferior da página.
Inicie um novo projeto em branco no VB.net (estou usando o VB.Net Express 2010 para este modelo)
Adicione 2 formulários ao projeto. Rotule-os como esguicho e a Principal e definir ambos para FormBorderStyle None, WindowState Maximized. (Eu defini ambos para não mostrar na barra de tarefas e sem texto, mas isso é apenas uma preferência para mim).
Conjunto esguicho backcolor para 43, 186, 255, a Principal backcolor para branco. Definir todas as cores de fonte para todos os controles para branco.
No formulário inicial, adicione os seguintes controles:
Painel nomeado pnllogo. pnllogo backcolor para 43, 186, 255. No pnllogo adicione os seguintes controles:
- picturebox nomeado piclogotamanho 200 × 200
- rótulo nomeado lbllogo, Estilo de fonte Segeo UI Light, Light, 48
- rótulo nomeado lblcompany, Estilo de fonte Segeo UI Light, Light, 28
Timer nomeado tmrdisplay com intervalo definido para 5000
No formulário principal, adicione o seguinte controle:
Painel nomeado pnlappbar. pnlappbar backcolor para preto. Na pnlappbar, adicione os seguintes controles:
- Botão nomeado btnapply, O texto a exibir é aplicado: Estilo da fonte Segeo UI Light, Light, 12: Tamanho do botão 120 × 45
- Botão nomeado btnclose, O texto a exibir é Fechar: Estilo da fonte Segeo UI Light, Light, 12: Tamanho do botão 120 × 45
- Botão nomeado btnyes, O texto a exibir é Sim: Estilo da fonte Segeo UI Light, Light, 12: tamanho do botão 120 × 45
- Botão nomeado btnno, O texto a exibir é Não: Estilo da fonte Segeo UI Light, Light, 12: Tamanho do botão 120 × 45
- Rótulo nomeado lblinfo, Estilo de fonte Segeo UI Light, Light, 12
- Rótulo nomeado lblinfo2, Estilo de fonte Segeo UI Light, Light, 12
Adicione o seguinte código ao 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
Adicione o seguinte código ao main:
#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
Deixe-me saber se você precisar de alguma ajuda.
Felicidades! 🙂
