[VB6] Pb avec des OptionButton ..

Bonjour , j'ai un petit soucis , j'ai mi sur une form 4 optionButton , mais le soucis , c'est que qd cette form s'ouvre , l'OptionButton1 se valide automiquement , comment faire pour qu'aucun des optionbutton se valide lors de l'ouverture de la form ??

merci d'avance
amicalement lucas

? pour moi le principe des options boutons c'est qu'il faut avoir obligatoirement une (et une seule ) option de sélectionné ..?

Rajoute une 5° Option : Pas de Vanne

ok merci , je savais pas que qu'il y avai tt le tps un option boutton de cocher ^^
merci

ya pas un code plus condensé pour ecrire la mm chose ??

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Image1_Click() menu.Show End Sub Private Sub Image2_Click() menu.Show End Sub Private Sub Image3_Click() menu.Show End Sub Private Sub Image4_Click() menu.Show End Sub

---

je suis pas sur qu'une option à 1 soit obligatoire... , mais dans l'éditeur de Form ... elles sont comment tes options ...? ne peu tu pas les modifier en modifiant la propriété value ? ...


PS : j'ai pas VB6 sous la main ... en VBA on peu avoir toutes les options à False...

voila ce ke j'ai mis pour chacun des bouttons

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Option2_Click() If Option2 = True Then CHGT = 0 End If End Sub Private Sub Option3_Click() If Option3 = True Then CHGT = 1 End If End Sub Private Sub Option4_Click() If Option4 = True Then CHGT = 2 End If End Sub Private Sub Option5_Click() If Option5 = True Then CHGT = 3 End If End Sub

---

1) Sous VB également, on peut décider de n'avoir aucun bouton coché
2) pour ce qui est du 2ème problème :
la solution est un groupe de contrôles indexés et tonmachin.show dans l'événement click de ce seul groupe.

Pareil pour tes boutons d'option :
un groupe indexé !

il faut que j'utilise

Code:

---

Controle utilisateur ??

---

De quoi parles-tu la ???????
ouvre ton aide en ligne et vois ce que sont les groupes de contrôles indexés !!!!!!!

Tiens :
Il me semble que tu en as besoin !
Lis ce sujet de A à Z et tu verras !
http://www.developpez.net/forums/showthread.php?t=91924

j'ai lu les posts , mais la ou je vois pas comment faire , c'est que nul part j'utilise de Command pour faire un evenement ......

Donc je sais pas quoi mettre en premiere ligne

Code:

---

Private Sub ............ ()

---

Ecoute, là, tu vois ....

Mets-toi à la place de Prog1 (le lien que je t'ai donné) et fais comme si tu étais lui...
Fais l'exercice qu'il a fait (en entier et depuis le début).
Il était on ne peut plus "bleu" en VB et y est parvenu...
Si tu réalises cet exercice jusqu'au bout, tu auras tout compris de ce qu'il convient de faire pour résoudre ton problème actuel.
Sinon : il va nous falloir directement écrire tout le code à ta place et tu n'y auras rien appris !!!!!8O

je ne demande pas que vous ecriviez le code à ma place .
La je viens de créer un groupe indexé de Command1 , j'ai remplacé mes optionbutton .

donc jobtien

Code:

---

1 2 3

Private Sub Command1_Click(Index As Integer) .... end sub

---

mais j'essaye de faire comme la personne que tu as aidé , mais pour lui il s'agissait de recuperer le .Text d'un textbox , d'ou ses ligne

Code:

---

b = Val(nombreb(Index).Text)

---

tandi que moi il faut affecter une valeur à une varialbe donc j'ai essayé

Code:

---

1 2 3

If ForcerO(0).Enabled = True Then CHGT = 2 End If

---

ya pas d'erreur de compilation , mais ca ne fonctionne pas :s

je suis desolé , je suis aller trop vite , ayant changer le NAME de mes command , cela ne fonctionner pas , car la ligne ce nommé

Code:

---

Private Sub Command1_Click(Index As Integer)

---

et ma command se nommé qd à elle

Code:

---

ForcerO

---

Donc normal que ca ne marche pas , now tout est cool avec ca

Code:

---

1 2 3 4 5

Private Sub Command1_Click(Index As Integer) If Command1(Index).Enabled = True Then CHGT = 2 End If End Sub

---

Mais des que je prend en compte mes 2 commandes , elles font la mm chose , et normalement elles ne devraient pas !!!

Code:

---

1 2 3 4 5 6

If Command1(0).Enabled = True Then CHGT = 0 End If If Command1(1).Enabled = True Then CHGT = 1 End If

---

La seulle chose que j'ai besoin de savoir , c'est comment diiférencié , dans mon groupe indexé , mes 3 Command1 ???????
Le soucis vient de la , car quoi je fasse , les 3 command1 ont la mm action .....
merci d'avance

Qu'est ce qui pouvqit bien différencer les differentes commandes indexé ???
L'INDEX justement , donc c'est cool , ca marche now ^^

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click(Index As Integer) If Index = 0 Then CHGT = 1 End If If Index = 1 Then CHGT = 0 End If If Index = 2 Then CHGT = 2 End If End Sub

---

Encore Merci à JMF et BBIL

Et voilà !
Tu as appris à pêcher ! et je suis content.
Bravo à toi !;)

Sauf que personnellement et pour une plus belle présentation du code, je ne ferais pas des IF mais un Select case :

Code:

---

1 2 3 4 5 6 7

Select Case Index Case 0 --> instructions à réaliser Case1 --> instructions à réaliser End select

---

Je rappelle que si tu as une même action pour deux index différents, pas de problèmes, tu écris :

Code:

---

1 2 3 4

... Case 2, 3 ...

---

et que si tu ne testes pas tous les index, il y a le :

Code:

---

1 2

Case Else

---

Instruction que je trouve nettement plus "propre" qu'une série de IF ;)