Hata: WebBrowser görünür deðil Açtýðýnýzda DocumentComplete baþlatýlmýyor

Davranýþý yeniden oluþturma adýmlarý

1. Yeni bir proje standart exe DOSYASý, Visual Basic'te baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Microsoft ýnternet denetimleri (Shdocvw.dll) projeye ekleyin. Bu nedenle, bu Proje menüsünden bileþenleri týklatmak için <a0></a0>.
3. Form1'e aþaðýdaki denetimleri ekleyin:

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

4. Form1 kod penceresine aþaðýdaki kodu kopyalayýn:

      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. Çalýþtýr menüsünü Baþlat ' ý týklatýn veya programý baþlatmak için F5 tuþuna basýn.
6. Kayýt Bul</a0> düðmesini týklatýn. NavigateComplete2 hem DocumentComplete olaylar, dikkat edin.
7. WebBrowser denetimi gizlemek için görünür onay kutusunu temizleyin. Kayýt Bul</a0> düðmesini yeniden týklatýn. Yalnýzca NavigateComplete2 olayýný harekete geçirdi dikkat edin. ReadyState düðmesini kullanarak, denetimin ReadyState READYSTATE_COMPLETE (4) ulaþtý doðrulayýn.
   
   Ayný davranýþ, Kayýt Bul yeniden týklattýðýnýzda ortaya çýkar. WebBrowser denetimi yeniden görünür hale görünür onay kutusu seçildiðinde, yalnýzca DocumentComplete Olayý harekete geçirilir. Davranýþ aþaðýdaki kodla chkVisible_Click iþleyicisi deðiþtirerek çözebilirsiniz:

      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
   					

Üste