2024 Autor: Peter John Melton | [email protected]. Zuletzt bearbeitet: 2024-01-15 03:52
Während ich an einem Update für eine App für Windows 8 arbeitete, entschied ich mich, die folgende Vorlage für Benutzer zusammenzustellen, die möglicherweise noch VB.Net 2010 verwendet. Als jemand, der noch lernt, die im Studio enthaltenen Visual Studio Tools zu verwenden Windows 8 Developer Build, ich schreibe immer noch Anwendungen mit VB.Net 2008/2010 und dachte, dies könnte nützlich sein, wenn jemand seine Anwendungen etwas verbessern möchte.
Sie können die Vorlage bereits unten auf der Seite herunterladen.
Starten Sie ein neues leeres Projekt in VB.net (Ich verwende VB.Net Express 2010 für diese Vorlage)
Fügen Sie dem Projekt 2 Formulare hinzu. Beschriften Sie sie als Spritzen und Main und setzen Sie beide auf FormBorderStyle None, WindowState Maximized. (Ich habe beide so eingestellt, dass sie nicht in der Taskleiste angezeigt wird und keinen Text, aber dies ist nur eine Vorliebe für mich).
einstellen Spritzen Hinterfarbe 43, 186, 255, Main Backcolor zu Weiß. Setzen Sie alle Schriftfarben für alle Steuerelemente auf Weiß.
Fügen Sie im Splash-Formular die folgenden Steuerelemente hinzu:
Panel benannt pnllogo. pnllogo Backcolor auf 43, 186, 255. Fügen Sie auf pnllogo die folgenden Steuerelemente hinzu:
- picturebox genannt Piclogo, Größe 200 × 200
- Label benannt lbllogo, Schriftstil Segeo UI Light, Light, 48
- Label benannt lblcompany, Schriftstil Segeo UI Light, Light, 28
Timer benannt tmrdisplay mit Intervall 5000 eingestellt
Fügen Sie auf dem Hauptformular das folgende Steuerelement hinzu:
Panel benannt pnlappbar. pnlappbar Backcolor zu Schwarz. Fügen Sie auf der PNlappbar die folgenden Steuerelemente hinzu:
- Schaltfläche benannt btnapply, Anzuzeigender Text ist Übernehmen: Schriftstil Segeo UI Light, Light, 12: Tastengröße 120 × 45
- Schaltfläche benannt btnclose, Anzuzeigender Text ist Schließen: Schriftstil Segeo UI Light, Light, 12: Tastengröße 120 × 45
- Schaltfläche benannt btnyes, Anzuzeigender Text ist Ja: Schriftstil Segeo UI Light, Light, 12: Tastengröße 120 × 45
- Schaltfläche benannt btnno, Anzuzeigender Text ist Nein: Schriftstil Segeo UI Light, Light, 12: Tastengröße 120 × 45
- Label benannt lblinfo, Schriftstil Segeo UI Light, Light, 12
- Label benannt lblinfo2, Schriftstil Segeo UI Light, Light, 12
Fügen Sie dem Splash den folgenden Code hinzu:
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
Fügen Sie folgenden Code zu main hinzu:
#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
Lassen Sie mich wissen, wenn Sie Hilfe brauchen.
Prost! 🙂
Empfohlen:
mFTP: Eine kostenlose FTP-Metro-App für Windows 8
mFTP ist eine kostenlose Windows-App zum Durchsuchen von FTP-Ordnern, mit der Sie alles herunterladen oder auf Ihren FTP-Server hochladen können. Das Programm hat eine großartige Benutzeroberfläche und verbindet sich sehr schnell mit FTP-Servern.
Viber für Windows: Kostenlose Anrufe tätigen und kostenlose Nachrichten senden
Mit Viber für Windows Desktop können Sie kostenlose Anrufe tätigen und kostenlose Nachrichten über Ihren Windows-PC senden. Unterstützung für Videoanrufe wurde hinzugefügt. Jetzt downloaden.
Firedance 7 Visual Style Theme für Windows 7
Firedance 7 ist kein gewöhnlicher Themenblock, sondern ein msstyle; Ein schöner visueller Stil, der das Aussehen Ihres Windows 7 verändern wird.
Immersive Explorer: Ein Metro Style Explorer-Ersatz für Windows 8
Der Immersive Explorer ist eine Metro-Stil-Explorer-Alternative, die wie viele Windows 8-Anwendungen eine Metro-Schnittstelle verwendet und als Alternative zum Standard-Explorer von Windows 7 oder 8 verwendet werden kann.
Top Kostenlose Erweiterungen für Visual Studio Code, um den Code zu verbessern
Aufgrund der Benutzerfreundlichkeit hat Microsoft die obersten Erweiterungen für Visual Studio Code aufgespürt. In diesem Artikel werden wir mehr über die besten Visual Studio-Code-Erweiterungen diskutieren und Ihnen bei der Entscheidung helfen, ob Sie sie benötigen.