Necesito ayuda

Jorge
19 de Mayo del 2004
Como hago un programa que me permita ver videos y musica por visual basix. por favor necesito ayuda que es una tarear que vale el 40 % del semestre

al
19 de Mayo del 2004
Hola Jorge!!
bueno, tal vez poniendo algun componente relativo al windows media(en la barra de herramientas en la opción de proyecto en componentes(lo he mirado))
esto puede darte acceso al reproductor multimedia lo que te permitiria ver videos y escuchar música, pero por tu pregunta lo que quieres un programa desde cero, por ello te recomiendo que navegues por la web www.elguille.info (una web muy recomendable)tambien puedes mirar las 3 secciones de trucos de visual basic de www.canalvisualbasic.net o si lo prefieres exponer tur pregunta en esta página(es un foro de microsoft(contestan bastante) y esta es la dirección : http://communities.microsoft.com/newsgroups/default.asp?ICP=Latam&sLCID=es

Espero que te sirva de ayuda.
que tengas mucha suerte!!!!!!

peris
19 de Mayo del 2004
Lo de videos no lo he probado nunca así que no te puedo decir.

pero música es fácil: ese ejemplo es para sonido.wav
si quieres es formato midi es parecido pero no igual.

bueno es así:

pones en un módulo:
Declare Function sndPlaySound Lib "winmm.dll"_ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal _uFlags As Long) As Long

Public Const SND_NOSTOP = &H10

y en el control que quieras del form:
Dim rc As Variant
'hacer sonar aplausos
rc = sndPlaySound("E:sonidosaplausos.wav", SND_NOSTOP)

espero que te sirva. si me entero de lo de video te digo
saludos

peris
19 de Mayo del 2004
para el video:
pon en un filelistbox todos los videos que quieras cargar, y los cargas así:
or x=0 to filelistbox.listcount-1
archivo=filelistblox.list(x)
ejecutar el archivo
next

y luego para poder verlo:

for x=0 to filelistbox.listcount-1
archivo=filelistblox.list(x)
MediaPlayer1.DisplaySize = mpFullScreen
MediaPlayer1.FileName = (archivo)
MediaPlayer1.Play
next

eso lo he visto en
http://www.lawebdelprogramador.com/news/new.php?id=93&texto=Visual+Basic

suerte