Fare uno screen saver utilizzando Visual Basic.NET 2010 può essere facilmente realizzato utilizzando un progetto Windows Form. In VB.NET è possibile creare un'interfaccia utente con i controlli per rendere il vostro screen saver. È possibile utilizzare un controllo "ListBox" per caricare le immagini che si desidera visualizzare e un "PictureBox" per visualizzare le immagini. Per aggiornare il "PictureBox" è possibile utilizzare un controllo "Timer" per caricare immagini diverse, mentre lo screen saver è in esecuzione.

istruzione

1 Avviare Microsoft Visual Studio 2010, fare clic su "File" e poi "New Project"; quindi espandere "Visual Basic." Fare clic su "Windows" e fare doppio clic su "Applicazione Windows Form" per creare un nuovo progetto. Fare doppio clic su "ListBox" dal riquadro Casella degli strumenti per aggiungere un nuovo controllo casella di riepilogo. Aggiungere un "PictureBox" utilizzando la stessa tecnica. Fare doppio clic su "Pulsante" per aggiungere un pulsante al form.

2 Fare doppio clic sul form per creare un evento carico di modulo e aggiungere il seguente codice per popolare il controllo casella di riepilogo con il nome delle immagini trovati:

Per ogni 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.Height

3 Definire il percorso per le immagini aggiungendo la seguente riga di codice come una variabile globale al di sopra "Private Sub Form1_Load:"

imagesPath privata As String = "C: \ Immagini \"

4 Tornare a formare visualizzazione struttura e fare doppio clic sul pulsante per creare un evento click per il pulsante. Aggiungere il seguente codice per avviare il timer e nascondere il pulsante e il controllo casella di riepilogo:

ListBox1.Visible = False

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

5 Fare doppio clic sul controllo timer per creare un evento di zecca. Aggiungere il seguente codice per visualizzare l'immagine corrente utilizzando il controllo casella di immagine:

Se non ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Poi

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

6 Premere il tasto "F5" per eseguire il programma e iniziare a correre lo screen saver.