Índice:

Criando um programa em Visual Basic: Navegador da Web: 9 etapas
Criando um programa em Visual Basic: Navegador da Web: 9 etapas

Vídeo: Criando um programa em Visual Basic: Navegador da Web: 9 etapas

Vídeo: Criando um programa em Visual Basic: Navegador da Web: 9 etapas
Vídeo: Criando um Projeto no Visual Studio Code 2024, Novembro
Anonim
Criando um programa em Visual Basic: navegador da web
Criando um programa em Visual Basic: navegador da web

Este Instructable explica o processo de criação de um aplicativo de navegador da web simples em VB. NETIt é projetado como uma continuação do meu primeiro Instructable VB. NET: Criando seu primeiro programa em Visual Basic. Recomenda-se que você leia esse instrutivo primeiro, pois este instrutivo pressupõe que você tenha um conhecimento básico da Interface do Visual Basic Express Edition, conforme abordado em meu outro instrutivo. Embora o Visual Basic 2005 Express Edition funcione bem com este instrutível, estou usando Visual Basic 2008 Express Edition, disponível na Microsoft

Etapa 1: Crie o projeto

Crie o Projeto
Crie o Projeto

Crie um novo projeto do Windows Forms e chame-o de navegador da web. Redimensione o formulário ao seu gosto.

Etapa 2: adicionar os controles e alterar as propriedades

Adicione os controles e altere as propriedades
Adicione os controles e altere as propriedades

Na caixa de ferramentas, arraste um TextBox, WebBrowser e A Button para o formulário. Posicione-os como se estivessem na foto. Em seguida, edite a propriedade Anchor do TextBox e WebBrowser para que todas as caixas ao redor do quadrado cinza (mostrado quando você edita a propriedade âncora) sejam selecionadas, isso permitirá que os controles 'estiquem' quando o formulário for redimensionado. Faça o mesmo para o Botão, mas apenas defina-o como "Superior, Direita". Altere também a propriedade Texto do Form1 para Navegador da Web ou algo semelhante para alterar a barra de título.

Etapa 3: Código

Código!
Código!

Clique duas vezes em Button1 e adicione o seguinte código ao editor, após a linha "Private Sub" e antes da linha "End Sub"

WebBrowser1. Navigate (TextBox1. Text)Este código simplesmente diz ao programa: Quando alguém clica em Button1, obtenha WebBrowser para navegar até o que estiver em TextBox1 É isso aí! Você tem um navegador da web funcionando. Clique no botão play para testá-lo.

Etapa 4: mais coisas

Mais coisas
Mais coisas

Agora, você não achou que eu iria apenas fornecer uma linha de código - não é? Nas próximas etapas, implementaremos o seguinte:

  • Barra de endereço que muda conforme a página muda
  • Botões voltar, avançar e atualizar
  • Barra de status.

Etapa 5: barra de endereço

Barra de Endereço
Barra de Endereço

No momento, tudo o que a barra de endereço faz é mostrar a página que você digita; se você clicar em um link, a alteração não será refletida na barra de endereço. Para corrigir isso, precisamos adicionar mais alguns códigos. Volte para a visualização do design, clique em "Form 1.vb (Design)" e clique duas vezes no controle WebBrowser. Ele voltará para a visualização do código, no entanto, haverá mais algum código lá, observe que diz "WebBrowser1_DocumentCompleted", este é o código que queremos, então não precisamos fazer nenhuma alteração aqui, mas há um espaço em branco linha abaixo dessa, antes da instrução End Sub, e queremos adicionar algum código lá. Digite o seguinte lá

TextBox1. Text = WebBrowser1. Url. ToStringIsso informa ao programa que, assim que WebBrowser1_DocumentCompleted, devemos alterar TextBox1. Text para WebBrowser1. Url. O ToString está lá porque, por padrão, a propriedade URL do navegador da web não é o mesmo tipo de dados (string), conforme necessário para nossa caixa de texto. O ToString grava o URL em uma string para o TextBox.

Etapa 6: botões de ação

Botões de ação
Botões de ação

Volte para a visualização de design e arraste 3 novos botões para o formulário e posicione-os. Altere a propriedade Text de cada um: Button2 = Voltar, Button3 = Avançar e Button4 = Atualizar. Se você os posicionar como o meu, ajuste a propriedade âncora de Atualizar para o topo, clique duas vezes com o botão direito do mouse no botão Voltar e digite o código a seguir.

WebBrowser1. GoBack () De volta ao design, clique duas vezes em Avançar e digite

WebBrowser1. GoForward ()Visualização de design e um clique duplo para atualizar

WebBrowser1. Refresh ()Teste o navegador e experimente os novos recursos.

Etapa 7: Barra de status

Barra de status
Barra de status

De volta à visualização do design, adicione um rótulo, altere o Texto para "Carregando…" (sem as aspas). Agora, vá para a visualização do código clicando na guia Form1.vb. Encontre a entrada WebBrowser1_DocumentCompleted e digite abaixo do código que você colocou lá anteriormente

Label1. Text = "Concluído"Agora, clique onde o código diz DocumentCompleted. Mova o mouse até onde estão as duas caixas suspensas. Selecione o segundo (aquele que diz DocumentCompleted) e selecione Navegando. Então, algum novo código aparecerá - typ

Label1. Text = "Carregando"Isso apenas fornece um indicador de quando a página está sendo carregada. Além disso, você pode definir a propriedade âncora do rótulo.

Etapa 8: Conclua

Comlete!
Comlete!

Ai está. Você tem um navegador da web totalmente funcional. Continue personalizando-o como desejar. Como no meu primeiro instrutível. Tenho alguns trabalhos de casa para aqueles que concluírem este manual. Implemente o seguinte:

  • Uma função doméstica
  • Altere o botão Atualizar para Parar quando uma página estiver carregando.

Espero que esses projetos tenham mostrado como é fácil programar!

Etapa 9: Soluções

Soluções
Soluções

Para aqueles que concluíram meu primeiro VB instrutível - eu tenho as soluções para o dever de casa que defini no final.

Mudar a cor de fundo

Isso é simples - altere a propriedade BackColour do Form1 para uma cor diferente

Adicione algumas informações de direitos autorais

Um novo rótulo com a propriedade de texto alterada fará o truque

Faça o formulário mudar de tamanho com a imagem

Altere AutoSize para True e AutoSizeMode para GrowAndShrinkDone! Ainda está por vir: estarei criando mais alguns Instructables VB. NET. Continue codificando!

Recomendado: