Webbrowser

Signaler
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007
-
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007
-
Bonjour à tous

J'aimerais savoir comment peut on faire pour que le composant webrowser descende toujours son scrollbar en bas ?

Merçi d'avance.

5 réponses

Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009

Lu,
le plus simple c'est d'écrire un ptit script dans ta page web, du style

Dim Intro As String
Intro = "<HTML><HEAD>" & vbCrLf & _
"<script language='javascript'>var scrollMe = window.setInterval('window.scrollBy(0,1000);', 1000);</script></head>" & vbCrLf & ""


Open App.Path & "\hi.html" For Output As #1
   Print #1, Intro
Close #1
web.Navigate App.Path & "\hi.html"
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007

Merçi de ta réponse mais sans modifier le HTML de base ?
Avec le scroll bar on ne peut pas le descendre automatiquement ?
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009

Lu,
désolé mais je connais pas le vb.net,sinon pour te faire une idée voici un exemple en vb

'dans un module
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function ScrollDC Lib "user32" (ByVal hdc As Long, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As Long, lprcUpdate As RECT) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long


Public Type RECT
            Left As Long
            Top As Long
            Right As Long
            Bottom As Long
End Type

'dans une form

Private Sub Command1_Click()
Dim HdcWeb As Long: HdcTxtWeb = GetDC(WebBrowser.hwnd)
With WebBrowser
    SetRect RClip, 0, 1, .Width, .Height
    ScrollDC HdcTxt, 0, -1, RClip, RClip, 0, RUpdate
End With
End Sub
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009

et apres on la déclenche par un événement ou alors un timer

Public Sub Descent()
Dim HdcWeb As Long: HdcTxtWeb = GetDC(WebBrowser.hwnd)
With WebBrowser
    SetRect RClip, 0, 1, .Width, .Height
    ScrollDC HdcTxt, 0, -1, RClip, RClip, 0, RUpdate
End With
End Sub
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007

Ca marche en vb simple ton code?