TextBox Che accetta solo numeri

[Orione1971]

Salve sono un neofita di visual basic, sto cercando di sviluppare un programmino di calcolo. Avrei bisogno di sapere la sintassi per farsi che una TextBox accetti solo l'immissione di numeri.

[maXim]

Ciao Orione1971,

ci sono diverse possibilità per fare in modo che una TextBox accetti solo l'immissione di numeri... una, molto simile a come viene fatto per i controlli Text in VB, è quella di controllare direttamente l'input individuando se il codice ASCII del tasto premuto rientra in un range ben specifico, ad esempio tra i codici ASCII 48 e 57 che corrispondono rispettivamente allo "0" e al "9":

<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">TextBox1_KeyPress(key)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">' accetta solo numeri:</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Asc</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">(key) < </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">48</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">OR </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Asc</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">(key) > </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">57 </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font></font></font></font></font></font></font>
<font size="2"><font face="Courier New"><font size="2"><font face="Courier New">    TextBox1.IgnoreKey</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font>

... se però hai a che fare con un device tipo un PDA o uno smartphone ti consiglio di "giocare" con la testiera virtuale, SIP (Soft Input Panel), che è un metodo più carino, a tale proposito vedi l'esempio al seguente link: http://www.basic4ppc.com/forum/offic...html#post27214.

Saluti,

Massimo

[Orione1971]

Ti ringrazio mi sei stato di aiuto.