RadioButton & evennements

Bonjour,
alors ma demande du jour ;)
je rajoute bien mes radio buton comme il faut ils fonctionnent bien !

toutefois pour parfaire ma page il faudrait que selon le radio bouton rajouter
je puisse faire un petit calcul et l'afficher dans un label !

il faudrait donc que je puisse rajouter sur le radiobutton enfin si je ne me trompe pas
un evenement ( CheckedChanged )

alors voila mon bout de code mais j'ai une erreur je dois avoir oublié un truc !

...
Dim RAD As New RadioButton
RAD.GroupName = "LIVRA"
RAD.ID = RD("ID_PAIEMENT")
RAD.Text = ""
RAD.Checked = True
RAD.AutoPostBack = True
AddHandler RAD.CheckedChanged, AddressOf RAD_CLICK
...

Public Sub RAD_CLICK(ByVal sender As Object, ByVal e As ImageClickEventArgs)
   SOMME_TOTALE.Text = "CA MARCHE !!!"
End Sub

******************************************
Installation Home-Cinéma de particuliers sur http://www.digital16-9.com

j'ai trouvé pour l'erreur !
fallait mettre Public Sub RAD_CLICK(ByVal sender As Object, ByVal e As System.EventArgs)
au lieu
Public Sub RAD_CLICK(ByVal sender As Object, ByVal e As ImageClickEventArgs)

par contre quand je click un des radiobutton rien ne ce passe ????

******************************************
Installation Home-Cinéma de particuliers sur http://www.digital16-9.com

Bonjour,

il faut mettre la propriété Autopostback a true sinon (et heureusement) il n'y aura pas de postback à chaque fois que tu changes de cases ;)

---

Cyril - MVS - MCP ASP

merci cyril,
mais regarde c'est en place !

toutefois j'ai trouvé un truc interressant
quand je rajoute de boutons radios moi meme en mode design et que sur la proprieté CheckedChanged

je le renvoi vers mon RAD_CLICK
il me rajoute l'id du controle à la suite de des arguments de mon SUB (voir en rouge)
et la miracle ca marche y compris pour mes propres boutons ????
le seul probleme je ne peux rajouter mes propre boutons car il ne sont pas encore créés ?
Comment faire ?

Sub RAD_CLICK(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

SOMME_TOTALE.Text = "CA MARCHE !!!"
End Sub

qsd

******************************************
Installation Home-Cinéma de particuliers sur http://www.digital16-9.com

merci c'été ça !!

******************************************
Installation Home-Cinéma de particuliers sur http://www.digital16-9.com