/ Forside/ Teknologi / Udvikling / VB/Basic / Tip
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Afspil .wav filer.
Er bedømt af 4 brugere
Fra : niller
Vist : 727 gange

Dato : 04-12-00 15:36

Her er en måde, hvordan du kan afspille .wav filer.


Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command2_Click()
Dim i As Long, RS As String, cb As Long
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
End Sub

Private Sub Command1_Click()
Command2_Click
Dim i As Long, RS As String, cb As Long, W$
RS = Space$(128)
W$ = "c:\minlyd.wav"
i = mciSendString("open waveaudio!" & W$ & " alias sound", RS, 128, cb)
If i Then MsgBox "Filen blev ikke fundet!"
i = mciSendString("play sound", RS, 128, cb)
End Sub



 
 
Bedømmelse

Fra : dkjora


Dato : 05-04-01 14:20



Bedømmelse

Fra : stk


Dato : 16-03-01 12:59



Bedømmelse

Fra : aaba


Dato : 11-04-02 12:22



Bedømmelse

Fra : sjh


Dato : 10-01-04 02:12



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408914
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste