[vb6] variable perd sa valeur d'une forme à l'autre
variable perd sa valeur d'une forme à l'autre [vb6] - VB/VBA/VBS - Programmation
MarshPosté le 13-05-2006 à 10:35:50
Bonjour à tous, je fais un quizz "quitte ou double" voici le code de la forme fautive: Private Sub Form_Load() Label3.Caption = gresultat End Sub Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() If Option1.Value = True Then Label2.Caption = "mauvaise réponse" gresultat = 1 End If If Option2.Value = True Then gresultat = gresultat * 2 Label2.Caption = "bonne réponse" End If If Option3.Value = True Then Label2.Caption = "mauvaise réponse" gresultat = 1 End If Command1.Visible = True End Sub
Private Sub Timer1_Timer() Visible = True Label2.Visible = True Command2.Visible = True End Sub
+ le module suivant: Public gresultat As Integer mais la valeur de la variable ne change qu'une fois; le quizz ne fonctionne que sur la forme1. Aidez-moi SVP. Merci d'avance.
Marsh Posté le 13-05-2006 à 10:35:50
Bonjour à tous,
je fais un quizz "quitte ou double"
voici le code de la forme fautive:
Private Sub Form_Load()
Label3.Caption = gresultat
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
Label2.Caption = "mauvaise réponse"
gresultat = 1
End If
If Option2.Value = True Then
gresultat = gresultat * 2
Label2.Caption = "bonne réponse"
End If
If Option3.Value = True Then
Label2.Caption = "mauvaise réponse"
gresultat = 1
End If
Command1.Visible = True
End Sub
Private Sub Timer1_Timer()
Visible = True
Label2.Visible = True
Command2.Visible = True
End Sub
+ le module suivant:
Public gresultat As Integer
mais la valeur de la variable ne change qu'une fois; le quizz ne fonctionne que sur la forme1.
Aidez-moi SVP.
Merci d'avance.