Elemento "parpadeante" en un listbox.

[r0xSoFT]

Wenas a tod@s !

Necesito que alguien me heche una mano.


Tengo un listbox con varios elementos y lo que quiero hacer es que el ultimo que se ha seleccionado parpadee (despues de pulsar un boton). Me ejjjplico.


Si tengo 5 elementos, por ejemplo, y selecciono el número 3 y le doy al boton, lo que quiero es que el elemento 3 me parpade, de forma que se sepa cual ha sido el ultimo seleccionado, ¿esto es posible?.


Salu2!!!

[seba123neo]

Hola, una chapuza muy mala...

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim vItem As Integer, i As Integer
Dim Pausa As Long

Private Sub Command1_Click()
    If List1.ListCount = 0 Then Exit Sub
    vItem = List1.ListIndex
    Timer1.Enabled = True
    Timer1.Interval = 200
End Sub

Private Sub Form_Load()
    For i = 0 To 5
        List1.AddItem "Item " & i
    Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Private Sub Timer1_Timer()
    List1.Selected(vItem) = True
    Pausa = 0.5 + Timer
    While Pausa >= Timer
        DoEvents
    Wend
    List1.Selected(vItem) = False
End Sub


saludos.

[r0xSoFT]

En principio parece buena opción, aunque voy a buscar la forma de optimizarlo.



Muchas cenKius !!