Sujet Précédent Sujet Suivant

VBA Access WebBrowser

Fermé
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 - 31 juil. 2008 à 23:47
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 - 1 août 2008 à 03:05
Bonjour à tous,
j'ai un petit problème en VBA Access :
J'ai ajouté un controle WebBrowser. Or j'ai besoin de le redimensionner dynamiquement...
Donc j'ai ajouté ce code :
WebB1.Width = CInt(Form.WindowWidth / 2)
WebB1.Height = CInt(Form.WindowHeight / 2)
WebB1.Top = 0
WebB1.Left = 0

Le problème que j'ai, c'est que la largeur est bien redimensionnée (Width) mais pas la hauteur (Height).
Quand je fais un parcours pas-à-pas, je vois que la propriété Height de mon control est inchangée... elle garde la même valeur avant et après la ligne : WebB1.Height = CInt(Form.WindowHeight / 2)

Quelqu'un pourrait-il m'expliquer pourquoi et ce que je dois faire parce que je ne comprend vraiment pas... :-/

Merci d'avance :o)

4 réponses

Réponse 1 / 4
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
1 août 2008 à 02:00
salut,
dans la zonz code de la feuille ajouter c'est deux lignes
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
0
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 401
1 août 2008 à 02:23
Hello
merci pour l'info. Je vois plus ou moins comment fonctionnent ces deux api, mais je ne vois pas comment les utiliser pour redimensionner mon WebBrowser... :-/
0
Réponse 2 / 4
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
1 août 2008 à 02:29
seulement vous les collez dans zon généraral du code feuille
0
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 401
1 août 2008 à 02:31
Je l'ai fait mais ça n'a rien changé du tout :-/
0
Réponse 3 / 4
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 401
1 août 2008 à 02:37
En fait, ce n'est pas vraiment le Height qui pose problème.
Si je redimentionne la hauteur puis la largeur, la hauteur sera changée mais pas la largeur.
Si je redimentionne la largeur puis la hauteur, la largeur sera changée mais pas la hauteur.
Donc à chaque fois le premier marche mais pas le second...
0
Réponse 4 / 4
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
1 août 2008 à 02:45
je vous donne un exemple pour simplifier trop de discution
tu crées un projet puis t'insère 3 boutton de command
et tu colles cequi suit dans la zone code de la feuille:

rivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Command2_Click()
Dim hr&, dl&
Dim usew&, useh&
usew& = Command1.Width / Screen.TwipsPerPixelX
useh& = Command1.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Command1.hWnd, hr, True)
End Sub
Private Sub Command3_Click()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub
0
BloodyAngel Messages postés 1479 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 401
1 août 2008 à 03:05
sorry mais je ne pense pas que ce soit ça que je cherche
je cherche à redimensionner un controle Webbrowser, pas la page entière...
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Exemple de base de données access
Abdlahsaki -
Fleptche -

9 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses