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

Passos para reproduzir o comportamento

1. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
2. Adicione os controlos de Internet da Microsoft (Shdocvw.dll) ao projecto. Assim, no menu Project , clique em componentes .
3. Adicione os seguintes controlos ao Form1:

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

4. Copie o código seguinte para a janela Code 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. Menu ' Executar ', clique em Iniciar ou prima a tecla F5 para iniciar o programa.
6. Clique no botão ' navegar '. Repare que as NavigateComplete2 e DocumentComplete eventos são accionados.
7. Desmarque a caixa de verificação visível para ocultar o controlo WebBrowser. Clique no botão de navegar novamente. Repare que apenas o evento NavigateComplete2 for accionado. Quando utilizar o botão ReadyState , verificar que ReadyState o controlo não atingiu READYSTATE_COMPLETE (4).
   
   Quando clicar em navegar novamente, ocorre o mesmo comportamento. O evento DocumentComplete apenas é desencadeado quando a caixa de verificação visível estiver seleccionada, tornando o controlo WebBrowser visíveis novamente. Pode corrigir o comportamento, substituindo a rotina de tratamento de 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 ao topo