| 12
 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
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
 100
 101
 102
 103
 104
 105
 106
 107
 108
 109
 110
 111
 112
 113
 114
 115
 116
 
 |  
    * ********Recuperer Valeur Textbox Dynamique.aspx**********
    *
    * <%@ Page Language="vb" AutoEventWireup="false" Codebehind="Recuperer Valeur Textbox Dynamique.aspx.vb" Inherits="TestExemple.MaPage"%>
    * <html>
    * <head>
    * <title>Generer des controles dynamiquement et recuperer leurs evenement et leurs
    * valeurs </title>
    * </head>
    * <body>
    * <form id="Form1" method="post" runat="server">
    * <asp:placeholder id="PlaceHolder1" runat="server" />
    * </form>
    * </body>
    * </html>
    *
    *
    *
    * ********Recuperer Valeur Textbox Dynamique.aspx.vb**********
    * Public Class MaPage
    * Inherits System.Web.UI.Page
    *
    * Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder
    * Protected MonRadioButton As New System.Web.UI.WebControls.RadioButtonList
    *
    *
    * Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    *
    * 'On ajoute un peu de text au PlaceHolder
    * PlaceHolder1.Controls.Add(New LiteralControl("Déclenchement de l'evenement"))
    *
    * 'On Configure notre RadiobuttonList
    * MonRadioButton.RepeatDirection = RepeatDirection.Horizontal
    * MonRadioButton.Width = Unit.Pixel(400)
    * MonRadioButton.DataSource = Split("Click,OnChanged", ",")
    * MonRadioButton.DataBind()
    * MonRadioButton.SelectedIndex = 0
    *
    * 'Par Défaut on dit que si il change on recharge la page
    * MonRadioButton.AutoPostBack = True
    *
    * PlaceHolder1.Controls.Add(MonRadioButton)
    *
    * Dim MonTextBox As TextBox
    *
    * 'On fait une boucle pour mettre 10 Textbox
    * For i As Integer = 0 To 10
    *
    * 'On reinstancie le texbox
    * 'et on le configure
    * MonTextBox = New TextBox
    * MonTextBox.ID = "TonTextbox" & i
    * MonTextBox.Text = MonTextBox.ID
    *
    * 'Si le radiobutton est sur onchanged
    * If MonRadioButton.SelectedValue = "OnChanged" Then
    * 'On dit que des que le texbox change il fait un postback
    * MonTextBox.AutoPostBack = True
    * 'Quand le textbox change il execute MonTextBox_TextChanged
    * AddHandler MonTextBox.TextChanged, AddressOf MonTextBox_TextChanged
    * End If
    *
    * 'On ajoute notre textbox dans le Placeholder puis un saut de ligne
    * PlaceHolder1.Controls.Add(MonTextBox)
    * PlaceHolder1.Controls.Add(New LiteralControl("<br>"))
    *
    * Next
    *
    * 'On en a plus besoin donc on peut l'enlever de la memoire
    * MonTextBox.Dispose()
    *
    * 'Si on est sur click
    * If MonRadioButton.SelectedValue = "Click" Then
    * 'On va rajouter un bouton
    * Dim LeBouton As New Button
    * LeBouton.Text = "valider"
    *
    * 'On lie le click du bouton à l'evenement on l'ajoute au placeholder
    * AddHandler LeBouton.Click, AddressOf LeBouton_Click
    * PlaceHolder1.Controls.Add(LeBouton)
    * End If
    *
    * End Sub
    *
    * Private Sub MonTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    *
    * 'On crée un nouveau textbox
    * Dim LeTextBox As New TextBox
    * 'On Assigne notre nouveau textbox, avec l'objet qui nous a envoyé ici
    * 'On voit ainsi l'importance de sender
    * LeTextBox = CType(sender, TextBox)
    * 'Un peu de text pour verifier que ca marche bien
    * Response.Write("Vous venez de modifié : " & LeTextBox.ID & " avec la valeure : " & LeTextBox.Text)
    *
    * End Sub
    *
    * Private Sub LeBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    *
    * Dim LeTextBox As TextBox
    * For i As Integer = 0 To 10
    * Try
    * 'idem que si dessus sauf que la on cherche le textbox
    * 'dans la page, on fait donc une boucle sur tous les 10 textbox
    * LeTextBox = New TextBox
    * LeTextBox = CType(Page.FindControl("TonTextbox" & i), TextBox)
    * 'Un peu de text
    * Response.Write("Texbox N°" & i & " : " & LeTextBox.Text & "<br>")
    * Catch ex As Exception
    * 'Une connerie vient d'etre faite
    * 'Surement parce que le texbox recherché n'existe pas
    * End Try
    * Next
    *
    * End Sub
    *
    * End Class | 
Partager