Prob d'optimisation de code

Question

J'ai générer du code VB6 qui me permet de supprimer les données contenu dans des zones de saisies. Malheureusement, ce code est utilisé par plusieurs feuilles de mon projet. J'ai essayé de créer une fonction Public sub Suppression() contenant le code, mais il ne s'applique qu'à une seul des feuilles qd je l'appel avec la méthode call Suppression. Voici le code en question : If txtSaisieAnus.Text <> "" Then ' Si il y a un nombre dans la zone de saisie txtSaisieAnus.Text = "0" ' alors on l'efface et lui donne la valeur 0 Else ' Si il n'y a pas de nombre txtSaisieAnus.Text = "0" ' on met 0 End If If txtSaisieOesophage.Text <> "" Then txtSaisieOesophage.Text = "0" Else txtSaisieOesophage.Text = "0" End If If txtSaisiePexcréteur.Text <> "" Then txtSaisiePexcréteur.Text = "0" Else txtSaisiePexcréteur.Text = "0" End If Pour les autres feuilles, il y a un prob avec txtSaisieOesophage.Text par ex alors que ce sont les mêmes zones de saisies quelque soit la feuille. Il n'y a que les noms des feuilles qui changent !! J'espère que vous pourrez m'aider rapidement !! BlackMan

cs_steppenwolf · Answer

Salut !

Pour ton pb de proc&#233;dure, j'y ai pas encore assez r&#233;fl&#233;chi, par contre, tes it&#233;rations IF ne servent &#224; rien car qu'il y ait qqch ou pas dans les textbox, tu met 0.


Donc il suffirait d'&#233;crire :


txtSaisieAnus.Text = "0"
txtSaisieOesophage.Text = "0"
txtSaisiePexcr&#233;teur.Text = "0"

A+

gallyhc · Answer

Bonjour, Voici le code de ta sub public pour toute les form. Public Sub setTextDelete(ByRef txtTextBox1 As TextBox, ByRef txtTextBox2 As TextBox, ByRef txtTextBox3 As TextBox) If txtTextBox1.Text <> vbNullString Then ' Si il y a un nombre dans la zone de saisie txtTextBox1.Text = "0" ' alors on l'efface et lui donne la valeur 0 Else ' Si il n'y a pas de nombre txtTextBox1.Text = "0" ' on met 0 End If If txtTextBox2.Text <> vbNullString Then txtTextBox2.Text = "0" Else txtTextBox2.Text = "0" End If If txtTextBox3.Text <> vbNullString Then txtTextBox3.Text = "0" Else txtTextBox3.Text = "0" End If End Sub Maintenant pour que cela fonctionne a l'action de la verification tu fait en partant du principe que tes 3 textbox ce nomme "text1", "text2" et "text3". Call setTextDelete(Text1, Text2, Text3) Et enfin si tu veux le faire d'une form differente tu fais Call setTextDelete(nomdelaform.Text1, nomdelaform.Text2, nomdelaform.Text3) J'espere que cela va te rendre service @++ [Gally Home Corp]

Prob d'optimisation de code

2 réponses

Discussions similaires