Titolo: Spostamento circolare sulle ListBox
Categoria: Codice |
|
Ultimo Aggiornamento: 10/03/06 |
Usando le frecce per scorrere una listbox, quando la selezione arriva ad uno degli estremi della lista (inferiore o superiore che sia), una ulteriore pressione dei tasti freccia (verso il basso o verso l'alto rispettivamente) non cambia, giustamente, la riga selezionata.
Se si vuole fare in modo che, quando la riga selezionata è l'ultima, una ulteriore pressione del tasto "Freccia giù" porti la selezione al primo elemento della listbox, basta creare un pulsante nel form, associare al pulsante lo shortcut "Down Arrow" e scrivere il seguente codice nel metodo del pulsante:
Case of : (Form event=On Clicked )
If (ListBox=0)
ListBox:=1
Else ListBox:=ListBox+1
If (ListBox>Size of array(arrEsempio))
ListBox:=1
End if End if SELECT LISTBOX ROW(ListBox;ListBox)
End case Stesso principio si può adottare per un pulsante associato a "Up Arrow":
Case of : (Form event=On Clicked )
ListBox:=ListBox-1
If (ListBox<=0)
ListBox:=Size of array(arrEsempio)
End if SELECT LISTBOX ROW(ListBox;ListBox)
End case
| Inviato da: PierPaolo Sichera |
|
Visite: 13609 |
Se accedi con utente e password, puoi aggiungere dei commenti.
