View Single Post
Old 19-04-2007, 18:44   #2
Gremo
Senior Member
 
L'Avatar di Gremo
 
Iscritto dal: Oct 2000
Città: Udine
Messaggi: 3178
Quote:
Originariamente inviato da Traxsung Guarda i messaggi
ho un piccolo problemino con un programmino in VB.
Praticamente ho una textbox dove all'interno devo insereri un valore numerico, e fin qui nessun problema.
Il numero che devo inserire non deve essere negativo, non deve essere nullo, ne tanto meno deve essere una stringa.

Per quanto riguarda la verifica se il numero è nullo (nel senso che non è stato inserito) ho scritto questo codice:

Codice:
dim numero as double
numero = Convert.ToDouble(textbox1.Text)
if numero = ""  Then
Msgbox (" Errore")
End if
Mentre se è negativo

Codice:
dim numero as double
numero = Convert.ToDouble(textbox1.Text)
if numero < 0 then
Msgbox (" Errore")
End if
In entrambi i casi ottendo errore. Mentre per verificare se è una stringa, non so come fare


Potete aiutarmi ??

Grazie
ciao
ora non ho la possibilità di provare, cmq come prima idea mi viene in mente di
1) mettere Convert.ToDouble(textbox1.Text) in un try/catch
2) se non va in eccezione (stringa di testo oppure stringa nulla, immagino), allora l'utente ha inserito un numero, quindi si può procedere con il controllo del > 0
3) se va in errore, allora sicuramente il convert ha fallito perchè era una stringa, quindi avvertire l'utente

così
Codice:
dim numero as double
Try
      numero = Convert.ToDouble(textbox1.Text)
If numero < 0 Then
      Msgbox ("Il numero deve essere maggiore di zero!")
Else
      Msgbox ("Tutto ok!")
Catch ex As Exception
      Msgbox ("Devi inserire un numero!")
End Try
__________________

Desktop: Intel i7-4770K | Asus Gryphon Z87 | Crucial 16GB DDR3 1600MHz | Gigabyte GTX 780 OC Windforce x3 | Samsung 840 Pro 128GB (x 2 RAID0) | be quiet! Straight Power E9 680W CM
Mercatino: bottoni, Dede371, pippokennedy, Bulbi_67, randose, DarkSiDE, davidepaco, _Legend_

Ultima modifica di Gremo : 19-04-2007 alle 18:48.
Gremo è offline   Rispondi citando il messaggio o parte di esso