[VB.NET] Controllo se contenuto textbox è numerico (era: aiutino (if then else))

[Newmicrocip]

Salve ragazzi,
Ho 2 textbox e vorrei che se si digitano caratteri all'interno compaia un messaggio di errore,
Mi aiutereste a mettere questo codice elementare nella forma corretta .....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If IsNumeric(TextBox1.Text) = False Then
If IsNumeric(TextBox2.Text) = False Then
End If
MsgBox("Inserire valori numerici ", vbCritical, "ERRORE")
TextBox1.Text = ""
TextBox2.Text = ""

Grazie a tutti
P.S. scusate l'ignoranzietà

[LeleFT]

Come prevede il Regolamento, i titoli devono essere esplicativi del contenuto della discussione.

Correggo io e ti invito a fare più attenzione in futruro...


Ciao.

[Newmicrocip]

scusami pensavo di arrivare subito al problema..cmq se mi puoi aiutare sono qui!!!

[Newmicrocip]

Allora il problema me lo fà sulla textbox2 penso di aver scritto il codice iniziale un po' maluccio ...vi prego potreste darmi una mano..in fondo non chiedo molto!!!!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        

If IsNumeric(TextBox1.Text) = False Then
If IsNumeric(TextBox2.Text) = False Then 
End If             
MsgBox("Inserire valori numerici ", vbCritical, "ERRORE")             
TextBox1.Text = ""             
TextBox2.Text = "" 

        Else
            TextBox3.Text = CInt(TextBox1.Text) * 0.78
            TextBox5.Text = CInt(TextBox1.Text) * 0.781
            TextBox6.Text = CInt(TextBox1.Text) * 0.782
            TextBox7.Text = CInt(TextBox1.Text) * 0.783
            TextBox11.Text = CInt(TextBox1.Text) * 0.784
            TextBox12.Text = CInt(TextBox1.Text) * 0.785
            TextBox13.Text = CInt(TextBox1.Text) * 0.786
            TextBox14.Text = CInt(TextBox1.Text) * 0.787
            TextBox15.Text = CInt(TextBox1.Text) * 0.788
            TextBox16.Text = CInt(TextBox1.Text) * 0.789
            TextBox17.Text = CInt(TextBox1.Text) * 0.79
            TextBox18.Text = CInt(TextBox1.Text) * 0.791
            TextBox19.Text = CInt(TextBox1.Text) * 0.792
            TextBox20.Text = CInt(TextBox1.Text) * 0.793
            TextBox21.Text = CInt(TextBox1.Text) * 0.794
            TextBox22.Text = CInt(TextBox1.Text) * 0.795
            TextBox23.Text = CInt(TextBox1.Text) * 0.796
            TextBox24.Text = CInt(TextBox1.Text) * 0.797

            TextBox4.Text = CInt(TextBox3.Text) + TextBox2.Text
            TextBox8.Text = CInt(TextBox5.Text) + TextBox2.Text
            TextBox9.Text = CInt(TextBox6.Text) + TextBox2.Text
            TextBox10.Text = CInt(TextBox7.Text) + TextBox2.Text
            TextBox25.Text = CInt(TextBox11.Text) + TextBox2.Text
            TextBox26.Text = CInt(TextBox12.Text) + TextBox2.Text
            TextBox27.Text = CInt(TextBox13.Text) + TextBox2.Text
            TextBox28.Text = CInt(TextBox14.Text) + TextBox2.Text
            TextBox29.Text = CInt(TextBox15.Text) + TextBox2.Text
            TextBox30.Text = CInt(TextBox16.Text) + TextBox2.Text
            TextBox31.Text = CInt(TextBox17.Text) + TextBox2.Text
            TextBox32.Text = CInt(TextBox18.Text) + TextBox2.Text
            TextBox33.Text = CInt(TextBox19.Text) + TextBox2.Text
            TextBox34.Text = CInt(TextBox20.Text) + TextBox2.Text
            TextBox35.Text = CInt(TextBox21.Text) + TextBox2.Text
            TextBox36.Text = CInt(TextBox22.Text) + TextBox2.Text
            TextBox37.Text = CInt(TextBox23.Text) + TextBox2.Text
            TextBox38.Text = CInt(TextBox24.Text) + TextBox2.Text


        End If

    End Sub

