Het maken van een screensaver met behulp van Visual Basic.NET 2010 kan gemakkelijk worden bereikt met behulp van een Windows Forms project . In VB.NET kunt u een gebruikersinterface te maken met controles om uw screensaver te maken . U kunt een " ListBox " control gebruiken om de beelden die u wilt weergeven en een " PictureBox " te laden om de beelden weer te geven . Om de " PictureBox " vernieuwen kunt u een "Timer " control gebruiken om verschillende afbeeldingen te laden terwijl je screensaver actief is . Instructies
Lancering Microsoft Visual Studio 2010 1 , klikt u op " File " en vervolgens " Nieuw Project " ; vouw Klik op " Windows " en dubbelklik op " Windows Forms Application " naar " Visual Basic . " maak een nieuw project . Dubbelklik op " ListBox " van de Toolbox deelvenster naar een nieuwe keuzelijst toe te voegen . Toevoegen " PictureBox " gebruikmaking van dezelfde techniek . Dubbelklik op " Button " om een knop toe te voegen aan uw formulier . Kopen van 2 Dubbelklik op het formulier om een formulier load gebeurtenis te maken en voeg de volgende code toe aan de keuzelijst met de naam van bevolken de beelden gevonden :
Voor Elke pic als Koord 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 Definieer het pad naar uw afbeeldingen door het toevoegen van de volgende regel code als een globale variabele boven " Private Sub Form1_Load : " Prive imagesPath
As String = " C : \\ foto's \\ "
Switch 4 terug te vormen ontwerpuitzicht en dubbelklikt u op de knop om een gebeurtenis click voor de knop te maken . Voeg de volgende code om de timer te starten en te verbergen op de knop en de keuzelijst : ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start ( ) Me.Button1.Visible = False
5 Dubbelklik op de timer in op een teek gebeurtenis te maken . Voeg de volgende code toe aan het huidige beeld met behulp van de foto doos controle geven :
Als Niet 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
Druk 6 de " F5 " toets om het programma uit te voeren en het begint te lopen uw scherm spaarder .
|
