Cómo crear un Programa de Presentación

Conocer cómo crear un programa de presentación de diapositivas utilizando Microsoft Visual Basic.NET (VB.NET) le puede ahorrar tiempo cuando se necesita para mostrar sus imágenes a amigos y familiares. VB.NET es un lenguaje de programación orientado a objetos utilizado para diseñar aplicaciones de Windows. Una presentación de diapositivas se utiliza para mostrar imágenes mientras hace una pausa de unos segundos en el medio. En unos pocos pasos que va a crear un proyecto VB.NET presentación de diapositivas utilizando un cuadro de imagen, cuadro de lista y un par de botones.

Instrucciones

1 Iniciar Microsoft Visual Basic Express, haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla, a continuación, seleccione "Aplicación de Windows Forms". Haga clic en Aceptar."

2 Haga doble clic en "botón" en el panel de "caja de herramientas" para añadir un nuevo botón de control. Añadir un segundo botón. Doble clic "cuadro de imagen" para agregar un nuevo control de imagen-cuadro.

3 Doble clic "ListBox" para agregar un control de cuadro de lista. Doble clic "OpenFileDialog" para agregar el control a su proyecto. Haga doble clic en "Button1" para abrir el módulo "Form1.vb".

4 Copia y pega el código siguiente en "Button1" para abrir la ventana de diálogo de archivos y navegar por imágenes:

OpenFileDialog1.Multiselect = False

OpenFileDialog1.Filter = "Jpeg|*.jpg|Gif|*.gif|Jpeg|*.jpeg|Bitmap|*.bmp"

OpenFileDialog1.RestoreDirectory = True

OpenFileDialog1.Title = "Navegar"

Si OpenFileDialog1.ShowDialog & lt;> Luego DialogResult.Cancel

ListBox1.Items.Add (OpenFileDialog1.FileName)

Terminara si

5 Copia y pega el código siguiente para crear un nuevo procedimiento para recorrer las imágenes y la pausa entre ellos el uso de un hilo:

slideShow sub ()

Dim iCntr As Integer

Para iCntr = 0 Para ListBox1.Items.Count - 1

pctrBx.Image = Image.FromFile (ListBox1.Items.Item (iCntr))

Thread.Sleep (3000)

Siguiente

Exit Sub

End Sub

6 Copia y pega el siguiente código en "Public Class Form1" declarar dos variables globales:

Dim pctrBx como nuevo cuadro de imagen

Dim frmFrame Como Nuevo formulario

7 Haga clic en "Form1.vb" y haga doble clic "Button2". Copia y pega el código siguiente para mostrar el formulario en el que se van a mostrar y también iniciar el hilo de las imágenes:

Si ListBox1.Items.Count <> 0 Then

frmFrame.Size = New Size(1000, 1000)

frmFrame.BackColor = Color.Black

frmFrame.Text = "Imagen Presentación"

pctrBx.Dock = DockStyle.Fill

pctrBx.BackColor = Color.Black

pctrBx.SizeMode = PictureBoxSizeMode.StretchImage

pctrBx.BorderStyle = BorderStyle.Fixed3D

frmFrame.Controls.Add (pctrBx)

frmFrame.Show ()

Dim pauseThread Como nuevo hilo (AddressOf presentación de diapositivas)

pauseThread.Start ()

Más

MsgBox ( "Por favor, seleccione una imagen")

Terminara si

8 Haga clic en "Form1.vb" y haga clic doble "ListBox1." Copia y pega el código siguiente para agregar el elemento seleccionado en el cuadro de lista para el control de cuadro de imagen:

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

PictureBox1.Image = Image.FromFile (ListBox1.SelectedItem)

9 Haga clic en el menú "Test" y luego seleccionar "Iniciar depuración" para ejecutar el programa. Haga clic en "Button1" para buscar imágenes. Haga clic en "Button2" para iniciar la presentación de diapositivas.