Label derrière une variable

Bobnjour

comment mètre un chiffre devant un LABEL
je m'explique mieux :)
ex :

Code:

---

1 2 3 4 5

dim compteur1 as integer = "1" dim compteur as integer = "2"   label(1).text = "ok" abel(2).text = "ok"

---

bien entendu ca ne fonctionne pas .

Mon but c'est de faire une boucle , qui prend mon nom de label avec le bon chiffre qui va derriere pour eviter de marquer 20 ligne de

Code:

---

1 2 3

label1.text = "ok" label2.texr = "ok" '....

---

Esse possible ou pas ???

Cordialement
Merci

Citation:

---

Envoyé par Fabdunet13

Esse possible

---

Je l'avais jamais vu celle là encore, c'est en quelle langue ?

le mieux est de créer tes labels par code plutot que de les poser

Code:

---

private _labels as new list(of label)

---

Code:

---

1 2 3 4 5

for i as integer = 0 to 19 dim l as new label labels.add(l) uncontainer.controls.add(l) next

---

Code:

---

_labels(0).text = "ok"

---

si tu veux une clé autre qu'un auto incrément qui part de 0 tu peux utiliser le dictionary au lieu du list

Citation:

---

Envoyé par Pol63

For i As Integer = 0 To 19
Dim l As New Label
labels.Add(l)
uncontainer.controls.add(l)

Next

labels(0).Text = "ok"
labels(1).Text = "ERROR"
End Sub

---

ça ne fonctionne pas , ça bloque a cette ligne : uncontainer.controls.add(l)

Erreur 1 'uncontainer' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection. C:\Documents and Settings\TICE\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 8 13 WindowsApplication1

pour faire simple , je voudrais faire ça .

Code:

---

1 2 3 4

For i As Integer = 0 To 19 Label(i).text = i Next End Sub

---

plus tard le Label(i).text = i , le i , serra un tableau

Citation:

---

Envoyé par Fabdunet13

ça ne fonctionne pas , ça bloque a cette ligne : uncontainer.controls.add(l)

---

uncontainer est à remplacer par le parent de vos label
je n'ai pas expliqué le placement non plus

voici le lien vers un cours : http://plasserre.developpez.com/cours/vb-net/
parce que faire du copier coller sans comprendre ce qu'on vous dit ne sert à rien

sinon il y a aussi

Code:

---

lecontainer.controls(nom du controle).text

---

Malheureusement , je suis débutant , je connais pas tout .
j'apprend ce que j'ai besoins d'utiliser pour mon travail .

Citation:

---

Bonjour fabien , je te fait une Traduction de ce qu'il t'a écrit :

//Je déclare un objet de type List que je nomme _labels et qui ne peux contenir que des Label
private _labels as new list(of label)

//Je boucle de 0 à 19
for i as integer = 0 to 19

//Je déclare un nouvel object Label que je nomme l
dim l as new label
//J'ajoute le Label que je viens de crée à la liste de Label que j'ai déclarer au dessus
_labels.add(l)
//J'ajoute le Label à la liste de Control de Me donc dans ton cas la Forms
me.controls.add(l)

next

---

mais je ne comprend pas , et je n'arrive toujours pas a mon résultats.

Pas facile pour moi de comprendre quelque chose dont je ne merise pas !! !

Citation:

---

Envoyé par Fabdunet13

Pas facile pour moi de comprendre quelque chose dont je ne merise pas !! !

---

Merise c'est encore autre chose ... (Private Joke :aie:)

En étant plus sérieux, si tu es amené à taper du code, mieux vaut en comprendre les notions, parce que en copiant/collant des scripts, tu vas t'arracher les cheveux parce que ca marchera 1x sur 1000.
Alors prend du temps sur toi et apprend via le lien que Pol63 t'a donné, c'est un très bon cours et tu coderas plus vite et (un peu :lol: ) plus sereinement. :ccool:

Bonjour
Trop dur pour moi , je laisse tomber .
Merci de l'aide en tout cas
Merci

Bonjour,

Ne vous découragez pas
La méthode de Pol63 est très bien, il suffisait le positionner le label et mettre me pour la fenêtre.

Mais nous allons essayer une autre méthode avec un dictionnaire (qui est aussi une liste)

Pour les explications voir les commentaires qui détailles

Etape 1 : Création d'un dictionnaire

Code:

---

1 2 3

' définition d'une variable qui contiendra la liste des label dans un dictionnaire, et création du dictionnaire ' Ce dictionnaire se présente sous la forme d'une paire clé et valeur ou la clé est de type entier, et la valeur un label. Private DicoLabel As Dictionary(Of Integer, Label) = New Dictionary(Of Integer, Label)

---

Etape 2 : création des labels (nom, texte, position), ajout au dictionnaire et à la fenêtre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CreLabel() Dim lbl As Label ' une variable de type label pour créer les label et les ajouter au dictionnaire For i As Integer = 1 To 20 lbl = New Label ' création d'un nouveau label lbl.Name = "label" & i.ToString ' donne un nom au label lbl.Text = "label" & i.ToString ' le texte affiché dans le label lbl.Left = 20 ' sa position à gauche de la fenêtre lbl.Top = (i * 25) + 50 ' la position haute du label, on décale le nouveau label vers le bas en fonction de i pour qu'il soit visible lbl.Width = 200 ' une longueur assez grande pour afficher du texte DicoLabel.Add(i, lbl) ' ajout du label dans le dictionnaire Me.Controls.Add(lbl) ' ajout du label à la liste des contrôles de la fenêtre (Me représente la form) Next End Sub

---

Cette procédure est appelé dans le load de ta fenêtre

Code:

---

1 2 3

Private Sub frmManipLabel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CreLabel() 'appel à la procédure de création des labels End Sub

---

Note : J'ai appelé ma fenêtre "frmManipLabel" (pour vous ce sera dans Form1_Load ou le nom que vous lui avez donné)

Etape 3 : Modification du texte du label N°5 (dans un bouton)

Code:

---

1 2 3 4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DicoLabel(5).Text = "Nouveau texte du label (label N°5)" ' change le texte du label N°5 ' DicoLabel(5) renvoi un label, on peut donc utiliser les propriétés du label pour le manipuler End Sub

---

Etape 4 : pour aller plus loin et continuer à apprendre, placer un controle ListeBox avec comme item les numéros de 1 à 20 et un TextBox pour la saisie de texte. Quand l'utilisateur clique sur le bouton, placer le texte saisie dans le TextBox dans le label dont le numéro est sélectioné dans la ListeBox.

Ensuite essayez de le faire avec la "List" proposé par Pol63.
A+, Hervé.