ساخت مدیا پلایر

[Holyfeast]

سلام من می خواستم یه مدیا پلایر بسازم و بهش با تکس باکس یه عدد بدم مثلا 5 بعد فیلممو 5 بار پخش کنه و زمان پخش این فیلم هم بهش بدم در یک زمان مشخص پخش کنه ولی نمیدونم چطور این کارو انجام بدم
منون میشم کمکم کنید

[javad dehnavi]

سلام!
تو بخش toolbox راست کلیک کنید و choose Items رو بزنید!
از پنجره ای که باز میشه به سربرگ Com Components برید و تیک مربوط به Windows Media Player رو از لیست فعال کنید و Ok بزنید!
کنترل مدیا پلیر به ToolBox اضافه میشه که میتونید به سلیقه خودتون ازش تو فرم استفاده کنید که فکر میکنم تا اینجا مشکلی نداشته باشید!

دستور هایی که ممکنه لازمتون بشه:

برای اجرای فایل:


AxWindowsMediaPlayer1.URL = "آدرس فایل"



مثال برای بخش Ctlcontrols
برای پخش رسانه:

AxWindowsMediaPlayer1.Ctlcontrols.play()



مثال برای بخش settings
تغییر میزان صدا:

AxWindowsMediaPlayer1.settings.volume = 50


بهتره بک متغیر Integer تعریف کنید و با هر بار پخش، یکی از متغیر کم کنید و وقتی به صفر رسید دیگه پخش تکرارش نکنید.

رویداد زیر هم زمانی که پخش یک رسانه تموم شد، انجام میشه:



Private Sub AxWindowsMediaPlayer1_EndOfStream(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_EndOfStreamEvent) Handles AxWindowsMediaPlayer1.EndOfStream

End Sub