Foro de elhacker.net

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!!!

Hola, una chapuza muy mala...

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.

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



Muchas cenKius !!   ;-)