Webbrowser
vbctor88
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007
-
5 févr. 2007 à 21:42
vbctor88 Messages postés 3 Date d'inscription samedi 6 septembre 2003 Statut Membre Dernière intervention 15 février 2007 - 15 févr. 2007 à 20:38
vbctor88 Messages postés 3 Date d'inscription samedi 6 septembre 2003 Statut Membre Dernière intervention 15 février 2007 - 15 févr. 2007 à 20:38
5 réponses
le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009
6 févr. 2007 à 02:37
6 févr. 2007 à 02:37
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"
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"
vbctor88
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007
6 févr. 2007 à 22:56
6 févr. 2007 à 22:56
Merçi de ta réponse mais sans modifier le HTML de base ?
Avec le scroll bar on ne peut pas le descendre automatiquement ?
Avec le scroll bar on ne peut pas le descendre automatiquement ?
le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009
7 févr. 2007 à 10:07
7 févr. 2007 à 10:07
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
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
le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009
7 févr. 2007 à 10:11
7 févr. 2007 à 10:11
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
vbctor88
Messages postés
3
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
15 février 2007
15 févr. 2007 à 20:38
15 févr. 2007 à 20:38
Ca marche en vb simple ton code?
