Fazer um protetor de tela utilizando o Visual Basic.NET 2010 pode ser facilmente realizado por meio de um projeto Windows Forms . Em VB.NET você pode criar uma interface de usuário com controles para fazer seu protetor de tela. Você pode usar um controle " ListBox " para carregar as imagens que você deseja exibir e uma " PictureBox " para exibir as imagens. Para atualizar a " PictureBox ", você pode usar um controle de " timer " para carregar imagens diferentes , enquanto o protetor de tela está sendo executado. Instruções
1

Abra o Microsoft Visual Studio 2010, clique em "Arquivo " e depois " New Project" , em seguida, expanda "Visual Basic". Clique em " Windows" e clique duas vezes em " Windows Forms Application " para criar um novo projeto. Dê um duplo clique em " ListBox " do painel de caixa de ferramentas para adicionar um novo controle de caixa de lista. Adicionar " PictureBox " usando a mesma técnica . Clique duas vezes em "Button" para adicionar um botão ao seu formulário.
2

Clique duas vezes no formulário para criar um evento de carregamento de formulário e adicione o seguinte código para preencher o controle de caixa de lista com o nome de as imagens encontradas :

para cada pic as String No My.Computer.FileSystem.GetFiles _ ( imagesPath , FileIO.SearchOption.SearchTopLevelOnly , "*") ListBox1.Items.Add ( IO.Path.GetFileName ( pic ) ) NextTimer1.Interval = 2000PictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Width = Me.WidthPictureBox1.Height = Me.Height
3

Defina o caminho para suas imagens , adicionando o seguinte linha de código como uma variável global acima "Private Sub Form1_Load : "

imagesPath privada As String = "C : \\ pictures \\ "
4

Volte para formar opinião do projeto e dê um duplo clique no botão para criar um evento de clique do botão. Adicione o seguinte código para iniciar o temporizador e esconder o botão eo controle de caixa de lista :

ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start () Me.Button1.Visible = False
5

clique duas vezes no controle timer para criar um evento de carrapato. Adicione o seguinte código para exibir a imagem atual usando o controle de caixa de imagem :

If Not Listbox1.selectedIndex = ListBox1.Items.Count - 1 ThenListBox1.SelectedIndex + = 1PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) ElseListBox1.SelectedIndex = 0PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) End If
6

Pressione a tecla "F5" para executar o programa e começar a correr a sua tela saver.