Discussion :

[galactica1]

Bonjour chers tous

j'utilise un formulaire sur laquelle j'ai placer plusieurs boutons a savoir: ajouter,supprimer..etc
Et dans ma procédure de suppression j'ai ajouté un message box yesNon. Mais j'arrive pas a configurer le No pour annuler la suppression
pouvez vous m'aidez?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
             Private Sub B_Click(sender As System.Object, e As System.EventArgs) Handles B.Click
        Try
            cs = " Data Source=RUFLI-PC;Initial Catalog=school;Integrated Security=True "
            cn = New SqlConnection(cs)
            cn.Open()
            cmd = New SqlCommand(" delete from ETUDIANT where MATRICULE ='" & Txt_id.Text & "' ", cn)
            cmd.ExecuteNonQuery()
            MessageBox.Show(" Voulez supprimer cette ligne?", "Suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            clear()
            grid()
            cn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, " Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

[Miska59]

Bonjour,

ma procédure de suppression j'ai ajouté un message box yesNon. Mais j'arrive pas a configurer le No pour annuler la suppression

il y a plusieurs solution pour définir message box Yes no cancel:

Code :

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

1
2
3
4
5
6
If MsgBox("Êtes-vous sûr de vouloir quitter maintenant?", MsgBoxStyle.YesNo, "avertissement de fermeture") = MsgBoxResult.Yes Then ' Si vous sélectionnez oui dans la MsgBox, la fenêtre se fermera
            Me.Close() ' Ferme la fenêtre
        Else
            ' Ne ferme pas l'application
            Return
        End If

Code :

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

1
2
3
4
5
6
7
8
Dim result As DialogResult = MessageBox.Show("message", "Titre", MessageBoxButtons.YesNoCancel)
        If result = DialogResult.Cancel Then
            MessageBox.Show("Annuler appuyé")
        ElseIf result = DialogResult.No Then
            MessageBox.Show("Non pressé")
        ElseIf result = DialogResult.Yes Then
            MessageBox.Show("oui pressé")
        End If

Code :

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

1
2
3
4
5
6
Dim result As DialogResult = MessageBox.Show("message", "Titre", MessageBoxButtons.YesNo)
        If result = DialogResult.No Then
            MessageBox.Show("Non pressé")
        ElseIf result = DialogResult.Yes Then
            MessageBox.Show("oui pressé")
        End If

j’espère les trois solution t'aidera résoudre ton probléme.
cordialement,

[thovan]

Si c'est un gros projet il faut mieux faire un petit form avec 3 boutons, oui non et annuler que tu utilises comme dialogbox.
L'avantage, c'est que tu peux rappeler ce form partout dans ton projet ce qui évite de retaper toujours les lignes de codes pour le construire chaque fois...