[vb.net] modifier des labels dynamiquement

Résolu/Fermé
kikouyou1080 Messages postés 21 Date d'inscription dimanche 25 avril 2010 Statut Membre Dernière intervention 23 juillet 2013 - Modifié par kikouyou1080 le 25/04/2010 à 11:13
kikouyou1080 Messages postés 21 Date d'inscription dimanche 25 avril 2010 Statut Membre Dernière intervention 23 juillet 2013 - 26 avril 2010 à 01:07
Bonjour, je me permet de faire remonter ce post car j'ai le meme genre de soucis en vb.net.
Je souhaiterai modifier la visibilités de labels a l'aide d'une boucle "pour".
L'idée est d'avoir des coordonnées au label (avec les index j'imagine)du genre
lbl11 lbl21 lbl31 ...
lbl12 lbl22 lbl32 ...
... ... ...

étant donné que le nombre maximal de label pouvant être affiché est connu, je les ai tous créé en invisible et je voudrais rendre certains labels visible comme suit :
Code Visual Basic :
        Dim lbl as lblCase  
        Dim xy As Integer 
        For i = 1 To nbLettreChoisi 
            For j = 1 To NbMaxProposition 
                xy = CUInt(CStr(i & j)) 
                Me.controls.lbl(xy).Visible = True 
            Next j 
        Next i 



En recherchant sur le net, j'ai cru comprendre qu'il fallait ajouter un controle avec des "name" identiques pour chaque label et les index souhaités alors, j'ai tenté de créer un control lblcase.vb pour mettre tout mes labels indexé manuellement 11, 12, 13, ... Mais ensuite je n'arrivais pas a donner le même nom a tous ni a appeler le control.

Merci pour votre précieuse aide!

A voir également:

2 réponses

kikouyou1080 Messages postés 21 Date d'inscription dimanche 25 avril 2010 Statut Membre Dernière intervention 23 juillet 2013 44
25 avril 2010 à 12:55
et pendant que j'y suis comment est ce que je peux annuler l'effet de la touche "backspace" ainsi que les fleches afin d'interdir a l'utilisateur d'effacer des caractères dans une textbox?
Merci!
0
kikouyou1080 Messages postés 21 Date d'inscription dimanche 25 avril 2010 Statut Membre Dernière intervention 23 juillet 2013 44
26 avril 2010 à 01:07
J'ai fini par trouver!

j'ai créé tout les labels avec du code:

Dim lbl(nombre) as label
for i = 1 to nb
lbl(i) = new label
lbl(i).text=""
...
next
0