Late og Early Binding? Microsoft Internet Controls

[Richard87]

Kossen kan eg "Late Binda" ShellWindows/InternetExplorer (Microsoft Internet Controls) någen ide?

[aadnk]

Dersom du behøver InternetExplorer-kontrollen i prosjektet, kan denne legges til således:

 

' Kontrollen som skal skapes

Public WebBrowser As Object

Private Sub Form_Load()

    ' Skap kontroll og assosier med form

    Set WebBrowser = Me.Controls.Add("Shell.Explorer", "WebBrowser")

   

    ' Synliggjør kontroll

    WebBrowser.Visible = True

   

    ' Flytt til passende posisjon

    WebBrowser.Left = 10

    WebBrowser.Top = 10

   

    ' Naviger til søkemotor

    WebBrowser.Object.Navigate2 "http://www.google.com/"

   

End Sub

Private Sub Form_Resize()

    ' Redimensjoner kontroll etter formens størrelse

    WebBrowser.Width = Me.ScaleWidth - WebBrowser.Left - 8

    WebBrowser.Height = Me.ScaleHeight - WebBrowser.Top - 8

End Sub

 

Dersom du istedenfor ønsker å få tilgang til ShellWindows, må du benytten CreateObject:

 

    ' Klassemoduer som skal implementeres

    Dim Shell As Object

    Dim ShellWindows As Object

    Dim Window As Object

 

    ' Knytt objekt-variabler til reelle klassemoduler

    Set Shell = CreateObject("Shell.Application")

 

    ' Hent objektet

    Set ShellWindows = Shell.Windows

   

    ' Gå igjennom alle underelementer

    For Each Window In ShellWindows

   

        ' Vis informasjon

        Debug.Print Window.LocationURL

   

    Next

 

Edit: Tester kodefargeleggingen.

Endret 15. mai 2005 av aadnk

[Richard87]

ok, var nesten helt lik det jeg fant ut... det virker... thx for replay uanset..