Discussion :

[Faladin]

Bonjour,

J'essaie de rendre visible des images selon la position d'un trackbar. J'ai 5 images et je veux que la position de la trackbar (1 à 5) rendre visible la ième image et cache les autres. J'ai pensé à un code sur le scroll de la track bar qui va comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Dim indice As Integer
 
        For i = 1 To 5
            hoist(i).visible = False
        Next
 
        indice = TrackBar1.Value
        hoist(indice).visible = True
 
    End Sub

Le problème c'est que je veux faire un --> hoist (i) <--- au lieu de taper chaque fois les 5 tags (hoist1, hoist2, etc.) pour les cacher, même principe pour le rendre visible.

Je sais que ça ne fonctionne pas, mais je ne trouve pas la manière de bien le faire pour me sauver du code et du temps.

Merci de m'aider, et désolé si ça déjà été dit quelque part, je trouve pas.

EDIT: C'est pas si pire avec 5, je les ai tapé pour l'instant, mais je peux en avoir jusqu'à 25 en même temps...Ça va commencer à alourdir les choses.

[SaumonAgile]

http://www.developpez.net/forums/sho...ontrole+indice

Trouvé avec une recherche sur "controle indice"

[Faladin]

Hum...

Ouais, merci, c'est en C# par contre, je vais voir comment l'incorporer dans mes codes en VB.

PS: Je suis assez débutant, ça doit paraître...

[Faladin]

Bonjour,

J'ai finalement réussi mon coup.

Ce que je comprends maintenant, en VB6 le truc que j'essayais de faire existait:

Code :

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

1
2
3
4
 
for i=0 to 10
  picturebox(i).visible = false
next

Par contre, en VB.net, c'est disparu.

Pour contrer cela, j'ai trouvé du très excellent tutoriel de PLasserre:
http://plasserre.developpez.com/v3-9.htm

Ceci (adapté pour moi):

1- Créer un panel invisible
2- Inclure dans le panel (panel1) toutes les images voulues
3- Écrire ce code sur l'action de ma scrollbar:

Code :

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

1
2
3
4
 
        For Each pb As PictureBox In Panel1.Controls
            pb.Visible = False
        Next

Et ça fonctionne comme un charme!

MErci!

Fal