none
bouton, label, textbox oui ... mais en dynamique ! RRS feed

  • Question

  • Bonjour et meilleurs voeux a toutes & tous :)

    j'ai créé une table sql contenant un champs xml (typé via programation).

    Mon probleme est de pouvoir créer ou modifier les infos contenues dans ce champs.

    Donc il faut que je crée "à la volée" les controles necessaires...
    Je ne trouve pas comment creer des textbox ou label en dynamique sur une page web (j'ai bien trouvé mais pour une form windows).

     

    Merci de me donner vos pistes

    vendredi 12 janvier 2007 10:45

Réponses

  • trouvé !

     

    Dim numrows As Integer = nbrLign

    Dim numcells As Integer = 2

    Dim j As Integer

    For j = 0 To numrows - 1

    Dim r As New TableRow()

    Dim i As Integer

    For i = 0 To numcells - 1

    Dim c As New TableCell()

    If i Mod 2 = 0 Then 'teste si i est pair ou impair car colonne gauche = label et droite = textbox

    Dim newTxt As New Label()

    'on defini les proprietés du nouveau label :

    '----------------------------------------------------

    newTxt.ID = "NewText" + (j).ToString() 'defini le nom du text

    newTxt.Text = "NewText" + (j).ToString() 'defini la valeur du label vide

    newTxt.Width = 250 'on defini la taille horizontale du label

    newTxt.Height = 20 'on defini la taille verticale du label

    newTxt.BackColor = Drawing.Color.Transparent

    'newTxt.ReadOnly = True

    newTxt.BorderStyle = BorderStyle.None

    c.Controls.Add(newTxt)

    Else

    Dim newTxt2 As New TextBox()

    'on defini les proprietés du nouveau TextBox :

    '----------------------------------------------------

    newTxt2.ID = "NewText2" + (ctr).ToString() 'defini le nom du text

    newTxt2.Text = "" 'defini la valeur du textbox à vide

    newTxt2.Width = 250 'on defini la taille horizontale du textbox

    newTxt2.Height = 20 'on defini la taille verticale du textbox

    newTxt2.Font.Name = "Verdana"

    newTxt2.Font.Size = "10"

    c.Controls.Add(newTxt2)

    AddHandler newTxt2.TextChanged, AddressOf nvtxt2Handler_TextChanged ' ajoute l'evenement nvtxt2Handler_TextChanged au controle

    End If

     

    r.Cells.Add(c)

    Next i

    Table1.Rows.Add(r)

    Next j

    mardi 16 janvier 2007 09:36