Hvordan lage en lysbilde Program
Å vite hvordan du oppretter en slide-show program bruker Microsoft Visual Basic.NET (VB.NET) kan du spare tid når du trenger å vise bildene dine til venner og familie. VB.NET er et objektorientert programmeringsspråk som brukes til å designe Windows-programmer. En lysbildefremvisning brukes til å vise bilder mens pause noen sekunder i mellom. I noen få trinn vil du lage en slide-show VB.NET prosjekt ved hjelp av en bildeblokk, listeboksen og noen knapper.
Bruksanvisning
1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt ..." på ruten til venstre på skjermen, og velg deretter "Windows Forms Application". Klikk på "OK".
2 Dobbeltklikk på "knapp" på "Toolbox" -panelet å legge til en ny knapp kontroll. Legg en annen knapp. Dobbeltklikk på "PictureBox" for å legge til et nytt bilde-box kontroll.
3 Dobbeltklikk på "ListBox" for å legge til en liste-box kontroll. Dobbeltklikk på "OpenFileDialog" for å legge kontrollen til prosjektet. Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul.
4 Kopier og lim inn følgende kode under "button1_click" for å åpne dialogboksen filen Vindu og søke etter bilder:
OpenFileDialog1.Multiselect = False
OpenFileDialog1.Filter = "Jpeg|*.jpg|Gif|*.gif|Jpeg|*.jpeg|Bitmap|*.bmp"
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.Title = "Browse"
Hvis OpenFileDialog1.ShowDialog & lt;> DialogResult.Cancel Deretter
ListBox1.Items.Add (OpenFileDialog1.FileName)
Slutt om
5 Kopier og lim inn følgende kode for å opprette en ny prosedyre for å sløyfe gjennom bildene og pause mellom dem ved hjelp av en tråd:
Sub lysbilder ()
Dim iCntr As Integer
For iCntr = 0 For å ListBox1.Items.Count - 1
pctrBx.Image = Image.FromFile (ListBox1.Items.Item (iCntr))
Thread.Sleep (3000)
neste
Exit Sub
End Sub
6 Kopier og lim inn følgende kode under "Public Class Form1" å erklære to globale variabler:
Dim pctrBx som ny PictureBox
Dim frmFrame Som nytt skjema
7 Klikk "Form1.vb" og dobbeltklikk på "Button2." Kopier og lim inn følgende kode for å vise Form hvor bildene skal vises, og også starte tråden:
Hvis ListBox1.Items.Count <> 0 Then
frmFrame.Size = New Size(1000, 1000)
frmFrame.BackColor = Color.Black
frmFrame.Text = "Image Slide"
pctrBx.Dock = DockStyle.Fill
pctrBx.BackColor = Color.Black
pctrBx.SizeMode = PictureBoxSizeMode.StretchImage
pctrBx.BorderStyle = BorderStyle.Fixed3D
frmFrame.Controls.Add (pctrBx)
frmFrame.Show ()
Dim pauseThread Som ny tråd (AddressOf Slideshow)
pauseThread.Start ()
Ellers
MsgBox ( "Vennligst velg et bilde")
Slutt om
8 Klikk "Form1.vb" og dobbeltklikk på "ListBox1." Kopier og lim inn følgende kode for å legge til det valgte elementet i listeboksen til PictureBox kontroll:
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = Image.FromFile (ListBox1.SelectedItem)
9 Klikk på "Debug" -menyen og velg "Start Debugging" for å kjøre programmet. Klikk "Button1" for å søke etter bilder. Klikk "Button2" for å starte lysbildefremvisningen.