[VB6] Output Sound

[UnKnowN]

Como é que crio 1 comando para quando carregar no Botao vir 1 OutPut Sound ?

Obrigado 😁

[soXfoR]

Boas,

Podias te explicar melhor? É que não entendi o que pretendes.  😁

Cumpz.

[Tiago Salgado]

Estarás a falar do Beep ? Tipo:

Private Sub Command1_Click()
Beep
End Sub

[UnKnowN]

Estarás a falar do Beep ? Tipo:

Private Sub Command1_Click()
Beep
End Sub

Não. Era mesmo um som de um fixeiro de audio para quando carregasse no botão aquilo abrisse e desse o dito Som, mas gostava que fosse um som +/- universal para todos os computadores (com Windows), se alguém souber para Linux e Mac OS também agradeço ... já pensei no som do MSN ... que é só a pessoa ter o MSN que tem esse som, mas gostava que o programa funcionasse também para pessoas sem MSN e mesmo sem Net 😁

Thanks

[Asgorath]

Assumo que é vb 6 http://www.mvps.org/access/api/api0011.htm

[UnKnowN]

Tentei isto num Botao e o botao nao fez nada ... o que é que está mal ? 😁

Function fatest()
Dim a As Long
    a = fPlayStuff("C:\Documents and Settings\casa\Os meus documentos\A minha música\50 Cent - Window Shopper.mp3")
End Function

PS: Pk fatest(), fPlayStuff e a As Long ?