[RESOLVED] question in textbox

[belvita]

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

[smUX]

What you are looking for is something on the keypress event...put this in your 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 :-)

[belvita]

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

[chemicalNova]

Textboxes have a MaxLength property.

TextBox.MaxLength = 5

You could do something like this:

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

[belvita]

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

[chemicalNova]

So setup another textbox, do it like this:

TextBox.MaxLength = CLng(txtBoxMaxLength.Text)

chem

[belvita]

excuse me again, is there another code for this?

[chemicalNova]

Another code? How do you mean?

chem

[belvita]

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

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

[smUX]

rather than a loop, try using instr:

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

[belvita]

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

[smUX]

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

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 :-)

[belvita]

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

[smUX]

See above...fixed the bug :-)

[belvita]

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

[smUX]

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

[belvita]

I'll just edit some errors. Thanks!