Programming Forums - View Single Post

verion24 · Jul 21st, 2007, 7:08 AM

Thanks so much everyone, I have almost worked it all out. If i type the answer, backspace it, and type it in again, it gives the user another score. How could I resolve this?

 vb Syntax (Toggle Plain Text) 
 
Dim score As Integer
Private Sub Form_Load()
lblscore.Caption = score
End Sub
Private Sub txtquestion1_Change()
If txtquestion1.Text = "beijing" Then
score = score + 1
lblscore.Caption = score
End If
End Sub
Private Sub txtquestion2_change()
If txtquestion2.Text = "pacific ocean" Then
score = score + 1
lblscore.Caption = score
End If
End Sub
 
Dim score As Integer
Private Sub Form_Load()
lblscore.Caption = score
End Sub
Private Sub txtquestion1_Change()
If txtquestion1.Text = "beijing" Then
score = score + 1
lblscore.Caption = score
End If
End Sub
Private Sub txtquestion2_change()
If txtquestion2.Text = "pacific ocean" Then
score = score + 1
lblscore.Caption = score
End If
End Sub

Jul 21st, 2007, 7:08 AM	#11
verion24 Newbie Join Date: Jul 2007 Posts: 6 Rep Power: 0	Thanks so much everyone, I have almost worked it all out. If i type the answer, backspace it, and type it in again, it gives the user another score. How could I resolve this? vb Syntax (Toggle Plain Text) Dim score As Integer Private Sub Form_Load() lblscore.Caption = score End Sub Private Sub txtquestion1_Change() If txtquestion1.Text = "beijing" Then score = score + 1 lblscore.Caption = score End If End Sub Private Sub txtquestion2_change() If txtquestion2.Text = "pacific ocean" Then score = score + 1 lblscore.Caption = score End If End Sub Dim score As Integer Private Sub Form_Load() lblscore.Caption = score End Sub Private Sub txtquestion1_Change() If txtquestion1.Text = "beijing" Then score = score + 1 lblscore.Caption = score End If End Sub Private Sub txtquestion2_change() If txtquestion2.Text = "pacific ocean" Then score = score + 1 lblscore.Caption = score End If End Sub Last edited by verion24; Jul 21st, 2007 at 7:40 AM.