probleme avec radiobuttons

Question

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

cs_Willi · Answer

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.

gillesrun · Answer

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

cs_Willi · Answer

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.

gillesrun · Answer

ok , je vais essayer !

merci

Probleme avec radiobuttons

4 réponses

Votre réponse

Discussions similaires