Esame / conteggio elementi in ListBox

[oregon]

Con VB5, infatti, se Y> 0 (e quindi, anche se Y=1) il confronto...
If Y = 1 Then LIst_Supporto.Items.Add(X & " " & Buf1)
...viene riconosciuto TRUE.
Con Visual Studio Express, invece, il confronto è di tipo Boolean, quindi è indispensabile la forma If (Y = 1) = True altrimenti Y=1 viene riconosciuto come False.

Se Y è un intero quello che hai scritto non ha molto senso ...

segnalazione di errore grave se si utilizza una variabile che "esce" (??) da un ciclo.

Che vuol dire "una variabile che esce da un ciclo" ? Di quale errore grave parli ?
Scusa ma anche questo non mi pare chiaro ...

Quello che devi fare con VB.NET (e che non si faceva con VB5/6 creando molte volte situazioni confuse) è dichiarare esattamente il tipo di ogni variabile o oggetto usato.

Comunque, una soluzione potrebbe essere

        Dim i As Integer
        Dim curr As String
        Dim cnt As Integer = 1
        Dim prec As String = ListBox1.Items(0).ToString()


        ListBox2.Items.Clear()


        For i = 1 To ListBox1.Items.Count - 1
            curr = ListBox1.Items(i)


            If prec <> curr Then
                ListBox2.Items.Add(prec + " " + cnt.ToString())
                prec = curr
                cnt = 1
            Else
                cnt = cnt + 1
            End If
        Next
        ListBox2.Items.Add(prec + " " + cnt.ToString())

[GrandeTimoniere]

1) Che vuol dire "una variabile che esce da un ciclo" ? Di quale errore grave parli ? Scusa ma anche questo non mi pare chiaro ...

2) Comunque, una soluzione potrebbe essere (eccetera)

1) Prova a scrivere la routine evitando il passaggio W=J e poi I=W, cioè

...
Next J
I = J
If Y = 0 Then LIst_Supporto.Items.Add(X & " " & Buf1)
Next I

...e vedrai l'errore segnalato.

2) Mah, la mia routine, come ho detto, funziona perfettamente e per ora la uso così. Però mi hai dato alcune idee, su cui lavorerò. Grazie per l'attenzione.

[oregon]

1) Prova a scrivere la routine evitando ...

Beh, ovviamente se modifichi parte del codice è ovvio che puoi avere malfunzionamenti, ma si deve capire il perché.

Il fatto è sostanzialmente che il codice non è chiaro ...

1) modifichi il valore dell'indice dela For I all'interno del ciclo mentre questo sta operando (non è un buona regola di programmazione)

2) è ovvio che all'uscita dal ciclo for J sia arrivato oltre il valore di ListBox1.Items.Count-1 e quindi che a quel punto non debba essere utilizzato come valore indice della stessa listbox (è la base di funzionamento della For..Next, in VB5 come in tutte le altre versioni)

3) la If (Y = 1) = True non ha senso ... basta scrivere If Y = 1 e funziona ugualmente.

E' anche importante capire come hai dichiarato tutte le variabili all'inizio.

[GrandeTimoniere]

1) modifichi il valore dell'indice dela For I all'interno del ciclo mentre questo sta operando (non è un buona regola di programmazione)

2) è ovvio che all'uscita dal ciclo for J sia arrivato oltre il valore di ListBox1.Items.Count-1 e quindi che a quel punto non debba essere utilizzato come valore indice della stessa listbox (è la base di funzionamento della For..Next, in VB5 come in tutte le altre versioni)

3) la If (Y = 1) = True non ha senso ... basta scrivere If Y = 1 e funziona ugualmente.

Sono mortificato: hai perfettamente ragione! Eppure - lo giuro - il programma ha iniziato a funzionare benissimo soltanto quando ho scritto If (Y = 1) = True. Con la forma If (Y = 1) = True, facendo elaborare una riga alla volta, nella finestra di "controllo immediato", digitando
? Y = 1
...risultava:
False
Poi mi sono ricordato di aver letto da qualche parte (ma non ricordo dove) che, a differenza delle versioni precedenti di VB, in fase di controlli If ... Then, il compilatore VB.NET converte automaticamente il valore dell'espressione IF in booleano e ricordavo che True non è =1 (oppure False non è =0, non ricordo bene).
Rimane da chiedersi perché diavolo il programma ha iniziato a funzionare bene soltanto con If (Y = 1) = True. Ora funziona indifferentemente con entrambe le versioni. Mah...

Per quanto riguarda l' "uscita" da For ... Next, hai ancora (potevi dubitarne?) ragione tu: a parte l'errore concettuale (all'uscita, il valore di J era più alto di quello che mi serviva e avrebbe comunque comportato un errore) l'errore segnalato - e che impedisce del tutto l'inizio dell'elebaorazione - è J non dichiarato: Non è accessibile a causa del livello di protezione. Tra l'altro, procedendo un'istruzione alla volta nella versione funzionante, all'uscita del ciclo For J posizionando il mouse su J, il compilatore addirittura si rifiuta di fornire il valore, nemmeno null o simile!
Visual Basic 5 (da cui provengo) mi aveva viziato, nel senso che accettava tali ineleganze. Cosa che VB.NET non lascia passare.
Grazie ancora per i consigli.