Hvordan lage en lysbilde Program

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.