add +1 value to textbox

i wana add +1 value to textbox in vb6 every time i hit button
format = 0000
i wana when i click it show 0001
then again i click it show 0002
and so on
i tried
text1.text = text1.text +1
but it give me 1, 2 , 3
thats not format i need
so plz help me guyz

Text1.Text = Format(Val(Text1.Text + 1), "0000")

Quote:

---

Originally Posted by masoudk1990

Text1.Text = Format(Val(Text1.Text + 1), "0000")

---

thanx work like charm

how i set textbox limit to 9999

Quote:

---

Originally Posted by vbnoob00

how i set textbox limit to 9999

---

Code:

---

Private Sub Form_Load()
    Text1.MaxLength = 4
End Sub

Private Sub Command1_Click()
    If (Val(Text1.Text) < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    End If
End Sub

---

If you wish user only be able to write numbers in textbox write this code in keypress event of textbox

Code:

---

    If (KeyAscii < 48 And KeyAscii <> 8) Or (KeyAscii > 57) Then 'numbers and backspace only :)
        KeyAscii = 0
    End If

---

Quote:

---

Originally Posted by masoudk1990

Private Sub Form_Load()
Text1.MaxLength = 4
End Sub

---

if it go over i wana display msg box error

Quote:

---

Originally Posted by vbnoob00

if it go over i wana display msg box error

---

Code:

---

    If Val(Text1.Text < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If

---

genius thanxxxx

Quote:

---

Originally Posted by masoudk1990

Code:

---

    If Val(Text1.Text < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If

---

---

Quote:

---

Originally Posted by vbnoob00

if it go over i wana display msg box error

---

If you set the maxlength to 4, one CANNOT type in anything larger than 4 characters...so no msgbox would be needed anyway.....

Quote:

---

Originally Posted by vbnoob00

genius thanxxxx

---

i keep getting that msgbox even on 0001 :(

Quote:

---

Originally Posted by vbnoob00

i keep getting that msgbox even on 0001 :(

---

Sorry :)

Code:

---

    If (Val(Text1.Text) < 9999) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If

---