OVH Cloud OVH Cloud

WebBorwser et affichage des ascenseurs

6 réponses
Avatar
scraper
Bonjour à tous !

encore un souci :-(

je veux afficher une page html en local au moyen d'un contrôle webBrowser

jusque là, pas de souci

mais malgré le fait d'avoir inséré le composant sysinfo1 sur ma form, et
d'utiliser ses propriétés WorkAreaWidth et WorkAreaHeight pour définir
la taille de ma form à l'ouverture, j'ai constaté que s'il y a des
ascenseurs dans la page html, ceux ci ne s'affichent pas totalement (voire
même, pour l'éascenseur horizontal, il est totalement escamoté !)

il y a manifestement un truc que je dois pas bien capter ou utiliser ??

je précise que même si je passe la propriété de la form à maximized, le
problème reste le même ...

merci de votre aide ....



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

6 réponses

Avatar
scraper
Re bonjour à tous !

je veux afficher une page html en local au moyen d'un contrôle
webBrowser
jusque là, pas de souci
mais malgré le fait d'avoir inséré le composant sysinfo1 sur ma form,
et d'utiliser ses propriétés WorkAreaWidth et WorkAreaHeight pour
définir
la taille de ma form à l'ouverture, j'ai constaté que s'il y a des
ascenseurs dans la page html, ceux ci ne s'affichent pas totalement
(voire même, pour l'ascenseur horizontal, il est totalement escamoté
il y a manifestement un truc que je dois pas bien capter ou utiliser
je précise que même si je passe la propriété de la form à maximized,
le problème reste le même ...
merci de votre aide ....



euh ... pour dire les choses autrement, comment pourrais je faire pour
adapter la taille de mon contrôle webbrowser à la taille de ma page, quelle
que soit celle ci ?

ou encore, comment détecter la présence d'une barre d'outils (horizontale ou
verticale) et trouver son épaisseur ?

merci de toute aide ...


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
Patrice Henrio
Peut-être en récupérant la taille de la page et en définissant la tailledu
WB à partir de celle-ci.
Je te file le code que j'utilise dans le prog Histoire pour cela

Private Sub Form_Resize()
'Hauteur et largeur de l'intérieur de la forme.
Dim HauteurUtile As Integer, LargeurUtile As Integer

'Hauteur et largeur de l'intérieur de la forme.
HauteurUtile = Me.ScaleHeight
LargeurUtile = Me.ScaleWidth
HauteurControle = 283 / Screen.TwipsPerPixelY
'283 / Screen.TwipsPerPixelY correspond à 5 mm en hauteur quelque soit la
résolution et l'écran

'La carte est un carré dont le côté vaut au moins 75% de la largeur ou la
hauteur - 4 hauteurs de controle.
'Juste sous la carte on a le HScrollBar qui permet de se déplacer en
longitude
'Le contrôle du dessous est le slider des dates
'Sous ce contrôle se trouvent les labels repérant les dates
If HauteurUtile < 5 * HauteurControle Then Exit Sub

If (HauteurUtile - 3.8 * HauteurControle <= LargeurUtile * 0.75) Then
Hauteur = HauteurUtile - 3.8 * HauteurControle
Else
Hauteur = LargeurUtile * 0.75
End If

'.../...
'Modification du WebBrowser Histoire
With Me.WBHistoire
.Width = (Me.ScaleWidth - Me.Carte.Width - HauteurControle)
.Height = Hauteur + HauteurControle
.Top = 0
.Left = Me.Carte.Width + HauteurControle
End With
PositionnerLeWebBrowser

'Modification de la forme et du WebBrowser Dynasties
With FormeDynasties
.Left = (Me.ScaleWidth / 4) * Screen.TwipsPerPixelX
.Top = (Me.ScaleHeight / 4) * Screen.TwipsPerPixelY
.Height = 2 * .Top
.Width = 2 * .Left
End With

End Sub

"scraper" a écrit dans le message de news:
OOEblFu$
Re bonjour à tous !

je veux afficher une page html en local au moyen d'un contrôle
webBrowser
jusque là, pas de souci
mais malgré le fait d'avoir inséré le composant sysinfo1 sur ma form,
et d'utiliser ses propriétés WorkAreaWidth et WorkAreaHeight pour
définir
la taille de ma form à l'ouverture, j'ai constaté que s'il y a des
ascenseurs dans la page html, ceux ci ne s'affichent pas totalement
(voire même, pour l'ascenseur horizontal, il est totalement escamoté
il y a manifestement un truc que je dois pas bien capter ou utiliser
je précise que même si je passe la propriété de la form à maximized,
le problème reste le même ...
merci de votre aide ....



euh ... pour dire les choses autrement, comment pourrais je faire pour
adapter la taille de mon contrôle webbrowser à la taille de ma page,
quelle
que soit celle ci ?

ou encore, comment détecter la présence d'une barre d'outils (horizontale
ou
verticale) et trouver son épaisseur ?

merci de toute aide ...


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper




Avatar
scraper
Bonjour Patrice Henrio
(dans news:OAxnxo0$)
tu nous disais :

tout d'abord, merci de ta réponse ... :-)

Peut-être en récupérant la taille de la page et en définissant la
tailledu WB à partir de celle-ci.
Je te file le code que j'utilise dans le prog Histoire pour cela

Private Sub Form_Resize()
'Hauteur et largeur de l'intérieur de la forme.
Dim HauteurUtile As Integer, LargeurUtile As Integer

'Hauteur et largeur de l'intérieur de la forme.
HauteurUtile = Me.ScaleHeight
LargeurUtile = Me.ScaleWidth
HauteurControle = 283 / Screen.TwipsPerPixelY
'283 / Screen.TwipsPerPixelY correspond à 5 mm en hauteur quelque
soit la résolution et l'écran




je suppose que tu définis HauteurContrôle par rapport à ta scrollbar et au
slider, c'est ça ??
j'ai un peu de mal à capter ton code, je dois dire ... :-(
mais j'ai tilté sur Me.ScaleWidh et Me.ScaleHeight ... :o)

jusque là, empiriquement, je retranchais une valeur arbitraire à la largeur
et hauteur de la page, pour pouvoir afficher les ascenseurs dans mon
webBrowser ...
mais en utilisant ces propriétés de la form, ça baigne !

voici ce que j'ai fait finalement (et qui fonctionne quelle que soit la
position ou la taille de la barre d'outils, verticale ou horizontale, simple
ou double, et la taille de la page, maximisée ou réduite ...)

Private Sub Form_Load()

Me.Width = SysInfo1.WorkAreaWidth
Me.Height = SysInfo1.WorkAreaHeight
Me.Top = 0
Me.Left = 0

End Sub

Private Sub Form_Resize()

WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight

'Limite la taille du contrôle aux dimensions de l'écran
'(A la réflexion et après essais, ceci ne me semble plus indispensable !!)
If WebBrowser1.Width > SysInfo1.WorkAreaWidth Then WebBrowser1.Width SysInfo1.WorkAreaWidth
If WebBrowser1.Height > SysInfo1.WorkAreaHeight Then WebBrowser1.Height SysInfo1.WorkAreaHeight

End Sub


donc, ça a l'air de fonctionner plutôt pas mal ;-)
merci ....

au fait, ch'tite question, pour ma culture G :
dans l'explorateur d'objets, il est dit de ScaleHeight, par exemple :

Renvoie ou définit le nombre d'unités de mesure verticales d'un objet.









bon ...
donc, Me.ScaleHeight définit la taille de ma form à l'écran ?
je n'ai plus besoin du contrôle sysInfo, alors ?

j'avoue que tout ceci est assez nébuleux ...

merci d'avance si tu (ou quelqu'un ?) peux éclaircir ce point aussi lol





--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
Patrice Henrio
Je n'utilise pas le truc dont tu parles (sysinfo)

"scraper" a écrit dans le message de news:
uFhCtQ7$
Bonjour Patrice Henrio
(dans news:OAxnxo0$)
tu nous disais :

tout d'abord, merci de ta réponse ... :-)

Peut-être en récupérant la taille de la page et en définissant la
tailledu WB à partir de celle-ci.
Je te file le code que j'utilise dans le prog Histoire pour cela

Private Sub Form_Resize()
'Hauteur et largeur de l'intérieur de la forme.
Dim HauteurUtile As Integer, LargeurUtile As Integer

'Hauteur et largeur de l'intérieur de la forme.
HauteurUtile = Me.ScaleHeight
LargeurUtile = Me.ScaleWidth
HauteurControle = 283 / Screen.TwipsPerPixelY
'283 / Screen.TwipsPerPixelY correspond à 5 mm en hauteur quelque
soit la résolution et l'écran




je suppose que tu définis HauteurContrôle par rapport à ta scrollbar et au
slider, c'est ça ??
j'ai un peu de mal à capter ton code, je dois dire ... :-(
mais j'ai tilté sur Me.ScaleWidh et Me.ScaleHeight ... :o)

jusque là, empiriquement, je retranchais une valeur arbitraire à la
largeur
et hauteur de la page, pour pouvoir afficher les ascenseurs dans mon
webBrowser ...
mais en utilisant ces propriétés de la form, ça baigne !

voici ce que j'ai fait finalement (et qui fonctionne quelle que soit la
position ou la taille de la barre d'outils, verticale ou horizontale,
simple
ou double, et la taille de la page, maximisée ou réduite ...)

