WindowsMediaPlayerکنترل

کنترل مديا پلير ايکس پي که توسط کتابخانه قدرتمندي پشتيباني مي شودرا مي توان در تمام انواع ويندوز ايکس پي استفاده کرد.درويندوز 98 کنترل

مديا پليرقديمي استفاده مي شد که البته در ويندوز ايکس پي نيز قابل استفاده است

شاخه ي ويندوز\program files\WindowsMediaplayer\

البته از نسخه 10 به بعد مديا پلير قبلي حذف شد

Components\WindowsMediaPlayerنحوه ي استفاده از کنترل مديا پلير-روي کنترل ها راست کليک کرده در منوي باز شده گزينه

نيز به انتخاب هايتان اضافه کنيدMicrosoftCommonDialogرا (معمولآ در ته ليست )انتخاب مي کنيم.قبل از اينکه آن کادر را ببنديد يک کنترل

بگزاريدسپس در کد کليک دکمه کد زير رابنويسيدCMDOpenيک دکمه ويک مدياپليربه فرمتان اضافه کنيد و نام دکمه را

CommonDialog1.ShowOpen

WindowsMediaPlayer1.URL=CommDialog1.FileName

مشاهده مي کنيد که کادر فايل باز شده و فايل انتخاب شده پخش مي شود.اگر مي خواهيد شکل دکمه ها را خودتان طراحي کنيد بايد دکمه هايي کاملآ به به آنها بگزاريد.سپس کدهاي زير را بنويسيدPause,Stop,Playيکدست توسط فتوشاپ طراحي کنيد.سه دکمه به فرم اضافه کرده ونامهاي

private sub Play_Click()

WindowsMediaPlayer1.Controls.Play()

End Sub

'------------------------

Prrivate Sub Stop_Click()

WindowsMediaPlayer1.Controls.Stop()

End Sub

'------------------------

Private Sub Pause_Click()

WindowsMediaPlayer1.Pause()

End Sub

تايمر را به50 تنظيم کنيد.روي تايمر دوبار کليک کنيد وکد زير را بنويسيدIntervalبه فرم اضافه کنيد.يک تايمر هم به فرم اضافه کنيد خاصيت HScroll1بعد از تست کد هاي بالا يک

Private sub Timer1_Timer()

Label1.Caption=WindowsMediaPlayer1.Controls.CurrentPositionString

HScroll1.max=WindowsMediaPlayer1.Controls.CurrentMarker

HScrol1.Value=WindowsMediaPlayer1.Controls.CurrentPosition

End Sub

لينك مقاله |15:18 دوشنبه 11 دی1385 - توسط ناصر نيازي