🚀 go-pugleaf

> > Ciao a tutti,
> > ho bisogno di un aiuto...
> > Sto cercando di utilizzare la funzione keypress su di una
inputbox,evitare
> > ad esempio che si digiti un valore <10 nella casella di testo.
> > Per molti di voi � semplice ma io avendo ripreso in mano VB dopo mesi ho
> > molte difficolt�...

"Spieg" <spiegator1@tin.it> ha scritto nel messaggio
news:WTnFa.70083$pR3.1480498@news1.tin.it...
> Non usare l'evento keypress.

Non sono d'accordo...
Nell'evento KeyPress
' Solo numeri ,il punto e Backspace, i tasti freccia vanno in KeyDown e Up
if instr("0123456789." & chr$(8),chr$(KeyAscii)) = 0 then KeyAscii = 0
' Se gi� c'� il punto,lo rifiuto...
if instr(text1.text,".") <> 0 then KeyAscii = 0

> Con questo infatti puoi al limite impedire l'inserimento di tasti non
> numerici e basta.
> Usa invece gli eventi lostfocus e validate per controllare il contenuto
del
> campo e se non rispetta quello che vuoi allora puoi:

In questo caso si :
Nell'evento lostfocus
If val(text1.text) < 10 then
    msgbox "Valore errato !"
    text1.setfocus
end if

Genesio