Új hozzászólás Aktív témák

• #13039 VGYke addikt

  Új Válasz 2012-03-01 15:12:47 #13039

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  VGYke

  addikt

  Sziasztok! Találtam a neten egy jó kis makrót, Auto_Opennel vagy bármivel alkalmazva, jó kis tréfákat, egyebeket lehet vele megoldani:
  Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

  Const SND_SYNC = &H0
  Const SND_ASYNC = &H1
  Const SND_FILENAME = &H20000

  Sub PlayWAV()
  WAVFile = "Hang.wav"
  WAVFile = "Elérési út\" & WAVFile
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
  End Sub

  Szóval, futtatva lejátszik egy Hang.wav nevű fájlt, tök jó. Viszont addig játszik, amíg vége nincs a wav-nak, játszik akkor is, ha bezárjuk az excelt. Hogyan lehetne leállítani?

  Egy kis kiegészítés: Állítólag nem minden környezetben fut, ezt így lehet megtudni:
  If Not Application.CanPlaySounds Then
  MsgBox "Sorry, sound is not supported on your system."
  Exit Sub
  End If

Új hozzászólás Aktív témák