Ircservices.com


Cómo crear un programa de presentación de diapositivas

Cómo crear un programa de presentación de diapositivas

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

Instrucciones

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

2 doble haga clic en "Botón" en el panel "Toolbox" para agregar un nuevo control de botón. Agregue un segundo botón. Doble click "PictureBox" para agregar un nuevo control de cuadro de imagen.

3 haga doble clic en "Cuadro de lista" para agregar un control de cuadro de lista. Doble click "OpenFileDialog" para agregar el control a su proyecto. Doble click "Button1" para abrir el "Form1.vb"module.

4 copiar y pegar el siguiente código bajo "Button1_Click" para abrir el diálogo de archivo ventana y buscar imágenes: OpenFileDialog1.Multiselect = False OpenFileDialog1.Filter = "Jpeg|*.jpg| GIF|*.gif| JPEG|*.JPEG| Bitmap| * .bmp "OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.Title ="Buscar"si OpenFileDialog1.ShowDialog <> DialogResult.Cancel entonces ListBox1.Items.Add(OpenFileDialog1.FileName) End If

5 copiar y pegar el siguiente código para crear un nuevo procedimiento para bucle a través de las imágenes y hacer una pausa entre ellas usando un hilo de rosca: Sub slideShow() Dim iCntr entero cuanto iCntr = 0 To ListBox1.Items.Count - 1 pctrBx.Image = Image.FromFile(ListBox1.Items.Item(iCntr)) Thread.Sleep(3000) siguiente Exit Sub End Sub

6 copie y pegue el código siguiente bajo la "Clase pública Form1" para declarar dos variables globales: Dim pctrBx frmFrame como nuevo PictureBox Dim como nueva forma

7 haga clic en "Form1.vb" y haga doble clic en "Button2". Copie y pegue el código siguiente para mostrar el formulario donde las imágenes van a aparecer y también iniciar el hilo: ListBox1.Items.Count si <> 0 entonces frmFrame.Size = New Size(1000, 1000) frmFrame.BackColor = Color.Black frmFrame.Text = "Imagen Slideshow" pctrBx.Dock = DockStyle.Fill pctrBx.BackColor = Color.Black pctrBx.SizeMode = PictureBoxSizeMode.StretchImage pctrBx.BorderStyle = BorderStyle.Fixed3D frmFrame.Controls.Add(pctrBx) frmFrame.Show() pausa tenue hilo como nuevo Thread(AddressOf slideShow) pauseThread.Start() Else MsgBox("Please select an image") End If

8 haga clic en "Form1.vb" y haga doble clic en "ListBox1". Copie y pegue el código siguiente para agregar el elemento seleccionado en el Listbox al control PictureBox: PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.Image = Image.FromFile(ListBox1.SelectedItem)

9 haga clic en el menú "Depurar" y seleccione "Iniciar depuración" para ejecutar el programa. Haga clic en "Button1" para buscar imágenes. Haga clic en "Button2" para iniciar el slide show.