[VB6] Riprodurre file MP3 come sottofondo

[lomiz]

Come faccio ad inserire un sottofondo musicale formato mp3 durante l'esecuzione di un form?

Grazie

[ranza!!!123]

credo ke puoi farlo mettendo un player...trovati un ocx ke legga lgi mp3 e usala...

[Socket2000]

Public 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

Sub PlayMP3(NomeFile As String)

  Dim ReturnVal As Long
  Dim CmdStr As String
    
  CmdStr = "OPEN " & NomeFile & " TYPE mpegvideo "
  CmdStr = CmdStr & "ALIAS myMP3"
  ReturnVal = mciSendString(CmdStr, vbNullString, 0, 0)
  ReturnVal = mciSendString("PLAY myMP3 FROM 0", 0&, 0, 0)
  
End Sub

Sub CloseMP3()
  mciSendString "STOP MyMP3", vbNullString, 0, 0
  mciSendString "CLOSE MyMP3", vbNullString, 0, 0
End Sub

[vincienalotto]

ok posso riprodurla continuamente in qualche modo?