Ultimo dato listbox

di
andreas91
il
3 risposte
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83

Ultimo dato listbox

Buongiorno, ho una listbox con una serie di numeri (6, 8, 15, 20, 22, 33, 44).
Ogni volta che premo il bottone [trova differenza] mi fa la differenza tra i numeri presenti nella listbox maggiori di 10 e mi da il risultato in una textbox: (Text1= 5, Text1= 10, Text1= 12, Text1= 23, Text1= 34).
Il problema sta nel fatto che trovato l'ultimo numero della listbox (44) al premere nuovamente il bottone nella textbox dovrebbe essere scritto "fine" (Text1= "fine") e premendo nuovamente il bottone dovrebbe ricominciare nuovamente il ciclo come prima: (Text1= 5, Text1= 10, Text1= 12, Text1= 23, Text1= 34).
Ho scritto questa funzione ma arrivato all'ultimo elemento mi da errore.
Public Function Differenza()
For I = 0 To listaElementi.ListCount - 1
If listaElementi.List(I) > 10 Then
Text1.Text = listaElementi.List(I)
Else
Text1.Text = "fine"
End If
Next I
End Function

3 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21791

    Re: Ultimo dato listbox

    Ma non c'è nessun codice comandato da bottone. Questa funzione visualizza solo "fine" e non fa tutto quello che dici
  • A
    andreas91
    Utente Attivo
    Iscritto da
    apr, 2018
    Messaggi:
    83

    Re: Ultimo dato listbox

    Eseguendo questa funzione fa la differenza fino all'ultimo dato della listbox, e poi che non so più come andare avanti
    Public Function Differenza()
    For I = 0 To listaElementi.ListCount - 1
    If listaElementi.List(I) > 10 Then
    Text1.Text = listaElementi.List(I)
    End If
    Next I
    End Function
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21791

    Re: Ultimo dato listbox

    Questo codice non fa nessuna differenza...non so che dici
Devi accedere o registrarti per scrivere nel forum
3 risposte