بدست آوردن زمان دقیق موقعیت پخش ویدیو

[NitroPlus]

سلام
یه سوال داشتم برنامه های زیر نویس برای زیر نویس دار کردن فیلم به زمان دقیق که شامل چهار قسمت hh:mm:ss,xxx هست نیاز داره حالا می خواستم ببینم چه طور میشه این زمان رو بدست اورد؟

[tolid123456789]

سلام دوست عزيز
ابتدا يك شي AxWindowsMediaPlayer به فرم اضافه كنيد و آدرس فايل تصويري خودتون رو در پنجره خصوصياتش در قسمت URL بنويسيد
با باز شدن فرم اين فيلم بايد نمايش داده بشه
حالا يك دكمه روي فرم بزاريد و در رويداد كليك اون كد زير رو بنويسيد

Dim AA As Double
AA = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
Dim t As TimeSpan = TimeSpan.FromSeconds(AA)
Dim answer As String = String.Format("{0:D2}:{1:D2}:{2:D2}:{3:D3}", t.Hours, t.Minutes, t.Seconds, t.Milliseconds)
MsgBox(answer)


موفق باشيد
اگر سئوالي بود در خدمتم

[AliRezaBeytari]

من یه نمونه گذاشتم ؛ البته با یه مقدار تغییر :
دانلود سورس (http://uploadkon.ir/?file=WindowsApplication1_1.rar)