Ako si vyrobiť šetrič obrazovky vo Visual Basic 2010

Vytvorenie šetriča obrazovky pomocou jazyka Visual Basic.NET 2010 možno ľahko dosiahnuť pomocou formulárov projektu Windows . Vo VB.NET môžete vytvoriť užívateľské rozhranie s ovládacími prvkami , aby sa šetrič obrazovky . Môžete použiť ovládací prvok zoznamu " " načítať obrázky , ktoré chcete zobraziť a " PictureBox " na zobrazenie obrázkov . Ak chcete obnoviť " PictureBox " , môžete použiť ovládací prvok " Timer " načítať rôzne obrazy , zatiaľ čo vaše beží šetrič obrazovky . Pokyny dovolená 1

Spustite program Microsoft Visual Studio 2010 , kliknite na tlačidlo " Súbor " a potom " New Project " , rozbaľte " Visual Basic " . Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " na vytvoriť nový projekt . Double - kliknite na " listbox " z panela Toolbox pridať nový ovládací prvok zoznam . Pridať " PictureBox " rovnakou technikou . Double - kliknite na " tlačidlo " pridať tlačidlo do formulára .
2

Dvakrát kliknite na formulár vytvoriť udalosť Load formulára a pridajte nasledujúci kód naplniť ovládací prvok zoznam s názvom obrázky nájdené:

Pre každý pic As String V 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

definujte cestu k svojej snímky pridaním nasledujúce riadok kódu ako globálne premenné nad " Private Sub Form1_Load : "

Súkromná imagesPath As String = " C : \\ obrázky \\ "
4

Prepnite späť do tvoriť zobrazenie návrhu a dvakrát kliknite na tlačidlo vytvoriť udalosť click na tlačidlo . Pridajte nasledujúci kód na spustenie časovača a skryť tlačidlá a ovládací prvok zoznam :

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

Dvakrát kliknite na ovládací prvok časovača vytvoriť kliešť udalosť . Pridajte nasledujúci kód zobraziť aktuálnu snímku pomocou ovládacieho prvku obrázok poľa :

Ak nie je 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

Stlačením tlačidla " F5 " pre spustenie programu a spustenie obrazovky šetrič .

• Predchádzajúca strana: Ako si vyrobiť Uloží v jazyku Visual Basic 
• Ďalšia strana: Ako sa k nám rozbaľovacieho zoznamu vo VBA