Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - visual basic
Forum - Visual Basic 6 - visual basic

Avatar
salvat (Normal User)
Newbie


Messaggi: 2
Iscritto: 10/12/2010

Segnala al moderatore
Postato alle 12:37
Venerdì, 10/12/2010
ciao a tutti io ho fatto un gioco con la pallina e i mattoni volevo un aiuto ho messo una canzone all'apertura ma appena finisce la canzone non riparte più, vorrei ripetere l canzone fino a quando non tolgo il gioco cioè la canzone si deve sempre ripetere...mi potete aiutare???

PM
Avatar
BlackMamba (Normal User)
Newbie


Messaggi: 17
Iscritto: 09/12/2010

Up
1
Down
V
Segnala al moderatore
Postato alle 14:30
Venerdì, 10/12/2010
Posta il codice così ci si può dare un'occhiata ;)

EDIT: ti dovresti prima presentare nell'apposita sezione comunque!!!:)

Ultima modifica effettuata da BlackMamba il 10/12/2010 alle 17:40
PM
Avatar
salvat (Normal User)
Newbie


Messaggi: 2
Iscritto: 10/12/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 9:15
Sabato, 11/12/2010
Private Sub Form_Open(Cancel As Integer)
Dim PerMad As String

    PerMad = Mid(CurrentDb.Name, 1, LastInStr(CurrentDb.Name, "\"))
  
     Me.Suono.URL = PerMad & "NY.mp3"
    SuonoA = PerMad & "A.wav"
    SuonoB = PerMad & "b.wav"
    SuonoC = PerMad & "c.wav"
    SuonoD = PerMad & "d.wav"
    SuonoE = PerMad & "e.wav"
   Resetta 1

End Sub

Il suono "NY.mp3" è la canzone che ho inserito io, va bene, appena apro la maschera parte, però, appena finisce non riparte e non riesco a trovare un comando per farla ripartire, mi puoi dare un aiuto??

PM
Avatar
BlackMamba (Normal User)
Newbie


Messaggi: 17
Iscritto: 09/12/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 18:25
Sabato, 11/12/2010
ho ritrovato questa piccola funzioncina :D
Codice sorgente - presumibilmente VB.NET

  1. Private Declare Function sndPlaySound& Lib "winmm.dll" Alias _
  2.     "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
  3.  Const SND_SYNC = &H0
  4.  Const SND_ASYNC = &H1
  5.  Const SND_NODEFAULT = &H2
  6.  Const SND_LOOP = &H8
  7.  Const SND_NOSTOP = &H10
  8.  
  9. Private Sub Form_Load()
  10. sndPlaySound "Percorso_file", SND_ASYNC Or SND_NODEFAULT Or SND_LOOP
  11. End Sub


Ultima modifica effettuata da BlackMamba il 11/12/2010 alle 18:31
PM