Weten hoe je een dia-show -programma met behulp van Microsoft Visual Basic.NET ( VB.NET ) te maken kunt u tijd besparen wanneer u nodig hebt om uw foto's te laten zien aan vrienden en familie . VB.NET is een object - georiënteerde programmeertaal gebruikt om Windows- applicaties te ontwerpen . Een diavoorstelling wordt gebruikt om afbeeldingen weer te geven tijdens het pauzeren van een paar seconden ertussen . In een paar stappen kunt u een dia-show VB.NET project met behulp van een foto doos , keuzelijst en een paar knoppen te maken . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Start Microsoft Visual Basic Express , klikt u op " New Project ... " aan de linkerkant van uw scherm , selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik " Button " 2 op de " Toolbox " deelvenster naar een nieuwe knop controle toe te voegen . Voeg een tweede knop . Dubbelklik op " PictureBox " om een nieuwe foto - box controle toe te voegen .
Dubbelklik " ListBox " 3 om een lijst - box controle toe te voegen . Dubbelklik op " OpenFileDialog " om de controle toe te voegen aan uw project . Dubbelklik op " Button1 " om de " Form1.vb " module te openen
Kopieer 4 en plak de volgende code onder " Button1_Click " om het dialoogvenster bestand venster te openen en blader naar beelden : .
OpenFileDialog1.Multiselect = False OpenFileDialog1.Filter
= " jpeg | * jpg | . gif | * gif | . jpeg | * jpeg | . Bitmap | * bmp . "
OpenFileDialog1 . RestoreDirectory = True OpenFileDialog1.Title
= "Bladeren "
Als OpenFileDialog1.ShowDialog < > DialogResult.Cancel ListBox1.Items.Add dan
( OpenFileDialog1.FileName ) End
Als
Kopieer 5 en plak de volgende code om een nieuwe procedure voor het doorlussen van de beelden en de pauze tussen hen met behulp van een draad : Sub opeenvolgende beelden ( ) Dim iCntr
als Geheel
iCntr = 0 Om ListBox1.Items.Count - 1
pctrBx.Image = Image.FromFile ( ListBox1.Items.Item ( iCntr ) ) Thread.Sleep
( 3000 ) Volgende Exit Sub End Sub
Copy
6 en plak de volgende code onder " Public Class Form1 " om twee globale variabelen declareren : Dim pctrBx
als Nieuwe PictureBox Dim frmFrame
als Nieuwe Vorm
Click 7 " Form1.vb " en dubbelklik op " Button2 . " Kopieer en plak de onderstaande code om het formulier waar de beelden zullen worden getoond tonen en ook beginnen met de discussie : Als ListBox1.Items.Count < > 0 Then frmFrame
. size = Nieuw Maat ( 1000 , 1000 ) op Twitter frmFrame.BackColor = Color.Black frmFrame.Text
= " Afbeelding Slideshow " pctrBx.Dock
= DockStyle.Fill < > pctrBx.BackColor = Color.Black pctrBx.SizeMode
= PictureBoxSizeMode.StretchImage pctrBx.BorderStyle
= BorderStyle.Fixed3D frmFrame.Controls.Add br
( pctrBx ) frmFrame.Show ( ) Dim pauseThread
Zoals Nieuwe Draad ( AddressOf pauseThread.Start slideShow ) op ( ) op Else
MsgBox ( "Selecteer een afbeelding " ) Eind
Als
8 Klik op " Form1.vb " en dubbelklik op " ListBox1 . " Kopieer en plak de onderstaande code om het geselecteerde item in de keuzelijst toe te voegen aan de PictureBox controle :
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.Image
= Image.FromFile ( ListBox1.SelectedItem )
9 Klik op het menu " Debug " en selecteer vervolgens "Start Debugging " om uw programma te draaien . Klik op " Button1 " om te zoeken naar afbeeldingen . Klik op " Button2 " om de diashow te starten .
|
