[VB.NET] Créer un index textbox/Label

**t1marlartiste** · 07/06/2007, 16h08

Bonjour,

Je souhaiterais créer un index pour mes textbox et Label.

Je m'explique, j'ai une cinquantaine de label + textbox afficher suivant une base de données.En faite, je récupére des données que je voudrais insérer dans mon label et textBox. Ca je sais faire (ouf) , mais je souhaiterais que l'ajout se faire dynamiquement cad par répéter

Code :

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

1
2
3
TextBox1.text = ....
TextBox2.text= ....
TextBox3.text=....

Je voudrais un résultat du style

Code :

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

Textbox(i).text = ....

Je savais le faire en VB , mais la je ne sais pas ou je ne sais plus.. Et je ne sais pas si cela est possible...

J'attend vos réponses, merci

**zooffy** · 07/06/2007, 16h46

Ben j'aimerais bien faire pareil, mais je croyais que c'était pas possible.

Donc, effectivement si quelqu'un sait comment faire, je suis preneur aussi du code.

Je tenterais bien une idée en prenant une Collection de TexteBox et de Label, mais je sais pas trop comment mettre ça en oeuvre.

**Pol63** · 07/06/2007, 17h20

ca n'est pas possible de les poser indexés comme sous vb6
mais c'est encore possible par code

cette question arrive plusieurs fois par semaine et à chaque fois y la réponse
j'y ai encore répondu ajourd'hui ou hier, cherchez dans le coin ou un sous forum ...

**t1marlartiste** · 08/06/2007, 11h02

J'ai trouver ça de toi, mais ca ne fonctionne pas...

Code :

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

1
2
3
4
5
6
        Dim mesboutons() As Button
        Dim i As Integer = 0
        For i = 0 To 10
            mesboutons(i) = New Button
            Me.Controls.Add(mesboutons(i))
        Next

Une idée?

**Pol63** · 08/06/2007, 11h48

si si ca marche mais comprendre pour adapter

quand je déclare mesboutons() as button
je dis que j'en ai plusieurs mais il faut dire combien
soit à la déclaration dim mesboutons(10) as button
soit plus tard
redim mesboutons(5)
redim preserve mesboutons(10)

**t1marlartiste** · 08/06/2007, 14h06

Voila ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
        Dim mesboutons(0) As Button
        Dim i As Integer = 0
        For i = 0 To 10
            mesboutons(i) = New Button
            Me.Controls.Add(mesboutons(i))
            ReDim Preserve mesboutons(i + 1)
        Next

J'ai une autre erreur :

Le contrôle '_ctl0' de type 'Button' doit être placé dans une balise form avec runat=server.

gné?

**mafyoso** · 08/06/2007, 14h41

Bonjour

Partant dans l'idée que ta page aspx se présente comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
<body>
    <form id="form1" runat="server">
    <div>
        .....
    </div>
    </form>
</body>
...

ta boucle peut se présenter comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
       Dim mesboutons(0) As Button
        Dim i As Integer = 0
        For i = 0 To 10
            mesboutons(i) = New Button
            Me.Form1.Controls.Add(mesboutons(i))
            ReDim Preserve mesboutons(i + 1)
        Next

Bon courage

**t1marlartiste** · 08/06/2007, 15h07

Il ne reconnait pas mon formulaire . Il est également du meme nom (form1). Mais il me dit que ce n'est pas un membre de ma page... Alors que j'ai bien vérifié et il y est bien...

Galere galere

**mafyoso** · 08/06/2007, 15h36

(Re) Bonjour

Pourrais-tu nous envoyer ton entete de page ?
Est-ce que le code VB détecte un seul des controls serveur qui sont dans ta page aspx

?

A suivre

**Pol63** · 08/06/2007, 15h46

j'avais pas vu que ca parlait d'asp mais en théorie ca doit marcher aussi

sinon tu as fait dim mesboutons(0) as button
ca veut dire que t'en veux qu'un (de 0 à 0)
donc si tu appelles plus loin mesboutons(1) (pour le i de 0 à 10)
ca va planter

dim mesboutons(10) va créé un tableau de 11 boutons (de 0 à 10)

**t1marlartiste** · 08/06/2007, 15h58

voici l'entete de ma page

Code :

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

1
2
<%@ Register TagPrefix="cr" Namespace="CrystalDecisions.Web" Assembly="CrystalDecisions.Web, Version=9.1.5000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ajout_fournisseur.aspx.vb" Inherits="Automatisation_palettes.ajout_fournisseur"%>

Et sinon,oui , mon code VB détecte bien les controls serveur qui sont dans ma page aspx