Discussion :

[Shatter]

Bonjour à tous,

Voilà j'ai un script dans lequel une boucle while me sort plusieurs liens différents concernant des fichiers à consulter. Et j'ai installé à côté de chaque lien un ImageButton qui me servira à supprimer ce fichier.

Seulement comment lier mon image au fichier SVP ? Parce que j'ai bien mon ImageButton1_Click() dans le code behind mais rien ne différencie un ImageButton d'un autre. En gros il faudrait un paramètre (le nom du fichier) qui serait passé à l'ImageButton et que je pourrais récupérer dans le code behind.

Avez-vous une idée SVP ? (j'espère que ce n'est pas trop confu...)
Merci par avance.

[Pelote2012]

Utilise un repeater (rpt) avec sur chaque ligne le nom de ton fichier et le bouton de suppression

Load:

Code :

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

1
2
3
4
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then BindForm()
    End Sub

Dans une fonction

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
 
''' <summary>
    ''' Remplissage du formulaire
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub BindForm()
        Try
            Dim ds As DataSet
            Dim dtv As DataView
 
            'Récupérer la liste des fichiers
            ds = liste des fichiers
 
            dtv = ds.Tables(0).DefaultView
            rpt.DataSource = dtv
 
        Catch ex As Exception
 
        End Try
 
    End Sub

Dans le rpt_ItemDataBound:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            Dim btnSupp As ImageButton
            Dim r As Data.DataRowView
 
            btnSupp = CType(e.Item.FindControl("btnSuppr"), ImageButton)
            r = CType(e.Item.DataItem, Data.DataRowView)
 
            'Gestion du bouton supprime
            btnSupp.CommandName = "DEL"
            btnSupp.CommandArgument = r(NomColonneFichier).ToString
end if

Puis dasn rpt_ItemCommand

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If e.CommandName = "DEL" Then
 
            Try
               ' Suppression fichier en récupérant le paramètre avec 
            SupFichier(e.CommandArgument)
                BindForm()
            Catch ex As Exception
                Me.Master.AfficheMessage("Erreur Affectation suppression", False)
            End Try
end if

La méthode est peut être a adpter mais t'as les grandes lignes

[Shatter]

Arff désolé pour le retard... Entre deux je suis passé par un simple lien en fait (je sais c'est lache... )
Merci quand même pour ton aide !!