Red de conocimiento informático - Problemas con los teléfonos móviles - 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

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?