Hvordan lage en skjermsparer i Visual Basic 2010

Å 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 "ListBox" kontroll for å laste inn bildene du ønsker å vise og en "PictureBox" for å vise bildene. Hvis du vil oppdatere "PictureBox" du kan bruke en "Timer" kontroll for å laste forskjellige bilder mens skjermbeskytteren kjører.

Bruksanvisning

1 Start Microsoft Visual Studio 2010, klikk på "File" og deretter "New Project"; deretter utvider "Visual Basic." Klikk "Windows" og dobbeltklikk på "Windows Forms Application" for å opprette et nytt prosjekt. Dobbeltklikk på "ListBox" fra verktøykassen panelet for å legge til en ny liste bokskontroll. Legg en "PictureBox" ved hjelp av den samme teknikken. Dobbeltklikk på "Button" for å legge til en knapp i skjemaet.

2 Dobbeltklikk på skjemaet for å opprette en form last event og legg til følgende kode for å fylle listeboksen kontroll med navnet på bildene funnet:

For hvert bilde As String I 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 Definer banen til bildene dine ved å legge til følgende linje med kode som en global variabel ovenfor "Private Sub Form1_Load:"

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

4 Bytt tilbake for å danne utformingsvisning, og dobbeltklikk på knappen for å opprette et klikk begivenhet for knappen. Legg til følgende kode for å starte tidtakeren og skjule knappen og listeboksen kontroll:

ListBox1.Visible = False

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

5 Dobbeltklikk timer kontroll for å skape en hake hendelse. Legg til følgende kode for å vise gjeldende bilde ved hjelp av bildeblokken kontroll:

Hvis ikke ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Da

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

6 Trykk på "F5" tasten for å kjøre programmet og begynne å kjøre skjermbeskytteren.