Wie man einen Bildschirmschoner in Visual Basic 2010

Machen einen Bildschirmschoner mit Visual Basic 2010 kann leicht erreicht werden, mithilfe eines Windows Forms-Projekt. In VB können Sie eine Benutzeroberfläche mit Steuerelementen zu Ihren Bildschirmschoner erstellen. Sie können ein Steuerelement "ListBox", um die Bilder zu laden, die Sie anzeigen möchten und eine "PictureBox", damit die Bilder angezeigt. Um "PictureBox" aktualisieren können Sie ein Steuerelement "Timer", um verschiedene Bilder zu laden, während der Bildschirmschoner läuft.

Anweisungen

1 Starten Sie Microsoft Visual Studio 2010, und klicken Sie "Datei" und dann "Neues Projekt"; Erweitern Sie dann "Visual Basic." Klicken Sie auf "Windows", und doppelklicken Sie auf "Windows Forms-Anwendung" erstellen Sie ein neues Projekt. Doppelklicken Sie auf "ListBox" aus dem Bereich der Toolbox ein neues Listenfeld-Steuerelement hinzufügen. Fügen Sie eine "PictureBox" mit der gleichen Technik. Doppelklicken Sie auf "Button", um eine Schaltfläche zum Formular hinzuzufügen.

2 Doppelklicken Sie auf das Formular, um eine Load-Ereignis des Formulars erstellen, und fügen Sie folgenden Code zum Auffüllen des Listenfeld-Steuerelements mit dem Namen der Bilder gefunden:

Für jedes Pic As String In My.Computer.FileSystem.GetFiles _

(imagesPath, FileIO.SearchOption.SearchTopLevelOnly, "*") ListBox1.Items.Add(IO.Path.GetFileName(pic)) Next Timer1.Interval = 2000 PictureBox1.SizeMode = PictureBoxSizeMode.Zoom PictureBox1.Width = Me.Width PictureBox1.Height = Me.Height3

Definieren Sie den Pfad zu Ihren Bildern durch Hinzufügen der folgenden Codezeile als globale Variable oben "Private Sub Form1_Load:"

Private ImagesPath As String = "C:\pictures\"

4 Wechseln Sie zurück zu bilden die Entwurfsansicht, und doppelklicken Sie auf die Schaltfläche, um ein Click-Ereignis für die Schaltfläche erstellen. Fügen Sie den folgenden Code zum Starten des Timers und Ausblenden der Schaltfläche und das Listenfeld-Steuerelement:

ListBox1.Visible = False

ListBox1.SelectedIndex = 0 Timer1.Start() Me.Button1.Visible = False5

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

Wenn nicht ListBox1.SelectedIndex = ListBox1.Items.Count - 1 dann

ListBox1.SelectedIndex += 1 PictureBox1.Image = Image.FromFile(imagesPath & ListBox1.SelectedItem) Else ListBox1.SelectedIndex = 0 PictureBox1.Image = Image.FromFile(imagesPath & ListBox1.SelectedItem) End If6

Drücken Sie die Taste "F5" führen Sie das Programm und starten Sie Ihren Bildschirmschoner ausgeführt.