cs_jaki19
Messages postés11Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention19 juillet 2006
-
17 juil. 2006 à 20:47
cs_jaki19
Messages postés11Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention19 juillet 2006
-
19 juil. 2006 à 23:45
Bonjour ts le monde, en faite j un petit problème ds mon application,
Bref, qd je clique sur une case à cocher son contenu est afficher ds le label en bas de mon application ms le problème c que qd je sélectionne la même case a cocher pour la supprimer du labelle son contenu se répète et moi je veut savoir un truc a faire pour ne pas le répéter et de le supprimer c qqun le désélectionne.
pymaster
Messages postés74Date d'inscriptionvendredi 14 juillet 2006StatutMembreDernière intervention14 août 2006 17 juil. 2006 à 21:30
bonjour !
bon ce que je vais te proposé est vraiment pas l'idéal mais pour ce que je connais de ton code ça fonctionne du moins
dim message as string
for i = 0 to maxindex ' maxIndex c'est l'index max pour tes checkbox
if check1(i).value = vbchecked then
message = message & check1(i).caption
End if
next i
if mns = 1 then
label10.caption = message
else
label8.caption = message
end if
Comme ça si la case est coché le text s'affiche et sinon il ne l'est pas.
On regénère le text à chaque fois pour les cas de suppression.
Conseil .. label10 et label8 c'est pas idéal comme nom
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 17 juil. 2006 à 21:33
re,
pas sûr de comprendre mais bon, on va tenter...
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then
If mns = 1 Then 'commande moins
Label10.Caption = Label10.Caption & Check1(Index).Caption & ","
ElseIf pls = 1 Then 'commande plus
Label8.Caption = Label8.Caption & Check1(Index).Caption & ","
End If
Else
Label10.Caption = vbNullString
Label8.Caption = vbNullString
End If
End Sub
cs_jaki19
Messages postés11Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention19 juillet 2006 18 juil. 2006 à 01:14
Bonjour
Je veut savoir pour le 1ere code ds quel procédure doit je l insérer parce que ça sert a rien si c ds la commande « valider », et pour le 2eme code c ps vraiment ce que je cherche.
pymaster
Messages postés74Date d'inscriptionvendredi 14 juillet 2006StatutMembreDernière intervention14 août 2006 18 juil. 2006 à 13:45
Bonjour,
Lorsqu'un utlisateur clique sur un checkbox tu call la même procédure metton
valide() et tu laisse allez.
private sub check_onclick(param)
valide
end sub
La seule chose que je ne suis pas sur c'est pour ton mns et pls ... ça me chicote, si le filtre ce fait lors tu clic de la souris alors mon code ne fonctionneras pas.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 18 juil. 2006 à 19:34
et çà donne quoi comme çà?
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then
If mns = 1 Then 'commande moins
label10.Caption = label10.Caption & Check1(Index).Caption & ","
ElseIf pls = 1 Then 'commande plus
label8.Caption = label8.Caption & Check1(Index).Caption & ","
End If
Else
If mns = 1 Then 'commande moins
label10.Caption = Left$(label10.Caption, Len (label10.Caption) - Len(Check1(Index).Caption) - 2)
ElseIf pls = 1 Then 'commande plus
label8.Caption = Left$(label8.Caption, Len (label8.Caption) - Len(Check1(Index).Caption) - 2)
End If
End If
End Sub
cs_jaki19
Messages postés11Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention19 juillet 2006 19 juil. 2006 à 19:28
Merci
Ms le problème de ce code ci aussi c que il supprime tjs le dernier de la commande, et moi je crois plutôt q il faut avant de clique sur le bouton ‘-‘ ou ‘+’ de vérifier les case qui sont sélectionner et de les ajouter, non ????
un grand merci encore