Récuperer la valeur de l'index en vb
Bonjour,
je recherche un moyen de récuperer la valeur de l'index qui se trouve dans une procédure de mon programme et de pouvoir l'utiliser dans une fonction.
MERCI D'AVANCE.
je recherche un moyen de récuperer la valeur de l'index qui se trouve dans une procédure de mon programme et de pouvoir l'utiliser dans une fonction.
MERCI D'AVANCE.
5 réponses
-
bonjour,
diffile de répondre !
quelle procédure ? quelle fonction ? quel index ?
si par exemple :
Private Sub savaut_Click(Index As Integer)
...
fonction(Index) ' appel fonction avec Index
...
pour l'instant je ne peux pas en dire plus !
cordialement.-
merci bul d'avoir répondu
voici une partie de mon programme :
Private Sub Cd1_Click(Index As Integer)
If (Index Mod 2 = 0) Then
MsgBox "index=" + Str$(Index)
Index = X
Frame1.Visible = True
Else
If L1(Index).Visible = False Then
L1(Index).Visible = True
Frame1.Visible = True
liaisoncuvette = True
Else
L1(Index).Visible = False
Frame1.Visible = False
End If
End If
End Sub
en faite je récuperer index et pouvoir l'utiliser dans cette fonction
Function Couleur_Ligne(couleur As BorderStyleConstants)
if Cd1(index).index=L1(index).index then
MsgBox "index=" + Str$(lindex) //ici l'index est tjs = à 0
moi je veux qu'il soit = à l'index de Cd1
L1(index).BorderColor = couleur
end if
End Function
j'espère que j'ai été plus précis dans ma demande
Merci encore et bonne année 2004
-
-
on ne sait pas quand couleur_ligne,cd1_click sont appelées mais
comme ça, apriori, sans réfléchir plus loin, je ne regarde
pas ce que font les fonctions,
dans cd1_click mémoriser index dans une variable globale
pour la réutiliser dans couleur_ligne ?
dim num as integer
Private Sub Cd1_Click(Index As Integer)
...
num=index
...
Function Couleur_Ligne(couleur As BorderStyleConstants)
if num= ...
ok ou pas ?
cordialement-
encore désolé de te déranger mais j'ai toujours le meme
dim num as integer
probPrivate Sub Cd1_Click(Index As Integer)
num = Index
If (Index Mod 2 = 0) Then
MsgBox "index=" + Str$(Index)
Frame1.Visible = True
Else
If L1(Index).Visible = False Then
L1(Index).Visible = True
Frame1.Visible = True
liaisoncuvette = True
Else
L1(Index).Visible = False
Frame1.Visible = False
End If
End If
End Sub
Function Couleur_Ligne(couleur As BorderStyleConstants)
If num = L1(Index).Index Then
MsgBox "index=" + Str$(Index)
L1(Index).BorderColor = couleur
end if
End Function
Private Sub Command3_Click()
Couleur_Ligne (&H40C0&)
End Sub
quand je click sur le bouton cd1(5) "" qui permet de sélectionner la ligne""
puis sur command3 ""qui permet de choisir la couleur de ligne""
la ligne L1(5) par exemple qui porte le meme index que cd1 ne prend pas la couleur indiquée dans la procédure command3
ET ENCORE MERCI!!!!!!!!
-
-
;-)
Ouais, idem !! Utiliser une variable globale...
Après, optimiser, pour n'avoir qu'un seule function, style, utiliser la propriété Tag de l'objet...
Evidemment, j'ai survolé...
;-)
Wild and Free -
comme dit mon camarade ci-dessus
Function Couleur_Ligne(couleur As BorderStyleConstants)
MsgBox "index=" + Str$(num)
L1(num).BorderColor = couleur
End Function
peut-être, car on ne sait pas trop ce que l'on fait
cordialement. -
tant mieux
reste sûrement à simplifier
