Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2627 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1387468
Dachocapic
Posté le 14-06-2006 à 14:57:18  profilanswer
 

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
mood
Publicité
Posté le 14-06-2006 à 14:57:18  profilanswer
 

n°1387481
Paul Hood
Posté le 14-06-2006 à 15:13:07  profilanswer
 

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

n°1387508
Dachocapic
Posté le 14-06-2006 à 15:28:11  profilanswer
 

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.

n°1387511
Paul Hood
Posté le 14-06-2006 à 15:31:19  profilanswer
 

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

n°1387516
Paul Hood
Posté le 14-06-2006 à 15:34:29  profilanswer
 

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

n°1387527
Dachocapic
Posté le 14-06-2006 à 15:40:10  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Deux boutons avec le même nomprobleme avec cadre css ..resolution
[html] problème de tableau ( débutant )comment cacher un message d'erreur (résolu)
Problème Tortoise CVS sous winProgrammation C, problème :(
modifier le contenu d'une cellule [résolu][RESOLU] liaison javascript / PHP
[C] SDL_Image.h ect... problème de compilation il aime po mes images..[RÉSOLU] Problèmes divers FOR /F
Plus de sujets relatifs à : [resolu][vb6]probleme extraterrestre avec 3 boutons radios


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR