Realiseringen en pauseskærm ved hjælp af Visual Basic.NET 2010, kan nemt gøres ved hjælp af en Windows Forms projekt. I VB.NET kan du oprette en brugergrænseflade med kontroller til at gøre din pauseskærm. Du kan bruge en " ListBox " kontrol for at indlæse billeder, du ønsker at vise , og en " PictureBox " for at vise billederne. Sådan opdaterer " PictureBox " kan du bruge en " Timer" kontrol for at indlæse forskellige billeder , mens pauseskærmen kører. Instruktioner
1
Launch Microsoft Visual Studio 2010, klik på "Filer " og derefter " Nyt projekt " udvid derefter Klik på " Windows" og dobbeltklik på "Windows Forms Application " til " Visual Basic ". opretter et nyt projekt . Dobbeltklik på " ListBox " fra Toolbox ruden for at tilføje en ny liste kontrol. Tilføj en " PictureBox " ved hjælp af samme teknik . Dobbeltklik på " Button " for at tilføje en knap til formularen .
2
Dobbeltklik på formularen for at oprette en form load begivenhed og tilføje følgende kode til at udfylde listen kontrol med navnet på de billeder fundet : Hej
For Each pic As String I 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
Definer stien til dine billeder ved at tilføje følgende linje kode som en global variabel over " Private Sub Form1_Load : "
Private imagesPath As String = " C: \\ billeder \\ "
4
Skift tilbage til at danne design view og dobbeltklik på knappen for at oprette et klik begivenhed for knappen. Føj følgende kode til at starte timeren og skjule knappen og listen kontrol : Hej
ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start () Me.Button1.Visible = False
5
Dobbeltklik på timeren kontrol til at oprette et kryds begivenhed. Føj følgende kode til at vise det aktuelle billede ved hjælp af billedfelt kontrol : Hej p Hvis ikke 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
Tryk på "F5 " for at køre programmet, og begynde at køre din skærm saver .
