problema con MMcontrol (control de multimedia)

[CH4ØZ]

hola tengo un problema con este codigo, no logro que cargue el archivo que elijo desde el commondialog
pero no encuentro el porque

Código [Seleccionar] Expandir


Private Sub Image5_Click()

On Error Resume Next
CommonDialog1.Filter = "Archivos MP3 (*.mp3)|*.mp3| Archivos MIDI (*.mid)|*.mid| Archivos de audio de Windows (*.wav)|*.wav"
CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"

Label1.Caption = CommonDialog1.FileTitle

End Sub


[seba123neo]

Hola, a mi me carga perfecto, probe con un .mp3, ¿porque decis que no te carga?

[CH4ØZ]

xq cuando le pongo play a un boton q tiene esa funcion

Código [Seleccionar] Expandir


If MMControl1.Mode = mciModePlay Then
MMControl1.Command = "Pause"
ElseIf MMControl1.Mode = mciModePause Then
MMControl1.Command = "Play"
End If

(supongo q ese codigo estaba bien)

y cuando uso este boton no pasa nada :S

y una pregunta q no tiene nada q ver con esto, como le doy colores al codigo q pongo aca??

[CH4ØZ]

hola mira recien empeze a cabiar cosas y el error del codigo esta aca

Código [Seleccionar] Expandir


If MMControl1.Mode = mciModePlay Then
MMControl1.Command = "Pause"
ElseIf MMControl1.Mode = mciModePause Then
MMControl1.Command = "Play"
End If


asi q voy a ver como lo puedo arreglar

[seba123neo]

y una pregunta q no tiene nada q ver con esto, como le doy colores al codigo q pongo aca??

cuando posteas arriba del combo de los colores hay otro combo que dice "GeSHi" ahi seleccionas el lenguaje y pones el codigo dentro de las etiquetas [ code]

si recien empezas esta bien usar el control multimedia para aprender, pero despues es recomendable usar la api mciSendString que hace todo lo que hace el control...y el commondialog reemplazarlo por las api's...asi te ahorras 2 OCX...

saludos.