USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  "Pelo Amor de Deus me Ajudem"
João
não registrado
Postada em 31/03/2005 18:15 hs   

Ai Galera Gostaria de Saber Como eu Faço Para a Musica Ficar Tocando Sem Parar
Ou Melhor Repetindo sem Precisar Apertar o Play no Final Dela
Estou Fazendo um Projeto utilizando o MMcontrol e Digitei
o Seguinte Comando:

Private MMControl
-----------------------------------
Private Sub Form_load()
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:TunderHoad.wav"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Agora Gostaria de Saber qual o Comando Para Ficar Repetindo a Música
Se puder Completar no Comando de Cima Para Ficar Mais Fácil Para Mim
Eu Agradeceria Muito.
Obrigado a Todos.

     
Sérgio Jr.
SÃO PAULO
SP - BRASIL
Postada em 23/05/2005 21:04 hs            
Boa tarde , amigo !!!
 
Eu costumo fazer assim:
 
'Em um módulo, declare em uma unica lina
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
'Em um formulário
General Declarations
Const SND_ASYNC = &H1  'toca musica sem parar
Const SND_LOOP = &H8            
 
'No evento Load do Form ou em um clique de um Botão coloque o código
Private Sub Form_Load()
Call sndPlaySound("c:     este.wav", SND_ASYNC + SND_LOOP)
End Sub
 
Tentei...

Sérgio Júnior
Analista de sistemas e Instrutor de informática
 
EMAIL e MSN   sj@softweb.com.br
ICQ                339982437
 
...O cavalo se prepara para a batalha...    
...mas do Senhor Jesus vem a vitória...
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página