[RESOLVED] question in textbox

can you limit the numbers that the textbox will accept? but also you can
input a positive sign?

for example:
I have 2 textboxes
text1
text2
in text1 I input 4 then
text2 will accept 4 numbers: 9876 but you can also add a "+" to it

can it be possible?

thanks

What you are looking for is something on the keypress event...put this in your code:

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Chr(KeyAscii), "1234567890+") = 0 Then KeyAscii = 0
End Sub

change the "text1" to whatever you need, and change the "1234567890+" to whatever you need to *allow*

However, if you're talking about limiting the length, that's a different matter...still doable though. If this is so, tell me and I'll have a go :-)

hello smux...
what I mean is, can I specify the number of digits that a textbox can accept?
but also you can add a "+"

Textboxes have a MaxLength property.

VB Code:

TextBox.MaxLength = 5

You could do something like this:

VB Code:

Private Sub Form_Load()
Text1.MaxLength = 4
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then ' if enter is pressed
Text1.MaxLength = 5
Text1.SelStart = Len(Text1.Text)
Text1.SelText = "+"
Text1.Locked = True
End If
End Sub

chem

the maxlength must not be fix
the user will be the one who will input the maxlength...

So setup another textbox, do it like this:

VB Code:

TextBox.MaxLength = CLng(txtBoxMaxLength.Text)

chem

excuse me again, is there another code for this?

Another code? How do you mean?

chem

excuse me, can I loop this statement? like this:

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
For x = 0 To 10
If (KeyAscii = 43) Then
Text1.MaxLength = Val(Text2.Text) + 1
End If
Next x
End Sub

rather than a loop, try using instr:

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(text1,"+") <> 0 Then Text1.MaxLength = Val(Text2.Text) + 1 else Text1.MaxLength = Val(Text2.Text)
End Sub

It didn't work, what code can I use to add 1 to the maxlength whenever I input a positive sign?

How many times would you be adding a "+"? If more than once, try this:

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
tx = Text1 + Chr(KeyAscii)
tx = Replace(tx, "+", "")
Text1.MaxLength = Val(text2) + (Len(Text1) - Len(tx)) +1
End Sub

This bit of code first adds the new character to a temporary string...then it removes all "+" and compares length to original then changes maxlength, adding the number of + to the value of text2 and setting maxlength with this

Edit: minor bugfix :-)

when I input 2 in text2, in only accepts 1 digit

See above...fixed the bug :-)

waaa...another question, how can I compare if there are 2 or more "+" like:
1342+++
and must be an error

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
tx = Text1 + Chr(KeyAscii)
tx = Replace(tx, "+", "")
totplus = (Len(Text1) - Len(tx)) +1
if totplus >1 then 'ERROR CODE HERE!
Text1.MaxLength = Val(text2) + totplus
End Sub

I'll just edit some errors. Thanks!