Göra en skärmsläckare med Visual Basic.NET 2010 lätt kan åstadkommas med hjälp av en Windows Forms projekt . I VB.NET kan du skapa ett användargränssnitt med reglage för att göra din skärmsläckare . Du kan använda en " ListBox " kontroll för att ladda bilderna du vill visa och ett " PictureBox " för att visa bilderna . Att uppdatera " PictureBox " kan du använda en " timer " kontroll för att ladda olika bilder medan skärmsläckaren är igång . Instruktioner
1
Launch Microsoft Visual Studio 2010 , klicka på " File " och sedan " Nytt projekt " , och sedan expandera Klicka på " Windows " och dubbelklicka på " Windows Forms Application " till " Visual Basic . " skapa ett nytt projekt . Dubbelklicka på " listruta " från Toolbox rutan för att lägga till en ny kontroll listrutan . Lägg till ett " PictureBox " med samma teknik . Dubbelklicka på " knappen " för att lägga till en knapp i formuläret .
2
Dubbelklicka på formuläret för att skapa en händelse formulär belastning och lägg till följande kod för att fylla i kontroll listrutan med namnet bilder hittades :
För varje 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
Definiera sökvägen till dina bilder genom att lägga till följande kodrad som en global variabel ovan " Private Sub Form1_Load : "
Privat imagesPath As String = " C : \\ bilder \\ "
4
Växla tillbaka för att bilda designen vy och dubbelklicka på knappen för att skapa en click-händelse för knappen . Lägg till följande kod för att starta timern och dölja knappen och listrutan kontroll :
ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start ( ) Me.Button1.Visible = False
5
Dubbelklicka på timer för att skapa en fästing händelse . Lägg till följande kod för att visa den aktuella bilden med kontroll bildblocket :
p Om inte 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
6
Tryck på " F5 " för att köra programmet och börja köra din skärm sparare . Addera