[LeleFT]

Forse così va un po' meglio... (credo che sia il caso di fare un ripassino delle basi del linguaggio):

If (IsNumeric(TextBox1.Text) = False) OR (IsNumeric(TextBox2.Text) = False) Then 
   MsgBox("Inserire valori numerici ", vbCritical, "ERRORE")
   TextBox1.Text = ""
   TextBox2.Text = ""
Else
   ...   ' Tutto il resto
End If

Una versione equivalente, ma più elegante:

If Not(IsNumeric(TextBox1.Text)) OR Not(IsNumeric(TextBox2.Text)) Then 
   MsgBox("Inserire valori numerici ", vbCritical, "ERRORE")
   TextBox1.Text = ""
   TextBox2.Text = ""
Else
   ...   ' Tutto il resto
End If

Ciao.

[Newmicrocip]

grazie veramente di cuore..provo subito...

Opsss dimenticavo :
In seguito con un pulsantino chiamato "reset" volevo cancellare tutto il contenuto delle textbox ,,,,,
sai come posso fare??? la funzione textbox.clear() non me la prende ..

[LeleFT]

Per ciascuna TextBox setti un valore vuoto...

TextBox1.Text = ""
TextBox2.Text = ""
...

Ciao.

[Newmicrocip]

Non mi stancherò di dirti grazie per la tua disponibilità.....
E cmq per l'ultimo aiutino che mi hai dato niente di più semplice..tutto ok!!!

Ultima cosa :
come posso scrivere il codice per non far immettere nella textbox1 un valore che non superi ad esempio 100 ? stò impazzendoooo....

Grassie

[FioreFix]

Salve, mi inserisco qui perché ho lo stesso problema, ma per ora vorrei limitarmi alla console.
Sono nuovo nel campo e qualcosa mi sfugge...
...quindi vi chiedo di essere esausti nelle risposte.
Vi posto il mio codice, perfettamente funzionante finché non vengono usate lettere:

Module Rettangolo
    Sub main()
        Dim l1, l2, prm, area As Single
        'Titolo
        Console.Title = "Calcolo del perimetro e dell'area di un rettangolo"
        Console.WriteLine("Calcolo del perimetro e dell'area di un rettangolo" + vbCrLf)
        'Inserimento dato
        Do While (l1 <= 0)
            Console.Write(vbCrLf + "Inserire il 1° lato:" + vbTab)
            l1 = Console.ReadLine()
            'Clausola numeri positivi
            If (l1 <= 0) Then
                Console.WriteLine(vbCrLf + "Un rettangolo possiede lati solo con valori positivi maggiori di 0")
            End If
        Loop
        'Inserimento dato
        Do While (l2 <= 0)
            Console.Write(vbCrLf + "Inserire il 2° lato:" + vbTab)
            l2 = Console.ReadLine()
            'Clausola numeri positivi
            If (l2 <= 0) Then
                Console.WriteLine(vbCrLf + "Un rettangolo possiede lati solo con valori positivi maggiori di 0")
            End If
        Loop
        'Operazioni
        prm = (l1 + l2) * 2
        area = l1 * l2
        'Risposte
        Console.WriteLine(vbCrLf + "Il perimetro del rettangolo è:" + vbTab + Str(prm))
        Console.WriteLine("L'area del rettangolo é:" + vbTab + Str(area))
        'Quadrato?
        If (l1 = l2) Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(vbCrLf + "\☺/ ♥ \☻/ ♥ \☺/     È un quadrato!     \☺/ ♥ \☻/ ♥ \☺/")
            Console.ResetColor()
        End If
        'Chiusura
        Console.WriteLine(vbCrLf + vbCrLf + "Premi un tasto per chiudere la console.")
        Console.ReadKey()
    End Sub

End Module

Grazie a chi mi aiuta.

[oregon]

Guarda che il thread è di 4 anni fa ...