Evo, ispravljen tvoj program. Ispravio sam ti program za mciSendString u bas Module2.
U Form_Load pises:
'Putanja
putanja = App.Path
If Right(putanja, 1) = "\" Then
putanja = Left(putanja, Len(putanja) - 1)
End If
'Imefajla, ekstenzija
imefajla = "demo"
ekstenzijafajla = ".mp3"
'Pustanje muzike
Call PlayMP3(imefajla, ekstenzijafajla)
U form unosis kod:
Code:
Private Sub Form_Load()
Form1.KeyPreview = True
Timer1.Enabled = True
Timer1.Interval = 200
lblBY.Caption = "by: Aleksandar Gosevski gosevski.info "
'Putanja
putanja = App.Path
If Right(putanja, 1) = "\" Then
putanja = Left(putanja, Len(putanja) - 1)
End If
'Imefajla, ekstenzija
imefajla = "demo"
ekstenzijafajla = ".mp3"
'Pustanje muzike
Call PlayMP3(imefajla, ekstenzijafajla)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmA.Visible = False
frmE.Visible = False
frmF.Visible = False
frmG.Visible = False
frmH.Visible = False
frmB.Visible = False
frmC.Visible = False
frmD.Visible = False
End Sub
Private Sub lblA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmA.Visible = True
End Sub
Private Sub lblE_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmE.Visible = True
End Sub
Private Sub lblF_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmF.Visible = True
End Sub
Private Sub lblG_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmG.Visible = True
End Sub
Private Sub lblH_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmH.Visible = True
End Sub
Private Sub lblB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmB.Visible = True
End Sub
Private Sub lblC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmC.Visible = True
End Sub
Private Sub lblD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmD.Visible = True
End Sub
Private Sub Timer1_Timer()
Dim tekst As String
tekst = lblBY.Caption
lblBY.Caption = Mid(tekst, 2, Len(tekst)) + Left(tekst, 1)
Randomize Timer
End Sub
Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmA.Visible = False
frmE.Visible = False
frmF.Visible = False
frmG.Visible = False
frmH.Visible = False
frmB.Visible = False
frmC.Visible = False
frmD.Visible = False
End Sub
Private Sub lblBY_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmA.Visible = False
frmE.Visible = False
frmF.Visible = False
frmG.Visible = False
frmH.Visible = False
frmB.Visible = False
frmC.Visible = False
frmD.Visible = False
End Sub
U modul 1:
Code:
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal _
lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength _
As Long, ByVal hwndCallback As Long) As Long
Public Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal _
fdwError As Long, ByVal lpszErrorText As String, ByVal cchErrorText As Long) As Long
I u modulu 2:
Code:
Option Explicit
Public errcode As Long
Public imefajla As String
Public ekstenzijafajla As String
Public putanja As String
Const alias = "mp3muzika"
Public Sub PlayMP3(imefajla, ekstenzijafajla)
Dim errcode As Long ' MCI error code
errcode = mciSendString("close " & alias, "", 0, 0) 'Close
errcode = mciSendString("open " & putanja & "\" & imefajla & ekstenzijafajla & " alias " & alias, "", 0, 0)
errcode = mciSendString("play " & alias, "", 0, 0)
If errcode <> 0 Then DisplayError errcode
End Sub
Public Sub StopMP3()
Dim errcode As Long ' MCI error code
errcode = mciSendString("stop " & alias, "", 0, 0)
If errcode <> 0 Then DisplayError errcode
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim errcode As Long ' MCI error code
errcode = mciSendString("close " & alias, "", 0, 0)
End Sub
Private Sub DisplayError(ByVal errcode As Long)
Dim errstr As String ' MCI error message text
Dim retval As Long ' return value
errstr = Space(128)
retval = mciGetErrorString(errcode, errstr, Len(errstr))
errstr = Left(errstr, InStr(errstr, vbNullChar) - 1)
retval = MsgBox(errstr, vbOKOnly Or vbCritical)
End Sub
rgdrajko