Comprendre ce code

Signaler
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010
-
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
-
Salut je veux comprendre ce code c'est pour le chargement d'une form
If pgr.Width <= taille.Width Then
pgr.Width = pgr.Width + 50
Else
Timer1.Interval = 0

Form3.Show
Unload Me

4 réponses

Messages postés
326
Date d'inscription
vendredi 23 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
14
Ca va être dur de t'expliquer sans savoir ce que sont pgr et taille.


---
mon blog
Généralement le bug se situe entre le clavier et la chaise.
Le temps est une "chose" introuvable dont l'existence ne fait aucun doute.
Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010

salut marwakarim

c'est une abréviation de programme
Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010

je crois que c'est le nom de la "form"
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonjour,

marwakarim, tu as surement couper un peu trop de chose du code... enfin je vais de traduire les lignes :

pgr.width => fait référence à la largeur (en pixel) d'un objet (un objet c'est par exemple une Form)
Taille.width => idem, mais sur l'objet nommé Taille

donc :

If pgr.Width <= taille.Width Then '=> SI la largeur de "prg" est plus petite ou égale à la largeur de "taille" ALORS

pgr.Width = pgr.Width + 50 '=> Ajoute 50 à la largeur de "pgr"

Else '=> SINON

Timer1.Interval = 0 '=> met l'interval du Timer à zéro, donc hors service !

Form3.Show '=> Charge en mémoire la Form3 et l'affiche

Unload Me '=> décharge la Form où ce code est appelé


Il manque un END IF quelque part. De plus, on voit pas très bien ce que fait là le Timer (peut-être pour une amination ?)

Amicalement,
Us.