hola tengo un problema con este codigo, no logro que cargue el archivo que elijo desde el commondialog
pero no encuentro el porque
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
Hola, a mi me carga perfecto, probe con un .mp3, ¿porque decis que no te carga?
xq cuando le pongo play a un boton q tiene esa funcion
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??
hola mira recien empeze a cabiar cosas y el error del codigo esta aca
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
Cita de: the_chaoz en 28 Septiembre 2009, 04:35 AM
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.