azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
ciao a tutti, sempre alle prese con il mio progettino.
stavo cercando di implementare una funzioncina che funzioni cosi':
ogni volta che clicco il pulsante vengano letti i dati della listbox uno ad uno e scritti in una label e soprattutto che la selezione in blu scorresse pure...
tra l'altro si puo' cambiare la linea blu con un'altro colore?
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() If List1.ListCount >= List1.ListIndex Then Command1.Enabled = False Else Label1 = List1.List(x) x = x + 1 End If End Sub
|
grazie 1000
A.
Ultima modifica effettuata da azz.ciccio il 24/04/2009 alle 16:27 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() dim x as integer for x = 0 to list1.listcount -1 label1.caption = list1.list(x) list1.selected(x) = true doevents next x End Sub
|
poi te lo devi chiaramente adattare...
comunque non penso si possa cambiare colore..
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da GrG:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() dim x as integer for x = 0 to list1.listcount -1 label1.caption = list1.list(x) list1.selected(x) = true doevents next x End Sub
|
poi te lo devi chiaramente adattare...
comunque non penso si possa cambiare colore.. |
ciao, grazie per la risposta! vedro' di adattarlo e/o prendere spunto, inquanto non funziona propio.
grazie cmq, per l'idea
A. |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
in che senso non funziona? da errore il codice oppure non è quello ke volevi tu? se è un errore che errore da? spiega meglio e non limitarti a dire "non funziona" ....
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da GrG:
in che senso non funziona? da errore il codice oppure non è quello ke volevi tu? se è un errore che errore da? spiega meglio e non limitarti a dire "non funziona" .... |
ciao, non funziona nel senso che quando clicco il pulsante. la "linea blu" si posiziona in fondo alla listbox dove non c'e'e nessun dato e da li non si muove.
errori di runtime non ne da'....
A. |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
bè certo -.-
lol... il fatto è che sta sempre giù perchè in realtà già ha fatto il suo dovere, ma è stato così veloce che tu non l'hai visto... mettendo una pausa lo puoi vedere bene...
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() Dim x As Integer For x = 0 To List1.ListCount - 1 Label1.Caption = List1.List(x) List1.Selected(x) = True Pause 0.5 DoEvents Next x End Sub Sub Pause(ByVal interval As Double) Dim Current As Double Current = Timer Do While Timer - Current < interval DoEvents Loop End Sub
|
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da GrG:
bè certo -.-
lol... il fatto è che sta sempre giù perchè in realtà già ha fatto il suo dovere, ma è stato così veloce che tu non l'hai visto... mettendo una pausa lo puoi vedere bene...
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() Dim x As Integer For x = 0 To List1.ListCount - 1 Label1.Caption = List1.List(x) List1.Selected(x) = True Pause 0.5 DoEvents Next x End Sub Sub Pause(ByVal interval As Double) Dim Current As Double Current = Timer Do While Timer - Current < interval DoEvents Loop End Sub
|
|
si, probabilmente perche' ancora una volta non mi sono spiegato bene!
ogni volta che c'e' l'vento click sul pulsante deve avanzare di 1.
ma penso di avere abbastanza materiale per riuscirci.
quando programmavo in assembler per i micro 80X51 era "piu' semplice"
A. |
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
diciamo che adesso funziona... solo che quando arriva alla fine va in errore... pero' sono gia' al 90%
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() avanza x = x + 1 End Sub Sub avanza() Label1.Caption = List1.List(x) List1.Selected(x) = True If List1.Selected(x) = False Then DoEvents End If End Sub
|
per qualsiasi altra rettifica e' il benvenuto
grazie
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Codice sorgente - presumibilmente VB.NET |
Dim x As Integer Private Sub Command1_Click() avanza x = x + 1 End Sub Sub avanza() If x > List1.ListCount - 1 Then x = 0 End If Label1.Caption = List1.List(x) List1.Selected(x) = True If List1.Selected(x) = False Then DoEvents End If End Sub
|
|
|