[VB] Commant centrer une boite webbrowser dans une form -> help needed

Recherche :

Dernière réponse
Sujet : [VB] Commant centrer une boite webbrowser dans une form -> help needed
william10	Voici ce kil faut metre, ça peut servir ! et surtout un grand merci @ "harkonnen" Dim diffWeb As Integer ' représente la différence entre la hauteur de la Form et la hauteur du WebBrowser Dim diffText As Integer ' représente la différence entre la largeur de la Form et la largeur du TextBox Dim diffBouton As Integer ' représente l'écart entre la zone de texte et le bouton Private Sub Command5_Click() Dim adresse As String adresse = Text1.Text web.Navigate (adresse) End Sub Private Sub Form_Load() web.Navigate ("www.free.fr" ) Command5.Default = True Me.ScaleMode = vbTwips diffWeb = Me.ScaleHeight - web.Height ' on stocke la différence de hauteur entre la Form et le WebBrowser diffText = Me.ScaleWidth - Text1.Width ' on stocke la différence de largeur entre la Form et le TextBox diffBouton = Command5.Left - Text1.Width ' on stocke l'écart entre la zone de texte et le bouton End Sub Private Sub Form_Resize() web.Width = Me.ScaleWidth ' la largeur du WebBrowser est toujours égale à la largeur de la Form web.Height = Me.ScaleHeight - diffWeb ' la hauteur du WebBrowser est égale à celle de la Form - la différence Text1.Width = Me.ScaleWidth - diffText ' la largeur du TextBox est égale à celle de la Form - la différence Command5.Left = Text1.Width + diffBouton ' on positionne le bouton après le TextBox + l'écart initial End Sub

Dernière réponse

Sujet : [VB] Commant centrer une boite webbrowser dans une form -> help needed

william10

Voici ce kil faut metre, ça peut servir ! et surtout un grand merci @ "harkonnen"

Dim diffWeb As Integer ' représente la différence entre la hauteur de la Form et la hauteur du WebBrowser
Dim diffText As Integer ' représente la différence entre la largeur de la Form et la largeur du TextBox
Dim diffBouton As Integer ' représente l'écart entre la zone de texte et le bouton

Private Sub Command5_Click()
Dim adresse As String
adresse = Text1.Text
web.Navigate (adresse)
End Sub

Private Sub Form_Load()
web.Navigate ("www.free.fr" )
Command5.Default = True
Me.ScaleMode = vbTwips
diffWeb = Me.ScaleHeight - web.Height ' on stocke la différence de hauteur entre la Form et le WebBrowser
diffText = Me.ScaleWidth - Text1.Width ' on stocke la différence de largeur entre la Form et le TextBox
diffBouton = Command5.Left - Text1.Width ' on stocke l'écart entre la zone de texte et le bouton
End Sub

Private Sub Form_Resize()
web.Width = Me.ScaleWidth ' la largeur du WebBrowser est toujours égale à la largeur de la Form
web.Height = Me.ScaleHeight - diffWeb ' la hauteur du WebBrowser est égale à celle de la Form - la différence
Text1.Width = Me.ScaleWidth - diffText ' la largeur du TextBox est égale à celle de la Form - la différence
Command5.Left = Text1.Width + diffBouton ' on positionne le bouton après le TextBox + l'écart initial
End Sub

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

william10

ya un truc que je comprends pas, je t'ai envoyé un mail sur ta boite chez free...

++

Harkonnen

Si, à l'instant :D

Ceci devrait te combler de bonheur :

Code :

Dim ratioForm As Single
Dim WebX As Integer
Dim WebY As Integer
Private Sub Form_Load()
web.Top = (Me.Height - web.Height) / 2
web.Left = (Me.Width - web.Width) / 2
WebX = web.Width
WebY = web.Height
End Sub
Private Sub Form_Resize()
ratioForm = Me.Width / Me.Height
web.Width = WebY * ratioForm
web.Height = WebX * (1 / ratioForm)
web.Top = (Me.Height - web.Height) / 2
web.Left = (Me.Width - web.Width) / 2
WebX = web.Width
WebY = web.Height
End Sub

Plus de ";", je pense que ça devrait passer à la compilation :lol:

A+ :hello:

[jfdsdjhfuetppo]--Message édité par Harkonnen le 01-06-2002 à 18:14:48--[/jfdsdjhfuetppo]

william10

Harkonnen t pas encore arrivé sur le forum ;) ?

william10

sans les ";" ça marche :)

mais le problème est que en fait ceci recentre la case web quelque soit la taille de la form.

moi ce que je voulais c'est réduire la boite web autant que se réduit la form.
Dis moi le si je suis pas asser clair

si je réduis la form de 150 pixels vers la gauche j'aimerai qu'automatiquement la boite web fasse pareil, c.a.d qu'elle se réduise de 150 pixels vers la gauche aussi.

J'attends ta réponse ;)

Harkonnen

oups :ouch:

euh... oui, je me suis gentiment loupé sur ce coup :lol:
a quand un VB avec les ";" obligatoires en fin de ligne ? :D

william10

je te rappelle a l'ordre:

web.Top = (Me.Height - web.Height) / 2;
web.Left = (Me.Width - web.Width) / 2;

ya une érreur, c'est une erreur de compiltion causé pas le ";"

Normal ??

t'auré pas fait un mix de visual et c :) ?

[jfdsdjhfuetppo]--Message édité par william10 le 01-06-2002 à 16:23:55--[/jfdsdjhfuetppo]

Harkonnen

Si ça continue, je vais finir par passer pour le spécialiste du VB dans ce forum, ce qui va nuire à ma réputation, surtout que ça fait 4 ans que j'ai plus fait de VB :lol: Mais c'est vrai qu'avant j'en faisais 8h/j, c'est comme le vélo, ça s'oublie pas :D

Pour centrer ton WebBrowser au démarrage de ton appli (ID = web dans mon exemple) :

Code :

Private Sub Form_Load()
web.Top = (Me.Height - web.Height) / 2;
web.Left = (Me.Width - web.Width) / 2;
End Sub

Et pour resizer automatiquement ton WebBrowser en fonction de la taille de la fenêtre, c'est exactement le même code, sauf qu'au lieu de le mettre dans le Form_Load(), tu le mets dans le Form_Resize()
Le mieux est de mettre ce code dans un module et de l'appeler dans le Form_Load() et dans le Form_Resize()

A+ :hello:

william10

1) je voudrais centrer une boite webborwser dans une form automatiquement quelque soit la taille de celle-ci.

2) Est-ce possible de réduire la taille de la boite webbrowser proportionellement a la taille de la form. C.a.d que si je réduis ma fenetre ou se trouve la boite web, celle-ci se réduit aussi proportionellement a la réduction de la form.
En gros si je réduit ma form de 100 pixel vers la gauche, je vouadrais que automatiquement ma boite webbrowser se réduisse de 50pixels vers la gauche.

merci pour tout votre aide (Harkonnen je t'attends :)