*** Probleme avec OptionButton ***

Question

Bonjour a tous


J&#8217;ai t&#233;l&#233;charger un fichier nomm&#233; Control.ocx qui ma permis d&#8217;avoir un composant dans VB6 nomm&#233; PROJET et qui me permet d&#8217;avoir des bouttons  des optionButton des frames&#8230; avec design XP.


Et mon probl&#232;me est que dans mon application j&#8217;utilise 4 OptionButton  de ce composant qui sp&#233;cifie le mode de payement et si l&#8217;un des ces OptionButton n&#8217;est pas activ&#233; l&#8217;enregistrement ne peut &#234;tre fait. Alors j&#8217;utilise ce code qui marchais tres bien avec les OptionButton standard de VB6 est qui est :


<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /> 


'Condition sur le mode de payement


If Opt1.Value 0 Xor Opt2.Value 0 Xor Opt3.Value = 0  Xor Opt4.Value = 0 Then


MsgBox "Vous devez pr&#233;ciser un mode de payement.", vbInformation, "Information utilisateur"


Exit Sub


End If


 


Avec Opt1 = OptionButton


 


Mais ce code ne marche plus avec les nouveaux OptionButton il me donne le MsgBox m&#234;me si un de ces contr&#244;le est valid&#233;


Comment faire pour que le message ne sort que si les 4 OptionButton ne sont pas valid&#233; ?


 


Merci pour la r&#233;ponse

econs · Answer

Il faut cr&#233;er un groupe de contr&#244;les, et le placer dans une Frame.



Dim UnBoutonSelectionne As Boolean



UnBoutonSelectionne = False

For i=0 to Opt1.Count-1

If Opt1(i).Value = 1 Then

UnBoutonSelectionne = True

End If

Next i

Msgbox UnBoutonSelectionne 

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

* Probleme avec OptionButton *

1 réponse

Discussions similaires