Alors que je travaillais à la mise à jour d’une application pour Windows 8, j’ai décidé de créer le modèle suivant à utiliser par les utilisateurs qui utilisent peut-être encore VB.Net 2010. En tant que personne qui apprend toujours à utiliser les outils Visual Studio fournis avec le Windows 8 Developer Build, je suis toujours en train d’écrire des applications avec VB.Net 2008/2010 et j’ai pensé que cela pourrait être utile si quelqu'un souhaitait améliorer un peu leurs applications.
Vous pouvez télécharger le modèle déjà préparé au bas de la page.
Démarrer un nouveau projet vierge dans VB.net (j'utilise VB.Net Express 2010 pour ce modèle)
Ajoutez 2 formulaires au projet. Les étiqueter comme éclaboussure et principale et définissez les deux sur FormBorderStyle None, WindowState Maximized. (Je règle les deux pour ne pas montrer dans la barre des tâches et pas de texte, mais c'est juste une préférence pour moi).
Ensemble éclaboussure couleur de fond à 43, 186, 255, principale couleur de fond en blanc. Définissez toutes les couleurs de police pour toutes les commandes en blanc.
Sur le formulaire de démarrage, ajoutez les contrôles suivants:
Panneau nommé pnllogo. pnllogo backcolor to 43, 186, 255. Sur pnllogo, ajoutez les contrôles suivants:
- Picturebox nommée piclogo, taille 200 × 200
- étiquette nommée lbllogo, Style de police Segeo UI Light, Light, 48
- étiquette nommée lblcompany, Style de police Segeo UI Light, Light, 28
Minuteur nommé tmrdisplay avec intervalle défini à 5000
Sur le formulaire principal, ajoutez le contrôle suivant:
Panneau nommé pnlappbar. pnlappbar couleur de fond au noir. Sur la barre pnlapp, ajoutez les contrôles suivants:
- Bouton nommé btn, Le texte à afficher est Appliquer: Style de police Segeo UI Light, Light, 12: Taille du bouton 120 × 45
- Bouton nommé fermer, Le texte à afficher est Fermer: Style de police Segeo UI Light, Light, 12: Taille du bouton 120 × 45
- Bouton nommé btnyes, Le texte à afficher est Oui: Style de police Segeo UI Light, Light, 12: Taille du bouton 120 × 45
- Bouton nommé btnno, Le texte à afficher est No: Style de police Segeo UI Light, Light, 12: Taille du bouton 120 × 45
- Label nommé lblinfo, Style de police Segeo UI Light, Light, 12
- Label nommé lblinfo2, Style de police Segeo UI Light, Light, 12
Ajoutez le code suivant à 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
Ajoutez le code suivant à 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
Faites-moi savoir si vous avez besoin d'aide.
À votre santé! 🙂
