1
lanzamiento Microsoft Visual Studio 2010 , haga clic en "Archivo" y luego en " Nuevo proyecto" , a continuación, expanda Haga clic en " Windows" y haga doble clic en " Aplicación de Windows Forms " en " Visual Basic ". crear un proyecto nuevo . Haga doble clic en " ListBox " desde el panel Cuadro de herramientas para agregar un nuevo control de cuadro de lista. Añadir un " PictureBox " utilizando la misma técnica. Haga doble clic en " botón " para añadir un botón al formulario.
2 Haga doble clic en el formulario para crear un evento de carga del formulario y agregue el código siguiente para rellenar el control cuadro de lista con el nombre de las imágenes encontradas :
For Each pic As String En My.Computer.FileSystem.GetFiles _ ( imagesPath , FileIO.SearchOption.SearchTopLevelOnly , "*" ) ListBox1.Items.Add ( IO.Path.GetFileName ( foto) ) NextTimer1.Interval = 2000PictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Width = Me.WidthPictureBox1.Height = Me.Height
3
Defina la ruta de acceso a sus imágenes agregando la siguiente línea de código como una variable global por encima de "Private Sub Form1_Load : "
imagesPath Private As String = "C : \\ pictures \\ "
4
volver a la vista Diseño y haga doble clic en el botón para crear un evento de clic del botón. Agregue el código siguiente para iniciar el temporizador y ocultar el botón y el control de cuadro de lista :
ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start () Me.Button1.Visible = False
5
doble clic en el control del temporizador para crear un evento tick. Agregue el código siguiente para mostrar la imagen actual mediante el control de cuadro de imagen:
Si No ListBox1.SelectedIndex = ListBox1.Items.Count - 1 ThenListBox1.SelectedIndex + = 1PictureBox1.Image = Image.FromFile ( imagesPath y ListBox1.SelectedItem ) ElseListBox1.SelectedIndex = 0PictureBox1.Image = Image.FromFile ( imagesPath y ListBox1.SelectedItem ) End If tecla " F5 " para ejecutar el programa y empezar a publicar su pantalla
6
Press ahorrador.