Jag har lärt mig lite VB, och har gjort några roliga program. Men nu vill jag gärna lägga till ljud i programmet.
Vad bör jag tänka på och hur gör man ?

Ebba

Hej Ebba
Lägg upp 5 knappar på en Form Command1 - Command5
Klistra in denna kode

<code>
Option Explicit
DefLng A-Z
Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

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 Command1_Click()
'Sökväg till WAV filen
sndPlaySound "C:\Windows\Media\Tada.wav", 1
End Sub

Private Sub Command2_Click()
Dim respons
'Sökväg till MIDI fil
respons = mciSendString("open C:\WINDOWS\MEDIA\CANYON.MID" _
& " type sequencer alias canyon", 0&, 0, 0)
respons = mciSendString("play canyon From 0", 0&, 0, 0)
End Sub

Private Sub Command3_Click()
Dim respons
respons = mciSendString("open C:\WINDOWS\MEDIA\CANYON.MID" _
& " type sequencer alias canyon", 0&, 0, 0)
respons = mciSendString("stop canyon", 0&, 0, 0)
respons = mciSendString("close Animation", 0&, 0, 0)
End Sub

Private Sub Command4_Click()
'Om du skriver riktig sökväg till .avi fil så
'kommer en filmsnutt att spelas upp
'Dim strAviPath As String, respons
'strAviPath = "play " & Sökväg & "\Cool.avi"
' respons = mciSendString(strAviPath, 0&, 0, 0)
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Load()
Command1.Caption = "Play Wave"
Command2.Caption = "Play MIDI"
Command3.Caption = "Stop MIDI"
Command4.Caption = "Play AVI"
Command5.Caption = "&Avbryt"""
End Sub
</code>

Tack för ditt svar, Svenpon.

Ebba