pb avec resize

Question

voila j'utilise ce code mais il ne fonctionne plus.
je ne c pas comment cela ce fait car mon prog n'a pas changer

Private Sub Form_Load()
OldWidth = Width
OldHeight = Height
End Sub

Private Sub Form_Resize()
On Error Resume Next
Dim XCoeff As Single
Dim YCoeff As Single
Dim Controle As Control
XCoeff = Width / OldWidth
YCoeff = Height / OldHeight
For Each Controle In Me
Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Widht * XCoeff, Controle.Height * YCoeff

Next
OldWidth = Width
OldHeight = Height
End Sub

capoueidiablo · Answer

Salut,Vérifie bien que OldWidth Width et OldHeight Height sont bien déclaré en public car sinon tu ne peux pas y faire référence dans ton resize.

je pence que ton next est inutile en effet ce n'est meme pas un label puisqu'il manque les ":" , de plus quand tu utilise "On Error Resume Next" je crois qu'il est inutile de créer un fonction "Next" signifiant que tu passe a l'instruction suivante. Si tu dois obligatoirement avoir : 
OldWidth = Width
OldHeight = Height

alors essaille ca :

Private Sub Form_Resize()
On Error Goto Erreur
dim XCoeff ....
....
....

Erreur:
OldWidth = Width
OldHeight = Height
End Sub
--Capoueidiablo--

cs_lu6fer · Answer

le resultat et tjs le meme c'est a dire que les bouton  de ma form ne s'agrandisse pas avec le changement de taille de ma form

econs · Answer

Commence par commenter ton 
On error Resume Next

Tu verras de quelle type d'erreur il s'agit.

Déjà, il faut que oldWidth et oldHeight soit définis en global sur ta feuille. ( Ca évite les divisions par zéro).

Ensuite, ... ben je cherche parce qu'il y en encore quelque chose qui cloche !

:o)

Manu

econs · Answer

G TROUVE !!!

Private Sub Form_Resize()
'On Error Resume Next <-- commenté
Dim XCoeff As Single
Dim YCoeff As Single
Dim Controle As Control

XCoeff = Width / oldWidth
YCoeff = Height / oldHeight
For Each Ctr In Form1.Controls
Ctr.Move Ctr.Left * XCoeff, Ctr.Top * YCoeff, Ctr.Width * XCoeff, Ctr.Height * YCoeff

Next
oldWidth = Width
oldHeight = Height
'Form1.Refresh
End Sub

Tu avais mal écrit le Width, et le 'on error resume' te shuntait l'erreur
Manu

capoueidiablo · Answer

Si c'est juste les boutons que tu veux resize, met :
For Each Button In Me
'Inutile de déclarer Button vue que VB le reconnais
--Capoueidiablo--

cs_lu6fer · Answer

non il n'y a pas que les bouton.
sinon ben malger cette grosse erreur d'etourderi le probleme et toujours la. et pour commenter on error resume next
je ne voi pas ce que tu veu dire

econs · Answer

Le code suivant fonctionne très bien chez moi. Il suffisait de changer l'orthographe du mot "Width".



Public oldWidth As Long
Public oldHeight As Long

Private Sub Form_Load()
oldWidth = Width
oldHeight = Height
End Sub

Private Sub Form_Resize()
On Error Resume Next
Dim XCoeff As Single
Dim YCoeff As Single
Dim Controle As Control
XCoeff = Width / oldWidth
YCoeff = Height / oldHeight
For Each Controle In Me
Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height * YCoeff

Next
oldWidth = Width
oldHeight = Height
End Sub



Quant à commenter le 'On error resume', c'était juste un conseil pour repérer plus rapidement d'où vient ton erreur.
Manu

Pb avec resize

7 réponses

Discussions similaires