Private Sub Form_Load()

Me.Width = SysInfo1.WorkAreaWidth
Me.Height = SysInfo1.WorkAreaHeight
Me.Top = 0
Me.Left = 0

End Sub

Private Sub Form_Resize()

WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight

'Limite la taille du contrôle aux dimensions de l'écran
'(A la réflexion et après essais, ceci ne me semble plus indispensable !!)
If WebBrowser1.Width > SysInfo1.WorkAreaWidth Then WebBrowser1.Width > SysInfo1.WorkAreaWidth
If WebBrowser1.Height > SysInfo1.WorkAreaHeight Then WebBrowser1.Height > SysInfo1.WorkAreaHeight

End Sub


donc, ça a l'air de fonctionner plutôt pas mal ;-)
merci ....

au fait, ch'tite question, pour ma culture G :
dans l'explorateur d'objets, il est dit de ScaleHeight, par exemple :

Renvoie ou définit le nombre d'unités de mesure verticales d'un objet.









bon ...
donc, Me.ScaleHeight définit la taille de ma form à l'écran ?
je n'ai plus besoin du contrôle sysInfo, alors ?

j'avoue que tout ceci est assez nébuleux ...

merci d'avance si tu (ou quelqu'un ?) peux éclaircir ce point aussi lol





--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper




Avatar
Patrice Henrio
Bis
J'ai laissé le "HauteurControle", qui effectivement ne sert pas ici, juste
parce qu'il peut être utile d'avoir une hauteur donnée quelle que soit la
hauteur de l'écran (ici 5mm)
Tu as bien supposé pour la hauteur du scrollbar et du slider.

par contre, plutôt que d'utiliser SysInfo1 dans FormLaod, pourquoi ne pas
utiliser windowsState=2 (utlistaion d etout l'écran).

"scraper" a écrit dans le message de news:
uFhCtQ7$
Bonjour Patrice Henrio
(dans news:OAxnxo0$)
tu nous disais :

tout d'abord, merci de ta réponse ... :-)

Peut-être en récupérant la taille de la page et en définissant la
tailledu WB à partir de celle-ci.
Je te file le code que j'utilise dans le prog Histoire pour cela

Private Sub Form_Resize()
'Hauteur et largeur de l'intérieur de la forme.
Dim HauteurUtile As Integer, LargeurUtile As Integer

'Hauteur et largeur de l'intérieur de la forme.
HauteurUtile = Me.ScaleHeight
LargeurUtile = Me.ScaleWidth
HauteurControle = 283 / Screen.TwipsPerPixelY
'283 / Screen.TwipsPerPixelY correspond à 5 mm en hauteur quelque
soit la résolution et l'écran




je suppose que tu définis HauteurContrôle par rapport à ta scrollbar et au
slider, c'est ça ??
j'ai un peu de mal à capter ton code, je dois dire ... :-(
mais j'ai tilté sur Me.ScaleWidh et Me.ScaleHeight ... :o)

jusque là, empiriquement, je retranchais une valeur arbitraire à la
largeur
et hauteur de la page, pour pouvoir afficher les ascenseurs dans mon
webBrowser ...
mais en utilisant ces propriétés de la form, ça baigne !

voici ce que j'ai fait finalement (et qui fonctionne quelle que soit la
position ou la taille de la barre d'outils, verticale ou horizontale,
simple
ou double, et la taille de la page, maximisée ou réduite ...)

Private Sub Form_Load()

Me.Width = SysInfo1.WorkAreaWidth
Me.Height = SysInfo1.WorkAreaHeight
Me.Top = 0
Me.Left = 0

End Sub

Private Sub Form_Resize()

WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight

'Limite la taille du contrôle aux dimensions de l'écran
'(A la réflexion et après essais, ceci ne me semble plus indispensable !!)
If WebBrowser1.Width > SysInfo1.WorkAreaWidth Then WebBrowser1.Width > SysInfo1.WorkAreaWidth
If WebBrowser1.Height > SysInfo1.WorkAreaHeight Then WebBrowser1.Height > SysInfo1.WorkAreaHeight

End Sub


donc, ça a l'air de fonctionner plutôt pas mal ;-)
merci ....

au fait, ch'tite question, pour ma culture G :
dans l'explorateur d'objets, il est dit de ScaleHeight, par exemple :

Renvoie ou définit le nombre d'unités de mesure verticales d'un objet.









bon ...
donc, Me.ScaleHeight définit la taille de ma form à l'écran ?
je n'ai plus besoin du contrôle sysInfo, alors ?

j'avoue que tout ceci est assez nébuleux ...

merci d'avance si tu (ou quelqu'un ?) peux éclaircir ce point aussi lol





--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper




Avatar
scraper
Bonjour Patrice Henrio
(dans news:)
tu nous disais :

Bis
J'ai laissé le "HauteurControle", qui effectivement ne sert pas ici,
juste parce qu'il peut être utile d'avoir une hauteur donnée quelle
que soit la hauteur de l'écran (ici 5mm)
Tu as bien supposé pour la hauteur du scrollbar et du slider.

par contre, plutôt que d'utiliser SysInfo1 dans FormLaod, pourquoi ne
pas utiliser windowsState=2 (utlistaion d etout l'écran).



oui, finalement, c'est ce que j'ai fait !

j'ai viré ce sysinfo et j'ai affiché en maximisé au démarrage !

ça roule !

merci



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper