Erro: DocumentComplete não disparado quando WebBrowser não está visível

Etapas para reproduzir o problema

1. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
2. Adicione o Microsoft Internet Controls (Shdocvw.dll) para o projeto. Portanto, a partir do menu Project , clique em componentes .
3. Adicione os seguintes controles para Form1:

      Object                     Name                  Caption
      -------------------------------------------------------------------
   
      WebBrowser                 WebBrowser1            
      CheckBox                   chkVisible            Visible (value of 1 - checked)
      CommandButton              cmdNavigate           Navigate
      CommandButton              cmdReadyState         ReadyState
   
    
   					

4. Copie o código a seguir na janela de código do Form1:

      Private Sub cmdNavigate_Click()
         WebBrowser1.Navigate2 "http://msdn.microsoft.com/workshop"
      End Sub
   
      Private Sub cmdReadyState_Click()
         MsgBox WebBrowser1.Document.ReadyState
      End Sub
   
      Private Sub chkVisible_Click()
         WebBrowser1.Visible = chkVisible.Value
      End Sub
   
      Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,
                                               URL As Variant)
         MsgBox "DocumentComplete!"
      End Sub
   
      Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object,
                                                URL As Variant)
         MsgBox "NavigateComplete2!"
      End Sub
   					

5. No menu ' Executar ', clique em Iniciar ou pressione a tecla F5 para iniciar o programa.
6. Clique no botão navegar . Observe que ambos os NavigateComplete2 DocumentComplete eventos e são acionados.
7. Desmarque a caixa de seleção Visible para ocultar o controle WebBrowser. Clique no botão navegar novamente. Observe que somente o evento NavigateComplete2 é acionado. Usando o botão ReadyState , verifique se ReadyState do controle não tiver atingido READYSTATE_COMPLETE (4).
   
   Quando você clicar novamente em navegar , ocorre o mesmo comportamento. O evento DocumentComplete só é acionado quando a caixa de seleção visível é selecionada, tornando o controle WebBrowser visível novamente. Você pode corrigir o comportamento, substituindo o manipulador chkVisible_Click com o seguinte código:

      Private Sub chkVisible_Click()
          If chkVisible.Value Then
              WebBrowser1.Left = 120 ' or whatever the normal Left value is
          Else
              WebBrowser1.Left = -WebBrowser1.Width
          End If
      End Sub
   					

Voltar para o início