textbox numerica

[neo571]

Come posso fare per creare una textbox numerica ovvero che accetti solo numeri e non lettere ?

[Ceskho]

Potresti usare una ValueBox che è fatta apposta....

[giulio]

e sì ma finisce il divertimento...

due esempi:

Codice: [Seleziona]

PUBLIC SUB TextBox1_change()
  
  DIM n AS Integer
  DIM char, newtext AS String
  
  FOR n = 1 TO Len(LAST.text)
    
    char = Mid$(LAST.text, n, 1)
    
    IF char LIKE "[0-9]" THEN
      newtext = newtext & Mid$(LAST.text, n, 1)    
    ENDIF 
    
  NEXT 
  
  LAST.text = newtext
        
        
END

Codice: [Seleziona]

PUBLIC SUB TextBox1_KeyPress()

  SELECT Key.code 
    CASE Key.Enter, Key.BackSpace, Key.Delete, Key.Left, 
         Key.Right, Key.Return, Key.space 
      RETURN 
  END SELECT 
  
  IF Key.Text LIKE "[0-9]" THEN 
    RETURN
  ELSE 
    STOP EVENT 
  ENDIF 
    
END

[Ceskho]

capisco il vostro entusiasmo ma io preferisco risparmiare quante più righe di codice possibile e questo per me è uno "spreco"....eheheheheheh.... :-P

[neo571]

Grazie