rendre un bouton inactivé(enable)

Question

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

cs_ITALIA · Answer

C'est normal tes Index au Niveau du Bouton Ajouter ?? Tu en as Plusieurs ?

It@li@

cs_trabice · Answer

lu
ce ki me choque ds ton code c le index()
t'as un groupe de bouton?

fabrice

PtitGrumo · Answer

Salut!

Va dans les propri&#233;t&#233;s de tes bouttons et v&#233;rifie que l'index de ton boutton 
Ajouter  = 0
Modifier = 1
Supprimer = 2

Puis code ceci!

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

je suis a ta dispo A++

PtitGrumo dans l'eau

sensosofttunisiee · Answer

salut,
pour mes boutons ils sont index&#233;s
 
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
..........           'code d'ajout
   case 2     'bouton modifier
       ajouter (0).enabled = false          'bouton ajouter
       ajouter (2).enabled = false          'bouton supprimer
..........         'code de modification
  end select
end sub

ce comme &#231;a le code 
aidez moi svp c urgent merci
JamJam

sensosofttunisiee · Answer

salut ,
Aidez moi svp je suis bloqu&#233; a ce probleme la
je vous attends 
merci JamJam

PtitGrumo · Answer

ce code marche tr&#232;s bien je te l'ai d&#233;j&#224; envoy&#233;!

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

A++ 

Ptitgrumo au boulot

Rendre un bouton inactivé(enable)

6 réponses

Discussions similaires