Como usar o botão Avançar e no botão Voltar para o controle WebBrowser no Visual Basic .NET ou no Visual Basic 2005

Traduções deste artigo Traduções deste artigo
ID do artigo: 811603 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo passo a passo descreve como ativar e desativar o botão Avançar e no botão Voltar em um controle WebBrowser. Quando você hospedar WebBrowser controlar, botões de Avançar e Voltar de implementar que são semelhantes aos implementada no Microsoft Internet Explorer. Você pode não saber quando habilitar e desabilitar os botões enquanto você implementá-los.

Evento CommandStateChange

O controle WebBrowser suporta um evento CommandStateChange . Este evento é acionado sempre que os botões Avançar ou Voltar devem ser ativados ou desativados. O evento CommandStateChange é enviado com os seguintes parâmetros:
  • Uma constante que indica o tipo de botão (CSC_NAVIGATEFORWARD ou CSC_NAVIGATEBACK).
  • Um sinalizador booleano que indica se deseja ativar ou desativar o botão.

Criar um aplicativo de exemplo

Para criar um aplicativo de exemplo, execute essas etapas:
  1. Abra o Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005. Criar um novo Windows Application projeto usando Microsoft Visual Basic.NET ou Microsoft Visual Basic 2005.
  2. No menu Ferramentas , clique em Customize Toolbox .

    Observação No Visual Studio 2005, clique em Choose Toolbox Items .
  3. Na lista Componentes COM , clique em Microsoft Web Browser e, em seguida, clique em OK .
  4. Da caixa de ferramentas, clique duas vezes em painel , clique com o botão direito do mouse Painel1 e em seguida, clique em Propriedades .
  5. Na janela Propriedades , altere a propriedade Dock para cima .
  6. Clique duas vezes para expandir a propriedade Size . Altere a propriedade Height para 40 .
  7. Da caixa de ferramentas, arraste um rótulo para Panel1 . Alterar o texto de propriedade de nome para endereço .
  8. Da caixa de ferramentas, arraste um TextBox para Painel1 próxima ao endereço . Altere a propriedade Text para http://www.microsoft.com .
  9. Da caixa de ferramentas, arraste um botão para Painel1 próximo a TextBox . Altere a propriedade nome do botão para cmdGo e altere a propriedade Text para & GO.
  10. Na caixa de ferramentas, arraste outro botão para Painel1 ao lado para o GO botão. Altere a propriedade nome do botão para cmdBack e altere a propriedade Text para & Voltar. Defina a propriedade Ativar como False .
  11. Na caixa de ferramentas, arraste outro botão para Painel1 ao lado para o back botão. Altere a propriedade nome do botão para cmdForward e a propriedade Text como & Avançar. Defina a propriedade Ativar como False .
  12. Da caixa de ferramentas, arraste Explorer abaixo Painel1 para Form1 . Altere a propriedade Dock de AxBrowser1 para preenchimento .
  13. No menu arquivo , clique em Salvar tudo .

Adicionar a funcionalidade para botões Voltar e Avançar

Para adicionar a funcionalidade para Avançar e Voltar , botões, siga estas etapas:
  1. No painel de designer, clique duas vezes em GO botão para exibir a implementação do evento cmdGo_Click . Acrescentar o código a seguir à classe Form1 para que você pode navegar para a URL especificada em TextBox1 :
       Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
          ' Go to the URL specified in Textbox1
          AxWebBrowser1.Navigate(TextBox1.Text)
       End Sub
  2. No painel de designer, clique duas vezes no botão Voltar para exibir a implementação do evento cmdBack_Click . Acrescentar o código a seguir à classe Form1 para que você pode navegar para a URL anterior quando você clica no botão Voltar :
       Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
          ' Go to the Previous URL when the Back button is clicked
          AxWebBrowser1.GoBack()
       End Sub
  3. No painel de designer, clique duas vezes no botão Avançar para exibir a implementação do evento cmdForward_Click . Acrescentar o código a seguir à classe Form1 para que você pode navegar para a próxima URL quando você clica no botão Avançar :
       Private Sub cmdForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdForward.Click
          ' Go to the Next URL when the Forward button is clicked
          AxWebBrowser1.GoForward()
       End Sub
  4. Acrescentar o código a seguir à seção Declaração de variável de Form1 classe:
       Private Const CSC_NAVIGATEFORWARD As Integer = 1
       Private Const CSC_NAVIGATEBACK As Integer = 2
  5. Para adicionar código ao evento CommandStateChange do AxWebBrowser1 , execute estas etapas:
    • Selecione AxWebBrowser1 na lista Nome de classe .
    • Selecione CommandStateChange na lista Method Name .
    • Acrescentar o código a seguir a classe Form1 para o evento CommandStateChange :
         Private Sub AxWebBrowser1_CommandStateChange(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_CommandStateChangeEvent) Handles AxWebBrowser1.CommandStateChange
            ' e.command identifies the effected button
            Select Case e.command
               Case CSC_NAVIGATEBACK 'Back button
                  ' Enable OR Disable the Back button
                  cmdBack.Enabled = e.enable
               Case CSC_NAVIGATEFORWARD 'Forward button
                  ' Enable OR Disable the Forward button
                  cmdForward.Enabled = e.enable
            End Select
         End Sub
  6. No menu arquivo , clique em Salvar tudo .

Teste o aplicativo

Para testar o aplicativo, execute as seguintes etapas:
  1. No menu Debug , clique em Iniciar .
  2. Para visitar o URL especificado em TextBox , clique no botão GO .
  3. Digite Http://www.msn.com no TextBox e, em seguida, clique no botão GO .

    O botão ' Voltar ' é ativado.
  4. Clique em Voltar para retornar para http://www.microsoft.com .

    O botão Avançar será habilitado.
  5. Clique em Avançar para visitar http://www.msn.com .

Referências

Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
311282 COMO: Utilizar o evento de NewWindow2 controle WebBrowser no Visual Basic .NET

Para obter mais informações sobre o controle WebBrowser, visite o seguinte site da Microsoft:
http://msdn2.microsoft.com/en-us/library/Aa752043.aspx

Propriedades

ID do artigo: 811603 - Última revisão: domingo, 13 de maio de 2007 - Revisão: 3.5
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Internet Explorer (Programming)
Palavras-chave: 
kbmt kbvs2005applies kbvs2005swept kbweb kbuidesign kbwindowsforms kbctrl kbcontrol kbbrowse kbhowtomaster kbhowto KB811603 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 811603

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com