Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como fazer uma proteção de tela no Visual Basic 2010
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.

Anterior :

Próximo : No
  Os artigos relacionados
·Ajuda para VB6 transferência de controle da Internet 
·Função VB6 Temporizador 
·Como fazer um resumo para um Script 
·Como construir um JSON Analisador em VB.NET 
·Como converter VB6 para 64 Bit 
·Como fazer uma barra de status no navegador da Web com …
·Como notificar um usuário Terminal Service em VB.Net 
·Como compilar Quando Funções Conflito entre Bibliotec…
·Por que há tantas estruturas de repetição em Visual …
·Como alterar uma legenda do Windows diálogo 
  Artigos em destaque
·Como testar se um valor é um Decimal ou não em Python…
·Como encontrar a senha para Localhost MySQL 
·Como alterar o texto que aparece quando você move o mo…
·Como construir um arquivo JAR com build.xml 
·Como Animar em XNA 
·Como Verificar Tipos de variáveis ​​em Python 
·Como desenvolver um driver de dispositivo para o DOS 
·Como converter de espaço para Newline 
·Como escapar de saída HTML no Rails 
·Como escrever para arquivo binário um código de exemp…
Cop e direita © Conhecimento computador https://ptcomputador.com Todos os Direitos Reservados