Reset del programma.

di il
4 risposte

Reset del programma.

Buongiorno a tutti
Mi chiamo Pasquale e sono nuovo in questo forum ho provato a cercare la sezione presentati ma non lo trovata, percio mi presento qui, (se esiste scusate ma non sono riuscito a trovarla)
Preciso che non sono un programmatore ma mi diletto e sto cercando di imparare quardando video e cercando su google.

Attualmente sono impantanato sul resettare il piccolo sofware che ho costriuto.
in poche parole
button "cancella tutto" deve resettare il programma (e un piccolo software x la roulette.)
cioe deve cancellare tutto label (ne ho un centinaio) listbox ( che fra poco dovro trasformare in listview) ve llo gia detto che sto imparando
ho provato a cercare il funzionamento del reset ma non mi funziona nulla mi date un dritta
utilizzo visual studio 2010
come imposto il button ?
grazie.
Pasquale.

4 Risposte

  • Re: Reset del programma.

    Ciao,

    a mio avviso potresti cancellare tutte le impostazioni per i vari tipi di oggetto presenti sul form che formano la collection controls del form stesso.
    
    
            For Each oggettino As Object In Me.Controls
                ' Cancella tutti i Text dei TextBox
                If TypeOf oggettino Is TextBox Then
                    oggettino.text = ""
                End If
                ' Cancella tutti i text delle Label
                If TypeOf oggettino Is Label Then
                    oggettino.text = ""
                End If
                ' Cancella tutti i ComboBox
                If TypeOf oggettino Is ComboBox Then
                    oggettino.Items.clear()
                End If
                '...
                ' Aggiungere gli altri controlli da svuotare
                '...
            Next
    
  • Re: Reset del programma.

    Grazie mille ho capito come fare,
    un ottimo comando x determinate label, quante cose da imparare,
    peccato che cosi mi cancella tutto anche quelle predefenite all'origine cosa che non deve fare.
    esiste un modo x cancellare solamente determinate label ?
    ad esempio ho cambiato nome a una serie di label le ho chiamate rit0 rit1 rit2 fino al 36 come posso impostare la cancellazione di queste label usando un for next magari con concatenare i numeri con le lettere es rit & 2 & ".text=""

    Di nuovo grazie
  • Re: Reset del programma.

    Posto che come da indicazioni di Microsoft tutte le label andrebbero nominate con lbl... per rendere più facile la scrittura e la manutenzione del codice potresti inserire all'interno dell' IF la verifica del nome della label.
    Se inizia per "rit" allora il testo sarà cancellato.

    Es.
    
            For Each oggettino As Object In Me.Controls
                If TypeOf oggettino Is Label Then
                    Dim stringa As String = oggettino.name
                    If stringa.Substring(0, 3) = "rit" Then
                        oggettino.text = ""
                    End If
                End If
            Next
    
    Se vuoi cancellare le label es. da 1 a 36 per me sarebbe meglio inserire uno 0 per le label da 1 a 9 e poi:
    
            For Each oggettino As Object In Me.Controls
                If TypeOf oggettino Is Label Then
                    Dim numLblStr As String
                    ' Estrae la sottostringa da pos 4 per 2 caratteri
                    numLblStr = oggettino.name.substring(3, 2)
                    ' Verifica se la sottostringa è un numero (x evitare eccezioni)
                    If IsNumeric(numLblStr) Then
                        Dim numLblInt = CInt(numLblStr)
                        If numLblInt <= 36 Then
                            oggettino.text = ""
                        End If
                    End If
                End If
            Next
    
  • Re: Reset del programma.

    Grazie mille
    e perfetto x il mio scopo
    grazie
    Pasquale.
Devi accedere o registrarti per scrivere nel forum
4 risposte