Código fuente VB6.0 ListView1 ¿El tiempo en la segunda fila de cada columna ha expirado y la canción se reproducirá automáticamente? ¿Cómo escribir esta declaración IF? Proporcione el código fuente detallado
Establezca un temporizador llamado timPlay y establezca el atributo de intervalo en 500
Supongamos que el nombre de Listview es lstView y el nombre de WMP es WMPlayer
El código es el siguiente:
Private?Sub?TimPlay_Timer()
Dim?i?as?Integer
For?i?=?1? A?lstView.ListItems.Count
Si?lstView.ListItems(i).SubItems(2)?Entonces
WMPlayer.Controls.Stop
WMPlayer. URL?=?lstView.ListItems (i).SubItems(3)
WMPlayer.Controls.Play
WMPlayer.URL?If
DoEvents
Siguiente
¿Fin?