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
| Protected Sub ButtonSeek_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonSeek.Click
...
Dim deletePicture As New ImageButton()
...
deletePicture.ID = myReader.GetInt32(0) 'Définit l'identifiant a supprimer, champs id de la requete sql
AddHandler deletePicture.Click, AddressOf ImageDelete_Click ' Ajout un événement (onClick)
...
End Sub
' Evenement qui permet de supprimer un livre ou quotidient
Protected Sub ImageDelete_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Dim img As ImageButton = CType(sender, ImageButton)
Try
Dim myBook As New Book
myBook.deleteBook(img.ID)
' Affiche un message de confirmation
MsgBox("La suppression c'est déroulée avec succès", MsgBoxStyle.DefaultButton1, "Message de confirmation")
Catch ex As Exception
LabelError.Text = "La requete de suppression n'a pas pu fonctionner correctement. ERROR : "
LabelError.Text &= ex.Message & " (" & ex.StackTrace() & ")"
End Try
End Sub |
Partager