sensosofttunisiee
Messages postés80Date d'inscriptionlundi 23 août 2004StatutMembreDernière intervention 2 octobre 2006
-
1 févr. 2005 à 11:45
PtitGrumo
Messages postés205Date d'inscriptionsamedi 22 janvier 2005StatutMembreDernière intervention28 novembre 2005
-
2 févr. 2005 à 16:36
Bonjour,
j'ai trois boutons: ajout, suppression et modification
je veut quand je click sur "ajouter" les deux autres devient inactiver et le mm chose pour le bouton "modification" je fait cas
Private Sub ajouter_Click(Index As Integer)
supprimer.enabled = false
modifier.enabled = false
end sub
mais quand je fait un test je click sur "ajouter" ==autorisation d'ajout puis je click sur "supprimer" puis "modifier" rien ne ce passe et je fait un autre click sur "supprimer" le message de suppresion s'afficha pour la suppresion or ce bouton la est desactiver
je rien compris ,est ce que ce qu j'ai mis est vrai ou non'et si non comment je fait
Aidez moi svp ce urgent
je vous remerci en avance
JamJam
PtitGrumo
Messages postés205Date d'inscriptionsamedi 22 janvier 2005StatutMembreDernière intervention28 novembre 20052 2 févr. 2005 à 16:36
ce code marche très bien je te l'ai déjà envoyé!
Private Sub ajouter_Click(Index As Integer)
dim B as boolean
if index = 2 then
B = true
else
B = false
end if
ajouter(0).enabled = B
ajouter(1).enabled = B
ajouter(2).enabled = B
ajouter(index).enabled = true
end sub
sinon ton code est pas bon!
Private Sub ajouter_Click(Index As Integer)
select case index
case 0 'bouton ajouter
ajouter (1).enabled = false 'bouton modifer
ajouter (2).enabled = false
'bouton supprimer Tu doit rajouter la ligne
.......... 'code d'ajout
case 2 'bouton modifier ICI c'est 1 pas 2 si 1 est le boutton modifier ! :O)
ajouter (0).enabled = false
'bouton ajouter
ajouter (2).enabled = false
'bouton supprimer
.......... 'code de modification
end select
'ajoute cette ligne
ajouter (index).enabled = true
end sub