Hacer un protector de pantalla con Visual Basic.NET 2010 se puede lograr fácilmente mediante el uso de un proyecto de Windows Forms. En VB.NET puede crear una interfaz de usuario con los controles para que el protector de pantalla . Puede utilizar un control " ListBox " para cargar las imágenes que desea mostrar y un " PictureBox " para mostrar las imágenes. Para actualizar la " PictureBox " se puede utilizar un control " Timer " para cargar diferentes imágenes mientras el protector de pantalla se ejecuta . Instrucciones
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.