Discussion :

[jyves47]

Bonjour,

Alors voila je m'explique, je travail avec ASP.NET / VB.NET, et j'ai un formulaire d'inscription avec deux boutons :

• RESET
• ENVOYER

Ce que j'aimerai c'est que quand je clic sur le bouton ENVOYER à la fin ça exécute le code du bouton RESET.

Cela m'éviterai de recopier le code du bouton RESET dans le code du bouton ENVOYER et le surcharger

Merci

[katkiller]

Hello

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
protected void btReset_Click(object sender, EventArgs e)
{
      //code
      CodeCommun();
}
protected void btEnvoyer_Click(object sender, EventArgs e)
{
      //code
      CodeCommun();
}
private void CodeCommun()
{
      //code
}

[jyves47]

Merci de ta réponse rapide mais je ne comprend pas ce que tu veux me dire, et je précise bien que je suis en VB.NET et pas en C#

Pour aider je vais poster le code de mes boutons :

• RESET

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Protected Sub Button2_Click(sender As Object, e As System.EventArgs) Handles btn_reset.Click
        cbx_cat.SelectedIndex = 0
        tbx_rs.Text = ""
        cbx_titre.SelectedIndex = 0
        tbx_nom.Text = ""
        tbx_prenom.Text = ""
        tbx_pseudo.Text = ""
        tbx_mail.Text = ""
        tbx_pass.Text = ""
        tbx_pass_confirm.Text = ""
    End Sub

• ENVOYER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btn_send.Click
        If cbx_cat.SelectedValue = "Professionnel" Then
            If tbx_rs.Text = "" Then
                label_alert.Text = "Champ obligatoire"
 
                lbl_raison_sociale.Visible = True
                tbx_rs.Visible = True
            Else
                access_connexion()
 
                'Instancier un objet Command'
                Obj_Command = New OleDbCommand()
 
                'Initialiser lobjet Command'
                Obj_Command.Connection() = laConnection
                Obj_Command.CommandText = "INSERT INTO ..."
                Obj_Command.ExecuteNonQuery()
 
                access_deconnexion()
 
                label_alert.Text = ""
            End If
        Else
            access_connexion()
 
            'Intancier un objet Command'
            Obj_Command = New OleDbCommand()
 
            'Initialiser lobjet Command'
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = "INSERT INTO ..."
            Obj_Command.ExecuteNonQuery()
 
            access_deconnexion()
 
            label_alert.Text = ""
 
            'EXÉCUTION DU CODE DU BOUTON RESET ICI'
 
        End If
    End Sub

Voila c'est peut être plus claire comme ça

[katkiller]

Voila ce que je voulais dire :
Désolé je fais pas du tout de VB donc il y a peut être des erreurs VB...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Protected Sub Button2_Click(sender As Object, e As System.EventArgs) Handles btn_reset.Click
        Commun()
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btn_send.Click
        If cbx_cat.SelectedValue = "Professionnel" Then
            If tbx_rs.Text = "" Then
                label_alert.Text = "Champ obligatoire"
 
                lbl_raison_sociale.Visible = True
                tbx_rs.Visible = True
            Else
                access_connexion()
 
                'Instancier un objet Command'
                Obj_Command = New OleDbCommand()
 
                'Initialiser lobjet Command'
                Obj_Command.Connection() = laConnection
                Obj_Command.CommandText = "INSERT INTO ..."
                Obj_Command.ExecuteNonQuery()
 
                access_deconnexion()
 
                label_alert.Text = ""
            End If
        Else
            access_connexion()
 
            'Intancier un objet Command'
            Obj_Command = New OleDbCommand()
 
            'Initialiser lobjet Command'
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = "INSERT INTO ..."
            Obj_Command.ExecuteNonQuery()
 
            access_deconnexion()
 
            label_alert.Text = ""
 
            'EXÉCUTION DU CODE DU BOUTON RESET ICI'
            Commun()
        End If
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commun()
cbx_cat.SelectedIndex = 0
        tbx_rs.Text = ""
        cbx_titre.SelectedIndex = 0
        tbx_nom.Text = ""
        tbx_prenom.Text = ""
        tbx_pseudo.Text = ""
        tbx_mail.Text = ""
        tbx_pass.Text = ""
        tbx_pass_confirm.Text = ""
    End Sub

[jyves47]

C'est parfait je comprend mieu

Je test ça de suite et je poste pour le résultat

ça fonctionne parfaitement !!

Encore merci