Treba mi pomoc

[mslav]

Mozda zvuci kao debilno pitanje(a mozda i jeste) ali ja tek pocinjem sa ovim stvarima...
Hocu da u Visual-u 6 ubacim zvuk iz fajla da mi se pusti u pozadini kad kliknem na dugme, ponavljam dugme!
Unapred zahvalan

 

[_smirnoff_]

Dodaj novu formu i na nju postavi kontolu WindowsMediaPlayer, a na prvu formu postavi kontolu CommonDialogBox i napisi ovako nesto:

Dim provera as String
Dim var as Integer
Dim file as String
Dim rez as String

'Ubacivanje muzike u Media Player
Private Sub cmdPlay_Click()
CommonDialog1.ShowOpen()
provera = CommonDialog1.FileName
var = Len(provera)
If var <> 0 Then
rez = Mid(provera, var - 3, 4)
If rez = ".wav" Or rez = ".mp3" Then
file = provera
frmPlay.Reprodukcija(file)
End If
Else
GoTo kraj
End If
kraj:
End Sub

'Kod u novoj formi koju sam nazvao frmPlay

Public Sub Reprodukcija( musicfile as String )
MediaPlayer1.FileName = musicfile
End Sub

Nadam se da sam ti pomogao.
:wink: