Add 1 to a Variable by pressing a Button in VB6

[Blacktronics]

Hi there i making a file store with a password but it only counts 1 and stops i can click at the button like a ... i am using VB6

Code: Select all

Private Sub Command2_Click()

If Text1.Text = "9999999" Then
End
Else
Counter = Counter + 1
Text2.Text = (Counter)
End If
If Text2.Text = "5" Then
MsgBox "Account is Locked"
Text1.Enabled = False

End If
End Sub





Private Sub Form_Load()
Dim Count As Integer
Counter = 0#
End Sub


Hope u Can help

[Suffer]

Try this,but im not sure:

Counter = 0
If Text1.Text = "9999999" Then
End
Else
Counter = Counter + 1
Text2.Text = (Counter)
End If
If Text2.Text = "5" Then
MsgBox "Account is Locked"
Text1.Enabled = False

End If
End Sub

[Blacktronics]

Nope Won´t work
Edit :
Any Other ideas?

Okay i Got it for every one who needs that the code below :

Code: Select all

Private Sub xpButton1_Click(Index As Integer)
If Text1.Text = "Password" Then
MsgBox "Acces Granted"

Else
MsgBox "Error : Wrong Passcode"
Label3.Caption = Val(Label3.Caption) - Val(1)
Text1.Text = ""

End If
If Label3.Caption = "0" Then
MsgBox "Password typed to often wrong passcode is locked"
Text1.Enabled = False

End If
End Sub

Be Sure that if u copy the code u change the Object names in the code

[Keithuk]

Hi there i making a file store with a password but it only counts 1 and stops i can click at the button like a ... i am using VB6

Code: Select all

Private Sub Command2_Click()

If Text1.Text = "9999999" Then
End
Else
Counter = Counter + 1
Text2.Text = (Counter)
End If
If Text2.Text = "5" Then
MsgBox "Account is Locked"
Text1.Enabled = False

End If
End Sub

Private Sub Form_Load()
Dim Count As Integer
Counter = 0#
End Sub


I know this is an old topic but no one has given a useful solution.

Well first of Blacktronics you aren't specifying the Counter variable in the correct place. Count is specified in Form_Load but its not needed so you can delete it.

Declare Dim Counter As Integer in the Declaration section of the code window. Thats right at the top under Option Explicit when you decide to use it.

You aren't using Option Explicit either because that would have told you that error. If you don't know what it does or how to set it up then just ask.