Evo ti objasnjenje za kod koji je postavio @ @steve585
Inace kod je odlican i jednostavan.
Subrutina se izvrsava kad se pritisne taster na tastaturi.
Prvo je deklarisan string "0123456789" u kojem su svi znakovi koje dozvoljavamo.
InStr fn proverava dali neki substring postoji u stringu i vraca poziciju ili nulu ako ne postoji.
KeyAscii je Ascii vrednost pritisnutog tastera. (npr A=65) a Chr pretvara taj broj u znak (Chr(65)="A")
Code:
InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0
Ova linija znaci "Ako pritisnuti taster nije jedan od 0,1,2,3,4,5,6,7,8,9 onda ponisti akciju"
Kada se KeyAscii postavi na 0 onda se nista ne desava (kao da nije ni pritisnut taster)
Code:
If KeyAscii > 26 Then
Proveravamo samo za KeyAscii vece od 26
Pozdrav