CREATION DE CONTROLS DYNAMIQUE + DEPLACEMENT ET REDIMENTION POUR L'USER

Messages postés
735
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
- - Dernière réponse : nicolasq150784
Messages postés
51
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
23 avril 2010
- 26 mars 2010 à 13:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51188-creation-de-controls-dynamique-deplacement-et-redimention-pour-l-user

Afficher la suite 
elguevel
Messages postés
735
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3 -
Salut,

Je n'ai pas encore telechargé ta source, mais juste en voyant le code, quelques remarques :

- Evite dans une classe de declarer tes variables (attributs) avec des "Dim" qui sont reservés aux declarations locales (function/sub/...), utilise plutot Private/Public/Friend/Protected.


- C'est une question de gout mais je n'aime pas trop voir çà :
Dim i, cx, cy, tx, ty As Integer : tx 70 : ty 100 : cx = 50 : cy = 50

J'aurai preferé :

Dim cx As Integer = 50
Dim cy As Integer = 50
Dim tx As Integer = 70
Dim ty As Integer = 100

C'est plus lisible non ?

- Idem pour :

Dim i [...] As Integer
For i = 1 To 3

Tu peux faire :
Dim i As Integer = 1 To 3


Après c'est du pinaillage :
- "cx = cx + tx + 10" --> "cx += tx + 10"
- "If deplace = True Then" --> "If Deplace Then"
etc...

Sinon à part çà c'est simple et commenté, continues comme çà ;-)
Adn56
Messages postés
1220
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1 -
Et le with comme dirais PCPT ^^
With CtrlRtb
25. 'son nom
26. .Name = "Rtb_" & (numcase + 1)
27. 'sa taille
28. .Size = New System.Drawing.Size(taillex, tailley)
29. 'sa position sur la form
30. .Location = New System.Drawing.Point(xcb, ycb)
31. 'multiligne = oui
32. .Multiline = True
33. 'visible=oui
34. .Visible = True
35. 'pas de bordure
36. .BorderStyle = BorderStyle.None
end with
Salut
tresorsdevie
Messages postés
135
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
20 juillet 2013
-
merci pour ces remarques instructives, j'en prend bonne note!
nicolasq150784
Messages postés
51
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
23 avril 2010
-
Salut
merci pour cette source qui est vraiment SUPER
bien expliqué clair en bien quoi....

moi je voudrais savoir si vous pouviez fournir un code qui permet d'enregister les positions

Merci beaucoup d'avance :)
tresorsdevie
Messages postés
135
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
20 juillet 2013
-
salut , il est tres facile d'enregistrer les positions dans un fichier ini genre

[NOMDUCONTROLE1]
posX=
posY=
TailleX=
TailleY=

[NOMDUCONTROLE2]
posX=
posY=
TailleX=
TailleY=

etc...

tu trouvera sur ce site plusieurs sources pour les fichiers ini
sinon en .net ici : http://tresorsdevie.free.fr/selkis/index.php?option=com_content&view=article&id=111&Itemid=117

a++