recuperer l'index d'un groupe

Question

Bonjour,

j'ai un petit probleme, j'aimerai recuperer la valeur de mon label4(index) mais seulement vu que j'ai aussi label(index) quand je met index tout seul il ne se passe rien. 

Pouvez vous me dire comment je peux essayer de faire? 

le code en question:
Private Sub Label4_Click(Index As Integer)
'donner la couleur au label
If color$ = 1 Then
Label4(Index).BackColor = vbGreen
End If
If color$ = 2 Then
Label4(Index).BackColor = vbRed
End If
If color$ = 3 Then
Label4(Index).BackColor = vbYellow
End If
If color$ = 4 Then
Label4(Index).BackColor = vbMagenta
End If
If color$ = 5 Then
Label4(Index).BackColor = vbBlue
End If
End Sub


Private Sub valid_Click()If Label4(Index) 0 Or Label4(Index) 1 Or Label4(Index) = 2 Or Label4(Index) = 3 Then
w = 0
s = 0
q = 0
l = 0
m = 0ElseIf Label4(Index) 4 Or Label4(Index) 5 Or Label4(Index) = 6 Or Label4(Index) = 7 Then
w = 4
s = 4
q = 4
l = 4
m = 4ElseIf Label4(Index) 8 Or Label4(Index) 9 Or Label4(Index) = 10 Or Label4(Index) = 11 Then
w = 8
s = 8
q = 8
l = 8
m = 8ElseIf Label4(Index) 12 Or Label4(Index) 13 Or Label4(Index) = 14 Or Label4(Index) = 15 Then
w = 12
s = 12
q = 12
l = 12
m = 12ElseIf Label4(Index) 16 Or Label4(Index) 17 Or Label4(Index) = 18 Or Label4(Index) = 19 Then
w = 16
s = 16
q = 16
l = 16
m = 16ElseIf Label4(Index) 20 Or Label4(Index) 21 Or Label4(Index) = 22 Or Label4(Index) = 23 Then
w = 20
s = 20
q = 20
l = 20
m = 20
End If


 


 


merci pour votre aide

cs_DARKSIDIOUS · Answer

Et c'est quoi le problème au juste ???

Sinon, niveau lisibilité, il vaut mieux écrire :

Private Sub Label4_Click(Index As Integer)
'donner la couleur au label
Select Case color$
    Case 1
        Label4(Index).BackColor = vbGreen
    case 2
        Label4(Index).BackColor = vbRed
    case 3
        Label4(Index).BackColor = vbYellow
    case 4
        Label4(Index).BackColor = vbMagenta
    case 5
        Label4(Index).BackColor = vbBlue
end select
End Sub

Private Sub valid_Click()
Select case Label4(index).caption
    case 0, 1, 2, 3
        w = 0
        s = 0
        q = 0
        l = 0
        m = 0
     case 4, 5, 6, 7
        w = 4
        s = 4
        q = 4
        l = 4
        m = 4
    case 8, 9, 10, 11
        w = 8
        s = 8
        q = 8
        l = 8
        m = 8
    case 12, 13, 14, 15
        w = 12
        s = 12
        q = 12
        l = 12
        m = 12
    case 16, 17, 18, 19
        w = 16
        s = 16
        q = 16
        l = 16
        m = 16
    case 20, 21, 22, 23
        w = 20
        s = 20
        q = 20
        l = 20
        m = 20
end select
end sub

jrivet · Answer

Salut, il faudrait mieux expliquer

Possede tu une variable Index  global a ta feuille. Si ce n'est pas le cas, dans Private Sub valid_Click() Index sera toujours egal a zero.

As tu spécifié Option Explicit tout en haut de ta feuille cela peu etre utile parfois

" j'aimerai recuperer la valeur de mon label4(index)" => pour récupérer la valeur de l'élément 3 de ton groupe de label : Label4(3).Caption

"quand je met index tout seul il ne se passe rien" Il faudrait dire ce que tu cherche a faire. que devrait  il se passer.

@+,   Ju£i?n

maxw004 · Answer

Mon label4 c'est un groupe de 24 label.
j'aurai simplement voulu connaitre la valeur de mon label4(index as integer) 
pour savoir a kel ligne je suis avec mes pions
 et donc pouvoir bien initier mes variable pour verifier .

jrivet · Answer

Re,

"j'aurai simplement voulu connaitre la valeur de mon label4(index as integer)" =>  A quel endroit veux tu le savoir.
Pour récupérer une valeur voir mon post précédent.

"pour savoir a kel ligne je suis avec mes pions" => A quel moment. (lors du chargement, du click sur un label, ou de valid_Click...

@+,   Ju£i?n

Recuperer l'index d'un groupe

4 réponses

Votre réponse

Discussions similaires