Textbox

[kavka]

Hello!

Is it possible to define a textbox, that it will not accept fonts and will accept only numbers? Any ideas?

Thx, Kavka

 

[Hennell]

Doubt this is the best way but:

Sub TextBox1_KeyPress (key)
   For i = 48 To 57
    If key = Chr(i) Then Return
   Next
textbox1.IgnoreKey
   
End Sub

would make a text box only accept numbers.

 

[agraham]

Right idea but better coded as

Sub TextBox1_KeyPress (key)
  If (Asc(key) < 48 OR Asc(key) > 59) AND Asc(key) <> 8 Then
  ' allow 0 to 9 and backspace keys
  textbox1.IgnoreKey
  End If
End Sub

 

[Hennell]

Huh - I was closer then I thought I'd be. Although forgetting backspace was a daft oversight...

 

[specci48]

Hi Hennell,

have a look into the italian forum where Filippo provided his fgMaskedEdit.dll:
http://www.b4x.com/forum/showthread.php?t=1710


With this dll you can do excatly what you want!


EDIT: Filippo provided even another library (fgControls.dll) containing the same an some more features: http://www.b4x.com/forum/showthread.php?t=1238

Cheers
specci48

 

[Erel]

Small modification:

Sub TextBox1_KeyPress (key)
  If Not(IsDigit(key)) AND Asc(key) <> 8 Then
  ' allow 0 to 9 and backspace keys
      textbox1.IgnoreKey
  End If
End Sub

 

[alfcen]

Splitting hairs, for decimal numbers in both English (.) and Continental (,)notations as well as allowing for negative numbers:

If (Asc(key) < 44 OR Asc(key) > 59) AND Asc(key) <> 8 Then txtZT.IgnoreKey

The included slash, Chr(48), is a compromise for a shorter line of code.

 

[dennishea]

Their are many ways to skin a kitty but team work makes for the most effiecent way. :sign0188:

p.s. I think that this is a ten star forum.

 

[kavka]

Hello!

Erel, used your code with small modification you made and works great!

Thx, Kavka