En VB, ¿qué propiedades tiene MMControl?
Propiedades habilitadas/invisibles:
Cada botón corresponde a una propiedad habilitada/invisible, por ejemplo: MMControl1.PlayEnable=True MMControl1.PauseVisibel=false. (Puede hacer que el control sea invisible al cargar configurando los botones requeridos para el reproductor)
Propiedades del comando:
Los comandos comúnmente utilizados son: abrir (abrir dispositivo MCI), reproducir (reproducir Dispositivo MCI), cerrar (cerrar dispositivo MCI)
Atributo TimeFormat (formato de hora)
El formato de hora utilizado para especificar el formato de hora utilizado por toda la información de ubicación. De uso común: mciFormatMillisegundos, valor 0: los milisegundos se almacenan en una variable entera de cuatro bytes. mciFormatFrames, valor 3: el marco se almacena en una variable entera de cuatro bytes
Atributo de longitud
El atributo de longitud
se utiliza para especificar el archivo multimedia en el dispositivo MCI que está abierto La duración total de la reproducción, la unidad de tiempo está determinada por la propiedad TimeFormat
Propiedad de posición
Esta propiedad se utiliza para devolver la posición del archivo multimedia que se está reproduciendo. y la unidad de tiempo está determinada por la propiedad TimeFormat. (Se puede utilizar para que las barras de progreso reflejen el progreso de la reproducción de la canción)
Propiedad Notificar
Determina si se genera un evento de devolución de llamada (evento Listo) después de ejecutar el siguiente comando de MMControl control. Si el valor es Verdadero, se genera un evento de devolución de llamada. Las propiedades de notificación solo son válidas para un comando de control MCI a la vez
Eventos:
Cada botón corresponde a un evento. Por ejemplo, MMControl1_BackClick
Evento hecho. Cuando la propiedad Notificar es Verdadera, el evento Listo ocurrirá al final del comando MCI
Ejemplo: reproducir música y encontrar la duración de la canción
Private Sub Form_Load()
MMCtl.FileName = "d:\1.wma"
MMCtl.TimeFormat = 0 'TimeFormat = 0 'TimeFormat = 0 'TimeFormat = 0 'TimeFormat = 0 'TimeFormat = 0 'TimeFormat = 0 ' TimeFormat = 0TimeFormat = 0 'El número de milisegundos se almacena en una variable entera de cuatro bytes
MMCtl.Command = "open" 'Abre el dispositivo MCI
lblSongLen. Caption = "La duración de la canción es:" & CStr(MMCtl.Length / 1000/60) & "Seconds"
'Establece el formato de tiempo en milisegundos para encontrar la duración de la canción
MMCtl.Command = "reproducir"
End Sub
Sub privado Form_Unload(Cancelar como entero)
MMCtl.Command = "cerrar"
Fin del subtítulo