Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Muzyka w tle programu
Sikor




Typ: neutral
Postów: 7
Zarejestrowany: Dec 2004
Muzyka w tle programu

Jak załadować do formy plik muzyczny zeby grała ona sobie podczas uruchomionego progsa???

Chodzi mi dokładnie o tło muzyczne do mojej giercy

05-01-2005 13:42
Pokaż profil Sikor  Wyślij email do Sikor   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Jaki format ma mieć muza ? Jeśli mp3 to stwórz sobie osobny katalog (w folderze z twoją grą) z muzyką i nazwij go "Muzyka" (ja tak zawsze robię [ale nie musisz]) i wgraj tam całą muzyke. Potem wystarczy taki kodzik, oczywiście dostosujesz go do swoich potrzeb już sam:
Dim MP As Object
Private Sub Form_Load()
  InitMPlayer Me
  If PlayMusic("Jakaś muzyka" = False Then MsgBox "Wystąpił błąd ! Brakuje pliku z muzyką !", vbCritical
End Sub

Public Sub InitMPlayer(Dest As Form)
  Set MP = Controls.Add("MediaPlayer.MediaPlayer.1", "MP", Dest)
End Sub
Public Function PlayMusic(Title As String)
  On Error GoTo Błąd
  Dim Plik As String
  Plik = App.Path & "\Muzyka\" & Title & ".mp3"
  With MP.object
    .FileName = Plik
    .volume = 0
    .play
  End With
  PlayMusic = True
  Exit Function
Błąd:
  If Err.Description = "Method 'Play' of object 'IMediaPlayer2' failed" Then PlayMusic = False
End Function


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

05-01-2005 14:15
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Sikor




Typ: neutral
Postów: 7
Zarejestrowany: Dec 2004

czesc, mam prośbe mógłbyś dodać jakiś komentarz tam gdzie ja musze coś zmienić lub dopisać bo sie za bardzo nie łapie w tym kodzie

05-01-2005 14:52
Pokaż profil Sikor  Wyślij email do Sikor   
Sikor




Typ: neutral
Postów: 7
Zarejestrowany: Dec 2004

szwankuje mi ta linia kodu

Public Sub InitMPlayer(Dest As Form)
  Set MP = Controls.Add("MediaPlayer.MediaPlayer.1", "MP", Dest)
End Sub

05-01-2005 14:59
Pokaż profil Sikor  Wyślij email do Sikor   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1