PDA

Visualizza la versione completa : [VARIE] come inserire file .mid o .wav ???


Burkly
12-07-2001, 15:53
come faccio a inserire file .mid o .wav su pulsanti ?!?!
chi mi da una mano?????

fiscet
12-07-2001, 16:04
pulsanti de che?

virusbye
13-07-2001, 00:53
con VB? o cosa? :D

xSebamix.... ci sono....!!!

Burkly
13-07-2001, 15:24
come faccio ad inserire file .mid o .wav su pulsanti(intesi come command)e attivarli al click del mouse in visual basic????!!
...spero di essere stato piu' chiaro e grazie per l'aiuto!!

ans
13-07-2001, 16:12
Scusa ma in pratica vuoi sapere come eseguire file audio? Da quel che si capisce tu hai un pulsante e quando si fa click deve andare in play un file. Ok.

Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrComman As String) As Long

la prima per i wav la seconda per i mid, poi...

Dim R As Long

per i file wav
R = sndPlaySound(ByVal "c:\percorso\file.wav", 1)

per i file mid
R = mciExecute("play C:\percorso\file.MID")

Minoko
09-08-2002, 09:53
ho provato a fare come scritto ma mi fa un bip e non suona nulla!

magnus
05-09-2002, 17:56
Facendo cosė funziona:

Dim R As Long

per i file wav
R = sndPlaySound("c:\percorso\file.wav", 1)


Ma come posso farlo eseguire in loop?

Ciao

Johnny_Depp
16-09-2002, 18:06
Utilizzo Visual Studio Enterprise:

ho copiato il seguente codice:

NEL MODULO .bas


Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

NEL FORM:


Option Explicit
Dim R As Long

Private Sub Command1_Click()
R = sndPlaySound("c:\documenti\giocoVB\wave\sound.wav", 1)
End Sub

p.s. naturalmente ho inserito un COMMAND BUTTON
ma quando lo clicco mi da il seguente errore:

ERRORE DI COMPILAZIONE:
SUB O FUNCTION NON DEFINITA ???

e mi evidenzia il seguente codice

Private Sub Command1_Click()

dove sbaglio???!!!

Loading