تکرار پخش موسیقی در فرم

[sina_saravi1]

سلام

من با تابع mciSendString "play " + Mp3File, "", 0&, 0& تو فرمم آهنگ پخش میکنم
میخوام آهنگ قطع نشه و وقتی آهنگ تموم شد ، دوباره پخشش کنه

لطف میکنتید میگید باید دستورو به چی تغییر بدم؟

[ali.rezaei7]

درود.

براي پخش:

'بايد خروجي هر دو دستور صفر باشه در غير اين صورت خطاي رخ داده
If mciSendString("open """ & ShortPathName & """ type MPEGVideo alias MediaFile" _
, vbNullString, 0, 0) = 0 And mciSendString("play MediaFile REPEAT", _
vbNullString, 0, 0) = 0 Then
'آهنگ با موفقيت درحال پخش مي باشد
MsgBox "Now Playing", vbInformation
Else

'خطايي رخ داده، شايد دستگاه مشغول باشه يا در دسترس نباشه
'معمولا اگه مديا بسته نشده باشه اين مشكل بوجود مياد
MsgBox "An error occurred,Try agin"
End If

براي close مديا:

mciSendString "close MediaFile", vbNullString, 0, 0


قبل از پخش آهنگ جديد، بايد آهنگ در حال پخش close بشه. در غير اين صورت مديا اجرا نمي شه.

اگه دستورات بشتري نياز داريد، بگين تا براتون بزارم.

موفق باشيد.