pb de resize

Question

dans mon code j'utilise un code d'ajustement des bouton en fonction de la taille de la form mais il ce trouve qu'il ne marche pas, il marcher tres bien il n'y a pas si long temps tou a coup il ne marche plus sniff :sad)  donc si vouyer quel que chose...


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

cs_DARKSIDIOUS · Answer

Tout dépend de la portée de tes variables : si elles ne sont pas globales à ton projet, c'est normal qu'il ne reconnaisse pas leurs valeurs.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_lu6fer · Answer

si si en fin je croi kel sont global comme je ne suis pas tres sure comme je ne suis pas vraiment douée en vb ca fait 1 mois que j'en fait 

si tu me parle des variables telle que 
option explicit
dim oldWith as integer
dim oldHeight as integer 
alors c comme ca
 :big)  g vraiment l'air con la lol

Pb de resize

2 réponses

Discussions similaires