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 controlli per rendere lo screen saver. È possibile utilizzare un controllo di "ListBox" per caricare le immagini che si desidera visualizzare e un "controllo PictureBox" per visualizzare le immagini. Per aggiornare il "controllo PictureBox" è possibile utilizzare un controllo "Timer" per caricare immagini diverse, mentre lo screen saver è in esecuzione.

Istruzioni

1

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

2

Fare doppio clic sul form per creare un evento di caricamento del form e aggiungere il codice seguente per popolare il controllo casella di riepilogo con il nome di immagini trovate:

Per ogni pic come stringa In 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

Definire il percorso alle vostre immagini aggiungendo la seguente riga di codice come una variabile globale sopra "Private Sub Form1_Load:"

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

4

Tornare alla visualizzazione di progettazione form e fare doppio clic sul pulsante per creare un evento click per il pulsante. Aggiungere il codice seguente 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 = False5

Fare doppio clic sul controllo timer per creare un evento tick. Aggiungere il codice riportato di seguito per visualizzare l'immagine corrente utilizzando il controllo casella di immagine:

Se non ListBox1 = ListBox1.Items.Count - 1 quindi

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

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