Mensajes

sisi, si yo a ese codigo le saco todo esto:

Código (vb) [Seleccionar] Expandir

Slider.Max = WMP.currentMedia.duration
me anda perfecto
pero no entendi eso de acortar el codigo usando matrizes de los controles

Código (vb) [Seleccionar] Expandir

Dim var As Integer
Dim vol As Integer

Private Sub Form_load()

Me.Caption = "Chaoz Player"
WMP.uiMode = "none"
MV.ForeColor = &HE0E0E0
MV.BackColor = &HE0E0E0
WMP.settings.volume = 100

End Sub

Private Sub Image1_Click()

If Image1.BorderStyle = 0 Then
Image1.BorderStyle = 1
End If

WMP.Controls.previous
WMP.Controls.play

Timer1.Enabled = True

End Sub

Private Sub Image10_Click()

If Image10.BorderStyle = 0 Then
Image10.BorderStyle = 1
End If

WMP.settings.volume = vol

Timer1.Enabled = True

End Sub

Private Sub Image11_Click()

If Image11.BorderStyle = 0 Then
Image11.BorderStyle = 1
End If

WMP.fullScreen = True

Timer1.Enabled = True

End Sub

Private Sub Image2_Click()

If Image2.BorderStyle = 0 Then
Image2.BorderStyle = 1
End If

WMP.Controls.play

Timer1.Enabled = True

End Sub

Private Sub Image3_Click()

If Image3.BorderStyle = 0 Then
Image3.BorderStyle = 1
End If

WMP.Controls.Next

Timer1.Enabled = True

End Sub

Private Sub Image4_Click()

If Image4.BorderStyle = 0 Then
Image4.BorderStyle = 1
End If

WMP.Controls.stop

Timer1.Enabled = True

End Sub

Private Sub Image5_Click()

If Image5.BorderStyle = 0 Then
Image5.BorderStyle = 1
End If

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

WMP.URL = CommonDialog1.FileName

WMP.Controls.stop

Label1.Caption = CommonDialog1.FileTitle

End Sub

Private Sub Image6_Click()

If Image6.BorderStyle = 0 Then
Image6.BorderStyle = 1
End If

WMP.Controls.pause

Timer1.Enabled = True

End Sub

Private Sub Image7_Click()

If Image7.BorderStyle = 0 Then
Image7.BorderStyle = 1
End If

Timer1.Enabled = True

End Sub

Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image7.BorderStyle = 0 Then
Image7.BorderStyle = 1
End If

WMP.Controls.fastForward

End Sub

Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

WMP.Controls.play

End Sub

Private Sub Image8_Click()

If Image8.BorderStyle = 0 Then
Image8.BorderStyle = 1
End If

Timer1.Enabled = True

End Sub

Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image8.BorderStyle = 0 Then
Image8.BorderStyle = 1
End If

WMP.Controls.fastReverse

End Sub

Private Sub Image8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

WMP.Controls.play

End Sub

Private Sub Image9_Click()

If Image9.BorderStyle = 0 Then
Image9.BorderStyle = 1
End If

vol = WMP.settings.volume
WMP.settings.volume = 0

Timer1.Enabled = True

End Sub

Private Sub MV_ValueChanged()

MV.Value = vol
WMP.settings.volume = MV.Value

End Sub

Private Sub Timer1_Timer()

If Image1.BorderStyle = 1 Then
Image1.BorderStyle = 0
End If

If Image2.BorderStyle = 1 Then
Image2.BorderStyle = 0
End If

If Image3.BorderStyle = 1 Then
Image3.BorderStyle = 0
End If

If Image4.BorderStyle = 1 Then
Image4.BorderStyle = 0
End If

If Image5.BorderStyle = 1 Then
Image5.BorderStyle = 0
End If

If Image6.BorderStyle = 1 Then
Image6.BorderStyle = 0
End If

If Image7.BorderStyle = 1 Then
Image7.BorderStyle = 0
End If

If Image8.BorderStyle = 1 Then
Image8.BorderStyle = 0
End If

If Image9.BorderStyle = 1 Then
Image9.BorderStyle = 0
End If

If Image10.BorderStyle = 1 Then
Image10.BorderStyle = 0
End If

If Image11.BorderStyle = 1 Then
Image11.BorderStyle = 0
End If

Timer1.Enabled = False


End Sub

Private Sub Timer2_Timer()

If Label1.Left = -4500 Then
Label1.Left = 3000
Else
   If Not Label1.Caption = "" Then
   Label1.Left = Label1.Left - 10
   End If
End If

If WMP.settings.volume = 0 Then
Image10.Visible = True
Image9.Visible = False
Else
Image10.Visible = False
Image9.Visible = True
End If

End Sub

Private Sub Slider_Change()

WMP.Controls.currentPosition = Slider.Value

End Sub

Private Sub Slider_Scroll()

Call Slider_Change

End Sub

Private Sub WMP_OpenStateChange(ByVal NewState As Long)

Slider.Min = 0

Slider.Max = WMP.currentMedia.duration

End Sub



WMP = WindowsMediaPlayer1
Slider= Slider1

y perdon si hay cosas que esten hechas de una forma por ahi ineficiente o desprolija pero fue la forma mediante la cual logre hacer lo que queria.

PD: se aceptan sujerencias para mejorar el codigo

PD2: lo que pense que podia causar el error (comentario anterior) no es xq cambie de lugar la sentencia, para que se iniciara mucho despues de cargado el archivo y sigue sucediendo lo mismo.

primero q nada gracias por la respuesta porque me sirvio
pero no entiendo por que salta un error "Variable de tipo Object o la variale del bloque With no está establecida"

Código (vb) [Seleccionar] Expandir

Slider1.Max = WindowsMediaPlayer1.currentMedia.duration

el error aparece cuando yo cargo el archivo de musica.
podria ser que el error sea producido ya que este evento ocurre antes que el archivo este completamente cargado???

hola les comento que estoy haciendo un reproductor de audio utilizando Windows Media Player (WMP) ya que me provee de visualizaciones y es mas facil de usar, pero los botones, comandos, etc. los diseño yo y al diseñar la seek bar con un slider no encontre la forma de conectarla al WMP :S
Mi idea era hacer una seek bar como la del reproductor, es decir si uno hace click en X lugar la cancion se adelante hasta el mismo y que avanze a medida q el tema se reproduce, gracias.

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

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??

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


hala mira
fijate si lo podes manejar desde el commondialog
con la funcion .showprinter
a mi me resulto util

hay un problema con este codigo:

Código [Seleccionar] Expandir

CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close

si el archivo no existe tira error :S

oks
gracias ahora lo pruevo, igual tengo varios problemas con este proyecto que estoy haciendo, asi q vas a ver mas preguntas como estas.
xq hace poco que empece con vb