come faccio a inserire file .mid o .wav su pulsanti ?!?!
chi mi da una mano?????
come faccio a inserire file .mid o .wav su pulsanti ?!?!
chi mi da una mano?????
con VB? o cosa?
xSebamix.... ci sono....!!!
[Homepage] [Contattami]
Powered by: Ubuntu - Debian - Gentoo
Developing: Java - C++ - PHP
[supersaibal]"Perchè tanto Debian è meglio"[/supersaibal]
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!!
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")
Ans.
ho provato a fare come scritto ma mi fa un bip e non suona nulla!
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
Utilizzo Visual Studio Enterprise:
ho copiato il seguente codice:
NEL MODULO .bas
NEL FORM:codice:Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
p.s. naturalmente ho inserito un COMMAND BUTTONcodice:Option Explicit Dim R As Long Private Sub Command1_Click() R = sndPlaySound("c:\documenti\giocoVB\wave\sound.wav", 1) End Sub
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???!!!