Fare uno screen saver utilizzando Visual Basic.NET 2010 può essere facilmente realizzata utilizzando un progetto Windows Forms. 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 le immagini differenti , mentre lo screen saver è in esecuzione . Istruzioni
1
lancio di Microsoft Visual Studio 2010 , fare clic su "File" e poi "Nuovo progetto" , quindi espandere Fare clic su " Windows" e fare doppio clic su " Applicazione Windows Form " a " Visual Basic ". creare un nuovo progetto . Fare doppio clic su " ListBox " dal pannello Casella degli strumenti per aggiungere un nuovo controllo casella di riepilogo . Aggiungere un " PictureBox " con la stessa tecnica . Fare doppio clic su "Pulsante " per aggiungere un pulsante al form .
2
Fare doppio clic sul form per creare un evento di caricamento form e aggiungere il seguente codice per popolare il controllo casella di riepilogo con il nome di immagini trovate :
Ogni 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
Definire il percorso per le immagini con l'aggiunta del seguente riga di codice come una variabile globale al di sopra " private Sub Form1_Load : "
imagesPath privato As String = " C : \\ immagini \\ "
4
Passare di nuovo alla forma vista del design e fare doppio clic sul pulsante per creare un evento click del pulsante . Aggiungere il seguente codice per avviare il timer e nascondere il pulsante e il controllo casella di riepilogo :
ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start ( ) Me.Button1.Visible = False
5
Fare doppio clic sul controllo Timer per creare un evento Tick . Aggiungere il seguente codice per visualizzare l'immagine corrente utilizzando il controllo casella di immagine :
Se Non 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 il tasto "F5" per eseguire il programma e iniziare a correre il vostro schermo
6
Press saver .
