Hallo,
ich bin ein relativ unerfahrener Programmierer. Will aber irgendwann mal
richtig gut werden *g*.
Ich habe ein Problem. Wie kann ich in Visual Basic Sound abspielen, ohne dass ein externes Programm geöffnet wird?
Ich habe gehört ein paar gewisse API Funktionen können abhilfe schaffen. ich habe aber keine Ahnung wie man die benutzt.
Bitte helft mir!
CyA!
Felix
Hi,
Ich habe gehört ein paar gewisse API
Funktionen können abhilfe schaffen. ich
habe aber keine Ahnung wie man die
benutzt.
z.B. so:
'This project needs :
'- a common dialog box, named CDbox
’ (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
’ and select Microsoft Common Dialog control)
'-a button
Private Declare Function sndPlaySound Lib „winmm.dll“ Alias „sndPlaySoundA“ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib „winmm.dll“ () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'Get the number of installed waveout devices
ret& = waveOutGetNumDevs
If ret& > 0 Then
‚Set the CommonDialogBox‘ filter
CDBox.Filter = „Wave-files (*.wav)|*.wav|All Files (*.*)|*.*“
‚Set the CommonDialogBox‘ title
CDBox.DialogTitle = „Choose your wave-file …“
'Show the ‚Open File‘-dialog
CDBox.ShowOpen
'Play the selected sound
sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
Else
MsgBox „No soundcard detected !“
End If
End Sub
Private Sub Form_Load()
Command1.Caption = „Load WAV“
End Sub
(aus API-Guide, http://www.allapi.net)
Gruß
J.