Å gjøre en skjermsparer bruker Visual Basic.NET 2010 kan enkelt oppnås ved å bruke en Windows Forms -prosjekt . I VB.NET kan du lage et brukergrensesnitt med kontroller for å gjøre skjermbeskytteren. Du kan bruke en " Liste- " kontroll for å laste inn bildene du ønsker å vise og en " PictureBox " for å vise bildene. Hvis du vil oppdatere " PictureBox " kan du bruke en " Timer" kontroll for å laste forskjellige bilder mens skjermbeskytteren kjører . Instruksjoner
en

Launch Microsoft Visual Studio 2010 , klikk på "File " og deretter " New Project" , deretter utvider Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " til " Visual Basic. " opprette et nytt prosjekt . Dobbeltklikk på " Liste- " fra Toolbox ruten for å legge til en ny liste boks kontroll. Legge til en " PictureBox " ved hjelp av samme teknikk . Dobbeltklikk på " Button" for å legge til en knapp i skjemaet .
2

Dobbeltklikk skjemaet for å lage en form belastning hendelsen og legge til følgende kode for å fylle ut listen kontroll med navnet bildene fant : en

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

Definer banen til bildene dine ved å legge følgende kodelinje som en global variabel ovenfor "Private Sub Form1_Load : "

Private imagesPath As String = "C : \\ bilder \\ "
4

Switch tilbake for å danne utforming visning og dobbeltklikk på knappen for å lage et klikk hendelsen for den knappen . Legg til følgende kode for å starte tidtakeren og skjule knappen og listen kontroll : en

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

Dobbeltklikk timerkontrollen å skape en hake hendelsen. Legg til følgende kode for å vise det aktuelle bildet ved hjelp bildeblokken kontroll : en p Hvis ikke ListBox1.SelectedIndex = ListBox1.Items.Count - en ThenListBox1.SelectedIndex + = 1PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) ElseListBox1.SelectedIndex = 0PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) End If
6

Trykk " F5 " tasten for å kjøre programmet og begynne å kjøre skjermen saver.