fenetre internet explorer dans une form ??

Question

bonjour

je suis nouveau et je doit mettre une fenetre internet explorer dans une form afin de visionner un compte yahoo

quelqu'un sait il si cela est possible svp ????

merci par avance et &#224; bientot

dom

jpleroisse · Answer

Oui ,cest possible, j'ai fais un programme pour cela mais malheureusement je n'arrive pas &#224; placer une source sur le forum, pourquoi "myst&#232;re", je veux bien laisser le code ici, mais il faut que tu connaisses un peu la manipulation du contr&#244;le ToolBar et ImageList, ainsi que le contr&#244;le WebBrowser.(Microsoft Internet Control)
Sur ta Form, tu places un contr&#244;le ToolBar et un control ImageList ou tu mets les images qui seront utilis&#233;es sur les boutons du contr&#244;le.Pour les 2 premi&#232;re image ,choisis une fl&#234;che vers la gauche et une vers la droite, pour les autres &#224; toi de voir.Il te faut 6 images.
Ensuite un contr&#244;le Timer(timTimer) et un Combobox(cboAddress) et le contr&#244;le WebBrowser que tu places sur ta form aux dimensions que tu veux.

 .Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
cboAddress.AddItem "www.voila.fr"
cboAddress.AddItem " www.Goggle.fr"
cboAddress.AddItem "www.vbfrance.com/forum.v2.aspx?TS=1"
cboAddress.AddItem "www.01net.com/telecharger/index.html"
    On Error Resume Next
    Me.Show
    tbToolBar.Refresh
    Form_Resize



    cboAddress.Move 1150, lblAddress.Top + lblAddress.Height + 15



    If Len(StartingAddress) > 0 Then
        cboAddress.Text = StartingAddress
        cboAddress.AddItem cboAddress.Text
        'essayer de naviguer jusqu'&#224; l'adresse de d&#233;part
        timTimer.Enabled = True
        brwWebBrowser.Navigate StartingAddress
    End If



End Sub


 


Private Sub brwWebBrowser_DownloadComplete()
    On Error Resume Next
    Me.Caption = brwWebBrowser.LocationName
End Sub



Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    Dim i As Integer
    Dim bFound As Boolean
    Me.Caption = brwWebBrowser.LocationName
    For i = 0 To cboAddress.ListCount - 1
        If cboAddress.List(i) = brwWebBrowser.LocationURL Then
            bFound = True
            Exit For
        End If
    Next i
    mbDontNavigateNow = True
    If bFound Then
        cboAddress.RemoveItem i
    End If
    cboAddress.AddItem brwWebBrowser.LocationURL, 0
    cboAddress.ListIndex = 0
    mbDontNavigateNow = False
End Sub



Private Sub cboAddress_Click()
    If mbDontNavigateNow Then Exit Sub
    timTimer.Enabled = True
    brwWebBrowser.Navigate cboAddress.Text
End Sub



Private Sub cboAddress_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        cboAddress_Click
    End If
End Sub



Private Sub Form_Resize()
    On Error Resume Next
    cboAddress.Width = Me.ScaleWidth - 1200
    brwWebBrowser.Width = Me.ScaleWidth - 200
    brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub



Private Sub timTimer_Timer()
    If brwWebBrowser.Busy = False Then
        timTimer.Enabled = False
        Me.Caption = brwWebBrowser.LocationName
    Else
        Me.Caption = "Op&#233;ration en cours..."
    End If
End Sub



Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
    On Error Resume Next
      


    timTimer.Enabled = True
      


    Select Case Button.Key
        Case "Back"
            brwWebBrowser.GoBack
        Case "Forward"
            brwWebBrowser.GoForward
        Case "Refresh"
            brwWebBrowser.Refresh
        Case "Home"
            brwWebBrowser.GoHome
        Case "Search"
            brwWebBrowser.GoSearch
        Case "Stop"
            timTimer.Enabled = False
            brwWebBrowser.Stop
            Me.Caption = brwWebBrowser.LocationName
    End Select



End Sub


jpleroisse

jpleroisse · Answer

PS: Pour le Timer, dans propri&#233;t&#233;, tu places Interval &#224; 5
jpleroisse

Fenetre internet explorer dans une form ??

2 réponses

Discussions similaires