Discussion :

[Fabdunet13]

Bobnjour

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

Code :

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

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 :

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

1
2
3
label1.text = "ok" 
label2.texr = "ok" 
'....

Esse possible ou pas ???

Cordialement
Merci

[Pol63]

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 :

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

private _labels as new list(of label)

Code :

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

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 :

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

_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

[Fabdunet13]

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

[Fabdunet13]

pour faire simple , je voudrais faire ça .

Code :

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

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

[Pol63]

ç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 :

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

lecontainer.controls(nom du controle).text

[Fabdunet13]

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

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 !! !

[_Ez3kiel]

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

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

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 ) plus sereinement.

[Fabdunet13]

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

[rv26t]

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 :

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

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 :

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

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 :

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

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 :

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

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é.