Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: .wav Datei bei Tastendruck abspielen - Problem
Autor: Dartrax (ausgeloggt)
Datum: 06.04.03 15:06
Hallo! Hier ein alternativ-Vorschlag: Ohne "Microsoft Multimedia Control6.0", dafür mit "DirectX 7 for Visual Basic Type Library" und wenn man eine Taste drückt, während ein Sound abgespielt wird, wird dieser abgebrochen und ein neuer gespielt. ' Deklarationen für den Sound Public g_dx As New DirectX7 Public g_ds As DirectSound Public dsBuffer1 As DirectSoundBuffer Public Function PlaySound(ByVal WavName As String) Dim BufferDesc As DSBUFFERDESC Dim WaveFormat As WAVEFORMATEX Set g_ds = g_dx.DirectSoundCreate("") g_ds.SetCooperativeLevel Form1.hWnd, DSSCL_PRIORITY BufferDesc.lFlags = DSBCAPS_CTRLVOLUME Or _ DSBCAPS_STATIC Or DSBCAPS_CTRLFREQUENCY Or _ DSBCAPS_CTRLPAN With WaveFormat .nFormatTag = WAVE_FORMAT_PCM .nChannels = 2 ' Stereo .lSamplesPerSec = 22050 ' 22kbps .nBitsPerSample = 16 ' 16 Bit .nBlockAlign = .nBitsPerSample / 8 * .nChannels .lAvgBytesPerSec = .lSamplesPerSec * .nBlockAlign End With On Error Resume Next Set dsBuffer1 = g_ds.CreateSoundBufferFromFile(App.Path & "\" & WavName, BufferDesc, WaveFormat) dsBuffer1.SetPan 0 dsBuffer1.SetVolume Sound dsBuffer1.Play DSBPLAY_DEFAULT End Function Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 PlaySound "A.wav" Case vbKeyF2 PlaySound "B.wav" End Select End Sub Dartrax

.wav Datei bei Tastendruck abspielen - Problem	603	Hairman	06.04.03 13:41
Re: .wav Datei bei Tastendruck abspielen - Problem	251	unbekannt	06.04.03 14:53
Re: .wav Datei bei Tastendruck abspielen - Problem	265	Hairman	06.04.03 19:00
Re: .wav Datei bei Tastendruck abspielen - Problem	43	Dartrax (ausgel...	06.04.03 15:06
Re: .wav Datei bei Tastendruck abspielen - Problem	248	Hairman	06.04.03 19:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen