Problema Visual Basic 2008

[mike94]

Questo è il codice:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Nome As String
Dim numeroscattibollettaprecendente, numeroscattibollettaattuale, canonefisso As Short
Dim costodelloscatto As Byte
Nome = Label1.Text
numeroscattibollettaprecendente = Label2.Text
numeroscattibollettaattuale = Label3.Text
canonefisso = Label6.Text
costodelloscatto = (numeroscattibollettaattuale - numeroscattibollettaprecendente) * canonefisso
Label5.Text = costodelloscatto
End Sub
End Class

Ringrazio Tutti Quelli Che mi risponderanno...
Il problema è Cast non valido dalla stringa "Numero Scatti Bolletta Precedent" al tipo 'Short'.

[ShaleN]

Linguaggio??
Versione??

Datti una letta al Regolamento

Comunque penso che l'errore sia dovuto al fatto che il testo della label nonmiricordochenumero non sia completamente numerico e che quindi non possa essere convertito in short.

[ShaleN]

Originariamente inviato da ShaleN
Linguaggio??
Versione??

Datti una letta al Regolamento

Scusa, ho letto in ritardo il titolo della discussione

[mike94]

Ho letto Il Regolamento... Va Bene il titolo?? Ho Inserito La Versione "08" e Il Linguaggio "Visual Basic"

[mike94]

Originariamente inviato da ShaleN
Linguaggio??
Versione??

Datti una letta al Regolamento

Comunque penso che l'errore sia dovuto al fatto che il testo della label nonmiricordochenumero non sia completamente numerico e che quindi non possa essere convertito in short.

Non ho capito... Scusami..
Potresti Correggermelo tu??

[ShaleN]

Immagino che il testo della label venga inserito dall'utente tramite una TextBox o amici vari. In questo caso l'utente potrebbe inserire qualsiasi cosa nella label. Quando tu vai a prelevare il valore dalla label (che è di tipo string) e tenti di salvarlo in una variabile di tipo short possono accadere due cose:
primo: il testo è numerico e la conversione avviene senza problemi;
secondo: il testo non è numerico e la conversione genera un'eccezione.

Per evitare una cosa del genere basta scrivere un controllo che verifichi che il testo sia effettivamente numerico (tipo questo):

 If IsNumeric(Label1.Text) Then
            '...
        Else
            '...
        End If