Remettre le tout a neuf

Question

Pouvez-vous me dire de quel façon, lors du click d'un bouton par exemple, que chaque objet de la feuille revenienne a sa situation initiale?

Je sait que je doit utiliser un For Each mais c'est tout.

P.S: J'utilise Visual Basic 6.0

Merci d'avance!!!

DeAtHCrAsH · Answer

Qu'est ce que t appel sa situation initial?

cs_Ghis · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

Qu'est ce que t appel sa situation initial?

-------------------------------
 Réponse au message :		  
-------------------------------

Pouvez-vous me dire de quel façon, lors du click d'un bouton par exemple, que chaque objet de la feuille revenienne a sa situation initiale?

Je sait que je doit utiliser un For Each mais c'est tout.

P.S: J'utilise Visual Basic 6.0

Merci d'avance!!!

cs_Ghis · Answer

Par exemple, remettre les TextBox et les MaskEdit vide, changer le caption du mon label de titre ainsi que le logo initiale, cocher les boutons d'options et les case a cocher comme au Form_Load etc...

DeAtHCrAsH · Answer

Je vois pas une autre solution que de faire a la maniere longue soit :
Label1.caption = ""
text1.text = ""
....
et ainsi de suite ..
Tu liste tous tes controles en leur changeant leur propriété selon ta guise

celiphane · Answer

Non non non : il y a un truc vrmt clean à faire, pour vrmt faire un "reset" :

1) tu créés un module
2) tu mets dedans la sub :


public sub Reset(feuille as form)
  unload feuille
  feuille.show
end sub


3) tu mets "reset me" dans ton code de bouton !

Et voilà le reset P A R F A I T !!! :D
@+ et merci de me dire si ça convient ! salut !

cs_Ghis · Answer

Je sait que sa fonctionne mais est-ce efficace? Tout les contrôles de la feuilles doivent être mit en mémoire et tout :S... mais c'est vrai que c'est vraiment plus simple ainsi... Y a t'il un moyen pour contourner le scintillement de la feuille? Entre le Unload et le Show, il y a une translucidité qui se fait a l'image, je sait que c'est à cause de la mémoire mais il doit avoir un moyen de contourner le tout...

cs_Ghis · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

Non non non : il y a un truc vrmt clean à faire, pour vrmt faire un "reset" :

1) tu créés un module
2) tu mets dedans la sub :


public sub Reset(feuille as form)
  unload feuille
  feuille.show
end sub


3) tu mets "reset me" dans ton code de bouton !

Et voilà le reset P A R F A I T !!! :D
@+ et merci de me dire si ça convient ! salut !

-------------------------------
 Réponse au message :		  
-------------------------------

-------------------------------
 Réponse au message :		  
-------------------------------

Qu'est ce que t appel sa situation initial?

-------------------------------
 Réponse au message :		  
-------------------------------

Pouvez-vous me dire de quel façon, lors du click d'un bouton par exemple, que chaque objet de la feuille revenienne a sa situation initiale?

Je sait que je doit utiliser un For Each mais c'est tout.

P.S: J'utilise Visual Basic 6.0

Merci d'avance!!!

cs_pheno · Answer

salut 
Sub viderchamps()
'declaration de 2 variables de type control
Dim txt, lbl As Control
'Pour chaque controle du formulaire
For Each txt In Controls
'Si le type du controle est une textbox alors  on la vide
If TypeOf txt Is TextBox Then
    txt.Value = ""
End If
Next txt
'Pour chaque controle du formulaire
For Each lbl In Controls
'si le type du controle est une zone de liste modifiable alors on l initialise a sa valeur par
'defaut
If TypeOf lbl Is ComboBox Then
    lbl = -1
End If
Next lbl
End Sub

Chevalier Pheno Starboard, membre de la Freeman-Corp

celiphane · Answer

Ghis,  je ne comprend pas où est le pb.
Cette méthode est la plus clean qui soit, rapide, et remet exactement tout en place, que ce soit les propriétés des controles ou de la fenêtre, mm les positions sont réinitialisés !
Maintenant, qd tu parles de scintillement, je ne vois pas du quel tu parles, tout depend de l'appli que tu fais !
bonne chance qd mm !

Remettre le tout a neuf

9 réponses

Discussions similaires