[resolu][vb6]probleme extraterrestre avec 3 boutons radios

probleme extraterrestre avec 3 boutons radios [resolu][vb6] - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2006 à 14:57:18    

Bonjour a tous.
Voici mon probleme :
 
j'ai 3 boutons radio,si l'un est selectionné il renvoi vers une page, si cest un autre, vers une autre page, et pareil pour le dernier.
 
Seulement, le bouton radio N°2 risque d'etre largement plus utilisé que les 2 autres,cest pourquoi j'aimerai qu'il soit deja activé a l'ouverture de la form.
 
j'avais donc mis un btnr2=true dans le form load, ce qui fonctionne.
 
Le probleme etant que meme si je coche un autre maintenant, celui ci reste activé,mais seulement dans un cas precis :  
Si je selectionne le btnr1, la bonne feuille va s'afficher,mais aussi celle qui s'affiche quand on selecitonne le bouton 2 !
Tandis que si je selectionne le btnr3,seul la feuille voulu va s'afficher.
Je suis sur que ya une erreur a la con,mais je vois pas ou ?  
 
 
mon code  
 

Code :
  1. 'Afficher la bonne page en fonction du bouton radio selectionné.
  2.     If btnr1.Value = True And btnr2.Value = False And btnr3.Value = False Then
  3.         maj.Show
  4.         Unload mission
  5.     End If
  6.    
  7.     If btnr2.Value = True And btnr1.Value = False And btnr3.Value = False Then
  8.        
  9.         Tarif.Show
  10.         Unload mission
  11.        
  12.     End If
  13.            
  14.      If btnr3.Value = True And btnr1.Value = False And btnr2.Value = False Then
  15.        
  16.          cumul.Show
  17.          Unload mission
  18.            
  19.     End If


mais ca a pas l'air de marcher.
Merci d'avance de votre aide.


Message édité par Dachocapic le 14-06-2006 à 15:30:42
Reply

Marsh Posté le 14-06-2006 à 14:57:18   

Reply

Marsh Posté le 14-06-2006 à 15:13:07    

Pourquoi tu géres pas directement sur tes boutons le fait que quand il y en a un qui passe à True les autres passe à False.
Ensuite dans ton code tu mets 3 if imbriqués
if btn1 then
 else
  if btn2 then
  else
    if btn3 then
    end if
  end if
end if

Reply

Marsh Posté le 14-06-2006 à 15:28:11    

merci bien , ca fonctionne.
j'ai fait comme ca  

Code :
  1. Private Sub ok_Click()
  2. 'Afficher la bonne page en fonction du bouton radio selectionné.
  3.     If btnr1.Value = True Then
  4.         btnr2.Value = False And btnr3.Value = False
  5.         maj.Show
  6.         Unload mission
  7.             Else
  8.             If btnr2.Value = True Then
  9.             btnr1.Value = False And btnr3.Value = False
  10.             Tarif.Show
  11.             Unload mission
  12.                 Else
  13.                 If btnr3.Value = True Then
  14.                 btnr1.Value = False And btnr2.Value = False
  15.                 cumul.Show
  16.                 Unload mission
  17.                        
  18.                 End If
  19.             End If
  20.     End If
  21. End Sub


 
merci encore pour ton idée.

Reply

Marsh Posté le 14-06-2006 à 15:31:19    

En fait ce que je proposais c'était pour chauqe bouton le code suivant :
 
private sub btn1_click()
 
end sub

Reply

Marsh Posté le 14-06-2006 à 15:34:29    

erreur de manip ... suite et fin
 
Private sub btn1_click()
 if btn1.value then
   btn2.value=false
   btn3.value=false
 end if
 
Private sub btn2_click()
 if btn2.value then
   btn1.value=false
   btn3.value=false
 end if
 
Private sub btn3_click()
 if btn3.value then
   btn1.value=false
   btn2.value=false
 end if
end sub
 
private sub Ok_click
 if btn1 then machin.show
 else
  if btn2 then bidule.show
  else
    if btn3 then
       truc.show
    end if
  end if
end if

Reply

Marsh Posté le 14-06-2006 à 15:40:10    

Ha oui ok :) ( dailleur je pense que tu as oublié les .true )  
 
Bah wai ca doit marcher aussi. ^^  
Merci de ton aide :)  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed