Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: ivosperi - 11 Febbraio 2009, 16:34:43

Titolo: Controllo immissione in TextBox
Inserito da: ivosperi - 11 Febbraio 2009, 16:34:43

Ciao
Vorrei controllare che in un text box vengano inseriti solo numeri e il punto in vb usavo aualcosa del genere

Codice: [Seleziona]

Sub text_keypress (Index as Integer, KeyAscii as Integer)
  if KeyAscii >= 48 And KeyAscii <= 57 Then exit sub
  if KeyAscii = 8 Then exit sub
  if Chr$(KeyAscii) = "." Then exit sub
  KeyAscii = 0
End Sub

Consigli???

Ciao ivo

Titolo: Re: Controllo immissione in TextBox
Inserito da: ivosperi - 11 Febbraio 2009, 16:42:21

PS. ho bisogno di questo controllo perché utilizzo questa procedura:

Codice: [Seleziona]

PUBLIC SUB TextQuant_LostFocus()
  IF LAST.text <> "" THEN 
    LAST.text = Format$(LAST.text, "#.00")
  END IF
END

... e se si inseriscono virgole o lettere da errore.
Forse potrei inserire anche un controllo del tipo:

> Se da errore non formattare :idea:

Ciao

Titolo: Re: Controllo immissione in TextBox
Inserito da: - 11 Febbraio 2009, 21:31:23

Usa la valuebox .....