Chiusura d'effetto

di
ricco93
il
1 risposte
R
ricco93
Pochi posts
Iscritto da
set, 2008
Messaggi:
2

Chiusura d'effetto

Per creare un chiusura ad "effetto" ho scritto ciò:
Dim He As Double
        Dim Wi As Double
Inizio:
        If Me.Width = 20 Then
            Me.Close()
        End If
        Wi = Me.Width
        Me.Width = Wi - 5
        He = Me.Height
        Me.Height = He - 5
        GoTo Inizio
L'effetto ciè pero quando arrivo alla "fine" dove si dovrebbe chiudere, la routin continua finchè VS2008 mi dice:

ArgumentException non è stata gestita
"-1" non è un valore valido per height

...e poi altre cose...

Che ne dite? Cosa puo essere?

Grazie

1 Risposte

  • C
    cenere
    Utente Attivo
    Iscritto da
    apr, 2007
    Messaggi:
    324

    Re: Chiusura d'effetto

    Non fai il controllo per height e poi non mettere = 20 ma <=20 mettendo -5 km valore può essere divero da 20 e quindi il controllo non viene eseguito e non te lo kiude.....
    ciao
Devi accedere o registrarti per scrivere nel forum
1 risposte