[VB.net]Eccezione non gestita

[chibi89]

Come da immagine come posso risolvere l'inconveniente dell'eccezione che si genera nei softkey.text?
Nell'immagine qua affianco vedete come replicare il form nel caso voleste provare 71384752_748888405586585_3229851145014870016_n.png

 Private Sub GetKey_Click(sender As Object, e As EventArgs) Handles GetKey.Click       
 If ((SoftKey1.Text.Length = 5) And (SoftKey2.Text.Length = 5) And
            (SoftKey3.Text.Length = 5) And (SoftKey4.Text.Length = 5) And
            (SoftKey5.Text.Length = 5) And SoftKeyUser.Text.Length >= 1) = V Then
            LocalUser = SoftKeyUser
            KeyUser =
                SoftKey1.Text And SoftKey2.Text And
                SoftKey3.Text And SoftKey4.Text And
                SoftKey5.Text
            MsgBox("Eseguo verifica della key inserita con il server locale delle licenze", stileinformation, "Newspoint Software Home Center")
            For Each ControlloKey As String In IO.File.ReadAllLines(Application.StartupPath = "LicenseKey.inf")
                If ControlloKey.Contains("Key= ") Or ControlloKey.Contains("Key2= ") Then
                    If ((KeyUser = Mid(ControlloKey, 5)) Or (KeyUser = Mid(ControlloKey, 6))) Then
                        MsgBox("Key registrata con successo", stileinformation, "Newspoint Software Home Center")
                        SistemaKey.Default.Save()
                        SistemaKey.Default.Reload()
                        user.Text = LocalUser
                        key.Text = KeyUser
                    Else
                        MsgBox("La chiave inserita non è stata trovata nel dataSet", stileinformation, "Newspoint Software Home Center")
                    End If
                Else
                End If
            Next
        Else
            MsgBox("impossibile aggiornare la licenza")
        End If
    End Sub

[patel]

le immagini sono poco leggibili, il codice deve essere copiato come testo racchiuso tra i tag code

[URANIO]

Dove va in eccezione nel codice che hai postato e soprattutto che eccezione restituisce e con che messaggio?

[chibi89]

lo scritto su, va nei SoftKey1.Text.Length (system.invalidCastExcepition)cast non valido dalla stringa "testo" al tipo long

[optime]

blocca già lato client l'inserimento di caratteri diversi da numeri

[chibi89]

consigli pratici? sto provando ma sono sempre punto e a capo

[URANIO]

lo scritto su, va nei SoftKey1.Text.Length (system.invalidCastExcepition)cast non valido dalla stringa "testo" al tipo long

L'eccezione è strana, la lenght dovrebbe restituire la lunghezza della stringa, se fosse null dovrebbe restituire un altra eccezione, invece sembra che la funzione length stia cercando di "castare" la stringa in numero.


Ma softkey1 che oggetto è?
SoftKey1.Text restituisce una stringa oppure un oggetto?

[chibi89]

tutte le softkey sono delle textbox

[optime]

consigli pratici? sto provando ma sono sempre punto e a capo

quanti ne vuoi https://www.google.com/search?q=vb.n...x+numbers+only

[URANIO]

Hai lo stacktrace dell'eccezione?

Cmq prova così:
Salva il valore delle textbox in delle variabili string e fai il controllo della lunghezza con le variabili.

PS
Non mi è chiaro l'IF, l' =V non ha senso