Tasti di scorrimento per listview

ors

il 13 mar 2019, 09:03

6 risposte

ors

Utente Attivo

Iscritto da: giu, 2018

Messaggi:: 157

Tasti di scorrimento per listview

13 mar 2019, 09:42

Buongiorno a tutti,
Avrei necessità di scorrere la listview con due bottoni(verso l'alto e verso il basso) proprio come se usassi la scrollbar. Inizialmente avevo risolto il problema selezionando l'elemento successivo o precedente nella listview al premere dei pulsanti; ho dovuto abbandonare questa scelta, siccome gestisco l'evento focus che ogni volta che seleziono un'elemento nella listview appare un messaggio.
Qualcuno ha qualche idea?
Grazie mille a tutti!

6 Risposte

patel
Molto attivo
Iscritto da
giu, 2018
Messaggi:
550
Re: Tasti di scorrimento per listview
13 mar 2019, 16:55
Con google "vb.net how to scroll listview"
O
ors
Utente Attivo
Iscritto da
giu, 2018
Messaggi:
157
Re: Tasti di scorrimento per listview
14 mar 2019, 10:07
Grazie mille Patel per la tua risposta,
l'ho già fatta questa ricerca, assieme a molte altre, ma non sono riuscito a trovare nessun articolo che potesse darmi spunto per risolvere il problema.
A quale post della ricerca che hai linkato ti riferisci?

ors

Utente Attivo

Iscritto da: giu, 2018

Messaggi:: 157

Re: Tasti di scorrimento per listview

14 mar 2019, 10:36

Ho trovato questa soluzione, la posto, magari può servire ad altri:

Dim lastIndex As Integer
        Me.Refresh()
        Dim i As Integer = If(ListView1.TopItem.Text = Nothing, -1, ListView1.TopItem.Index)
        If i > -1 Then
            If i = lastIndex OrElse i = ListView1.Items.Count - 2 Then
                i = 0
            End If
            lastIndex = i
            ListView1.TopItem = ListView1.Items(System.Threading.Interlocked.Increment(i))
        End If

O
ors
Utente Attivo
Iscritto da
giu, 2018
Messaggi:
157
Re: Tasti di scorrimento per listview
14 mar 2019, 10:39
Vorrei solo chiedere una cosa, siccome io non ho mai utilizzato tale operazione,Non riesco a capire che valore da a i questa riga di codice:
```
 Dim i As Integer = If(ListView1.TopItem.Text = Nothing, -1, ListView1.TopItem.Index)
```
patel
Molto attivo
Iscritto da
giu, 2018
Messaggi:
550
Re: Tasti di scorrimento per listview
14 mar 2019, 18:29
È una versione compatta di
```
Dim i As Integer
If ListView1.TopItem.Text = Nothing then
  i = -1
else
  i =ListView1.TopItem.Index
end if
```
O
ors
Utente Attivo
Iscritto da
giu, 2018
Messaggi:
157
Re: Tasti di scorrimento per listview
18 mar 2019, 09:32
Ah, ok, Grazie mille Patel

Devi accedere o registrarti per scrivere nel forum

6 risposte