Making a Bildschirmschoner mit Visual Basic.NET 2010 leicht mithilfe einer Windows Forms-Projekt durchgeführt werden. In VB.NET können Sie eine Benutzeroberfläche mit den Kontrollen zu schaffen, um den Bildschirmschoner zu machen. Sie können eine " ListBox "-Steuerung , um die Bilder, die Sie anzeigen möchten, und eine " PictureBox " geladen , um die Bilder anzuzeigen. Um die " PictureBox " erfrischen können Sie einen "Timer "-Steuerung , verschiedene Bilder zu laden , während der Bildschirmschoner läuft. Anleitung
1

Starten Sie Microsoft Visual Studio 2010 , klicken Sie auf "Datei" und dann auf " New Project" ; erweitern Sie dann Klicken Sie "Windows " und doppelklicken Sie auf "Windows Forms-Anwendung " auf " Visual Basic ". ein neues Projekt erstellen . Doppelklicken Sie auf " ListBox " aus dem Bereich Toolbox ein neues Listenfeld hinzuzufügen. Fügen Sie einen " PictureBox " mit der gleichen Technik . Klicken Sie doppelt auf "Button" auf eine Schaltfläche, um Ihre Form hinzufügen.
2

Doppelklicken Sie auf das Formular, um eine Form Load-Ereignis zu erstellen , und fügen Sie den folgenden Code , um die Liste -Steuerelement mit dem Namen bevölkern die Bilder gefunden:

For Each pic As String In My.Computer.FileSystem.GetFiles _ ( imagesPath , FileIO.SearchOption.SearchTopLevelOnly , "*") ListBox1.Items.Add ( IO.Path.GetFileName (pic) ) = NextTimer1.Interval 2000PictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Width = Me.WidthPictureBox1.Height = Me.Height
3

Definieren Sie den Pfad auf Ihre Bilder , indem Sie folgende Codezeile als globale Variable über " private Sub Form1_Load : "

Privat imagesPath As String = "C : \\ Bilder \\ "
4

Schalter zurück zu bilden Design-Ansicht und doppelklicken Sie auf die Taste, um ein Click-Ereignis für die Schaltfläche erstellen. Fügen Sie den folgenden Code, um die Stoppuhr zu starten und verstecken Sie die Taste und das Listenfeld Steuerung:

ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start () = False Me.Button1.Visible
5

Doppelklicken Sie auf das Steuerelement, um einen Timer tick -Ereignis zu erstellen . Fügen Sie den folgenden Code, um das aktuelle Bild mit dem Bild -Steuerelement anzuzeigen :

If Not ListBox1.SelectedIndex = ListBox1.Items.Count - 1 ThenListBox1.SelectedIndex + = 1PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) ElseListBox1.SelectedIndex = 0PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) End If
6

Drücken Sie die Taste "F5" -Taste, um das Programm zu starten und starten Ihren Bildschirm Sparer.