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