Programming Forums > Application Development > Visual Basic

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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Completely oblivous	CodeJunkie	Assembly	30	Aug 20th, 2005 11:03 AM
Completely new to VB.NET	Jaymes	Visual Basic .NET	4	May 28th, 2005 7:04 PM
Completely lost, help needed	bliznags	C++	2	Mar 19th, 2005 4:44 PM

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Completely new, please help