[VB.NET] [WebControl] Collection de Button

Version imprimable

Bonjour à tous !

J'ai un problème avec un webcontrol qui doit comporter des Buttons. Je n'arrive pas à catcher les évènements associés au bouton.

une solution VB.Net :
- 1 Projet WebControl Library "TESTBUTTON"
- 1 projet Web avec référence vers "TESTBUTTON"

Code de "TESTBUTTON" :

Code:

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
 
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Drawing
 
<DefaultProperty("Text"), ToolboxData("<{0}:TestButton runat=server></{0}:TestButton>")> Public Class TestButton
    Inherits System.Web.UI.WebControls.WebControl
 
    Public btn As System.Web.UI.WebControls.Button
    Public Event Clickage As EventHandler
 
    Public Sub New()
        btn = New System.Web.UI.WebControls.Button
 
    End Sub
 
    Private Sub btn_Clickage(ByVal sender As Object, ByVal e As EventArgs)
 
         RaiseEvent Clickage(sender,e)        
    End Sub
 
  Protected Overrides Sub CreateChildControls()
 
        '' TextBox creation
        btn.ID = "id0"
        btn.Text = "Go0"
        AddHandler btn.Click, AddressOf btn_Clickage
        Me.Controls.Add(btn)
 
 
    End Sub
 
 
    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        btn.RenderControl(output)
    End Sub
 
End Class

Compilation : Oki

et dans ma page web je fais un

Code:

1
2
 
   AddHandler myTestButton.Clickage , AddressOf ClickTest

avec

Code:

1
2
3
4
 
  Private Sub ClickTest(ByVal sender As Object, ByVal e As EventArgs)
        Response.Write("<h1>" & sender.GetType.ToString() & "</h1>")
    End Sub

Ca marche bien :)

Mon problème maintenant c'est de mettre autant de bouton que je le veux dans une collection !

quelqu'un sait comment faire ?
je vous remercie a+ :)

le code que je rajoute pour prendre en compte la collection :

Code:

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
42
 
 
Public Sub add(ByVal id As String, ByVal text As String, ByVal e As EventHandler)
        Dim b As System.Web.UI.WebControls.Button
 
        b = New Button
        b.ID = id
        b.Text = text
        'AddHandler b.Click, AddressOf btn_Clickage
        lstBtn.Add(b)
 
 
 
    End Sub
 
    Protected Overrides Sub CreateChildControls()
 
        '' TextBox creation
        btn.ID = "id0"
        btn.Text = "Go0"
        AddHandler btn.Click, AddressOf btn_Clickage
        Me.Controls.Add(btn)
        For Each b As Button In lstBtn
            b.ForeColor = Color.Red
            AddHandler b.Click, AddressOf btn_Clickage
            Me.Controls.Add(b)
        Next
 
 
 
 
    End Sub
 
 
    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        output.Write("<table><tr><td>")
        For Each b As Button In lstBtn
            b.RenderControl(output)
        Next
        btn.RenderControl(output)
        output.Write("</td></tr></table>")
    End Sub

Les boutons sont bien créés mais en mode debug il va jamais dans btn_Clickage

Alors qu'avec le bouton hors collection ('Btn') ca marche toujours.

18/02/2005, 09h43
SoaB

Si je fais un WebControl qui contient un seul bouton, comme je vous l'ai dis ca fonctionne. Mais si je fais un autre webcontrol qui sera une collection du 1er webcontrol (avec le bouton qui marche) mais cela ne marche pas non plus.
20/02/2005, 12h52
SoaB

N'est pas la gestion des objets par VB.net ?
21/02/2005, 12h10
SoaB
En fait dans la fonction Add

Il faut rajouter :
Code:

1 2 Me.Controls.Add(btn)
Mais j'ai un nouveau problème. GRRRR !

L'évènement se déclenche bien mais pourquoi il rentre 2 fois dans l'évènement ?
21/02/2005, 15h41
SoaB

Je continue mon Monologue.

Il s'avère que l'évènement qui se fait 2 fois, provient du fait que mon WebControl de base hérite de Button. Si je fais hérité de WebControl et qu'a l'intérieur du webcontrol je met une variable de type button. Tout s'arrange :)

Donc maintenant c'est résolu.

Merci de votre aide :roll: