Probleme avec radiobuttons

Signaler
Messages postés
49
Date d'inscription
vendredi 11 août 2006
Statut
Membre
Dernière intervention
26 juin 2007
-
Messages postés
49
Date d'inscription
vendredi 11 août 2006
Statut
Membre
Dernière intervention
26 juin 2007
-
bonjour,

j'explique mon probleme

j'ai 4 radiobuttons, un button_click pour valider et un label
quand je clic sur le radiobutton 1 et le valide, mon label recoit bien le texte voulue
mais quand je clic sur les autres radiobuttons et le valide , le label conserve le texte du 1er
voici le code :
Private

Sub
Button1_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click

If RadioButton1.Checked =
True

Then
'code
end if
If

RadioButton2.Checked =
True
Then
'code
end if
If

RadioButton3.Checked =
True
Then
'code
end if
If

RadioButton4.Checked =
True
Then
'code
end if
end sub

je ne sais pas si je me suis bien expliquer mais merci de votre d'avance

gilles

4 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonjour, il n'y a aucune raison que cela ne fonctionne pas. Peux tu nous donner le code qu'il y a dans tes conditions If.
Messages postés
49
Date d'inscription
vendredi 11 août 2006
Statut
Membre
Dernière intervention
26 juin 2007

je veux bien mais c'est un code facon gilles , facon debutant et c'est long :)

voila le code que j'ai mis

If RadioButton1.checked =
True
Then

Dim a = Label37.Text

Dim b = Label38.Text

Dim c = Label39.Text

Dim d = Label40.Text

Dim m = Label41.Text

Dim f = Label42.Text

Dim g = Label43.Text

Dim h = Label44.Text

Dim i = Label45.Text

Dim j = Label46.Text

Dim k = Label47.Text

Const Z = 22.5

If Val(a) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

End
If 

If Val(a) + Val(b) >= Z
And Val(a) < Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

End
If

If Val(a) + Val(b) < Z
And Val(a) + Val(b) + Val(c) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

End
If

If Val(a) + Val(b) + Val(c) < Z
And Val(a) + Val(b) + Val(c) + Val(d) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

End
If

If Val(a) + Val(b) + Val(c) + Val(d) < Z
And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

End
If

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) < Z _

And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

End
If

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) < Z
And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

Label53.BackColor = System.Drawing.Color.RoyalBlue

End
If

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) < Z _

And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

Label53.BackColor = System.Drawing.Color.RoyalBlue

Label52.BackColor = System.Drawing.Color.Black

End
If

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) < Z _

And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(i) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

Label53.BackColor = System.Drawing.Color.RoyalBlue

Label52.BackColor = System.Drawing.Color.Black

Label51.BackColor = System.Drawing.Color.Black

End
If 

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(i) < Z _

And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(i) + Val(j) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

Label53.BackColor = System.Drawing.Color.RoyalBlue

Label52.BackColor = System.Drawing.Color.Black

Label51.BackColor = System.Drawing.Color.Black

Label50.BackColor = System.Drawing.Color.White

End
If

If Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(i) + Val(j) < Z _

And Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(i) + Val(j) + Val(k) >= Z
ThenLabel59.BackColor = System.Drawing.Color.Yellow

Label58.BackColor = System.Drawing.Color.Yellow

Label57.BackColor = System.Drawing.Color.Yellow

Label56.BackColor = System.Drawing.Color.Red

Label55.BackColor = System.Drawing.Color.Red

Label54.BackColor = System.Drawing.Color.RoyalBlue

Label53.BackColor = System.Drawing.Color.RoyalBlue

Label52.BackColor = System.Drawing.Color.Black

Label51.BackColor = System.Drawing.Color.Black

Label50.BackColor = System.Drawing.Color.White

Label49.BackColor = System.Drawing.Color.White

End
If

End
If

c'est un programme de comptage de point pour un sport  et ce code se trouve avec une constante Z differente  à chaque radiobutton
au fait , je vend  des dolipranes :)

merci quand meme
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Ok la comme sa c'est pas évident, ce que je te propose c'est de passer cette partie de  code en mode debug pour voir justement ce qui se passe quand tu as sélectionné un autre radiobutton que le 1.
Donc met un point d'arret sur If RadioButton1.Checked = True Then (clic sur le coté gauche en face de cette ligne).
Et avance pas à pas avec F10 une fois que tu es sur le point d'arret pour observer ce qui se passe.
Messages postés
49
Date d'inscription
vendredi 11 août 2006
Statut
Membre
Dernière intervention
26 juin 2007

ok , je vais essayer !

merci