Afspilning

Hvordan får jeg en lyd til at loop.
så den kører igen og igen. ???
her er koden

Kode 

--------------------------------------------------------------------------------
Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
--------------------------------------------------------------------------------
Public Sub PlaySound(ByVal strPath As String)
  sndPlaySound strPath, SND_ASYNC Or SND_NODEFAULT
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Load()
  Call PlaySound("Sound.wav")
  Frame1.Navigate "http://generationx.dk/tag/"
End Sub
--------------------------------------------------------------------------------

Hvis nu lyden vare, hmm lad og sige 5 sek. så kan du jo tage en timer sådan her

'timer1.Interval ="5000" '5 sek. altså hvor mange gange den skal gentage det skal du indsætte i form_load()
'sådan her

Private Sub Form_Load()
  Call PlaySound("Sound.wav")
  Frame1.Navigate "http://generationx.dk/tag/"
  timer1.Interval ="5000"
End Sub

'og i timer skal der være dette her så den afspiller lyden hver 5 sek.

Private Sub Timer1_Timer()
  Call PlaySound("Sound.wav")
End Sub

det skulle virke ellers kan du bruge loop

Private Sub Form_Load()
  Frame1.Navigate "http://generationx.dk/tag/"
  dim counter
  counter = 1
Do  
  Call PlaySound("Sound.wav")
  counter = +1
loop until counter = 10
End Sub

jeg ville bruge timer for hvis du ikke vil have den skal afspille mer kan du lave en knap som har koden sådan her den starte og slukker lyden

Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
ElseIf Timer1.Enabled = False Then
Timer1.Enabled = True
End If
Command1.Caption = "start/stop" ' dette giver knappen navn du kan slette det og lave det manualt du bestemmer selv
End Sub

håber du kan bruge det. Jeg har ikke gemmen testet det så der kan måske forkomme 1 eller 2 fejl


//ETA aka Emil Thor Andersen
Http://www.eta-wall.tk/



[Redigeret d. 25/11-03 15:14:32 af Emil Thor Andersen]