ورود

نسخه کامل مشاهده نسخه کامل : سوال : چجوری میتونم یه مدیا پلیر توی دات نت یا وی بی 6درست کنم


4dweb
10-01-2009, 17:58
بلدم چجوری درست کنم ولی من میخوام چند تا دکمه بذارم هر وقت کاربر یه دکمه رو فشار داد یک فیلم به نمایش دربیاد چجوری میشه ممنون میشم زود تر با توضیح خط به خط کدها برام بذارید :7::rambo:
Payman_62
10-01-2009, 20:21
سلام.
قبلا گفتم. از کامپوننت windows media player استفاده کن. خودش همه کارو برات میکنه.
از ریفرنس برو تو کام و این کامپوننت رو اد کن.
_H2_
11-01-2009, 00:02
سلام
روش عادی و مرسوم همان است که جناب payman_62 گفتند.

ولی در vb2008 راه ساده دیگری دارد و تحت Framework3.5.
شما به راحتی کنترلر MediaElement را در بخش WPF در اختیار دارید و امکانات بینظیر سه بعدی WPF را هم میتوانید به صورت عادی روی کنترلر اعمال کنید.
حتی میکتونید فیلم مورد نظر را روی یک سطح سه بعدی غیر صاف هم پخش کنید و...

به طور مثال و در سطح کاملاً ابتدایی میتوانید به لینکزیر نگاه کنید:
msdn.microsoft.com/en-us/magazine/cc163455.aspx
(البته کدهای این صفحه به زبان #C است ولی فرقی نمیکند و کد VB آن هم خیلی شبیه همین کدها است.)

برای آشنایی بیشتر با WPF هم میتوانید به ریشه زیر مراجعه کنید:
msdn.microsoft.com/en-us/library/aa970268.aspx


موفق باشید.
Hosein Mazhari
27-01-2009, 13:07
'همون طور که دوستان گفتن می تونین از کامپوننت ها دو کنترل WindowsMediaPlayer و Microsoft common Dialog control رو 'به پروژه برنامه تون اضافه کنید بعد اونا رو روی فرمتون بذارین .توجه : اگه اسم کنترل ها رو روی فرمتون عوض نکنین این کدها 'جواب میدن :

'این کد برای اینه که کنترل مدیا پلیر تون تمام فرم رو پر کنه :
Private Sub Form_Resize()
On Error Resume Next
WindowsMediaPlayer1.Top = Me.Top / 75
WindowsMediaPlayer1.Left = Me.Left / 150
WindowsMediaPlayer1.Width = Me.Width - 110
If Me.Height > 800 Then WindowsMediaPlayer1.Height = Me.Height - 800
End Sub

'اینم کد مربوط به باز کردن فایل
Private Sub OPEN_Click()
On Error Resume Next
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End If
CommonDialog1.FileName = ""
End Sub

'اینم برا قشنگ تر شدن کارتون
Private Sub WindowsMediaPlayer1_DoubleClick(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
On Error Resume Next
If WindowsMediaPlayer1.URL <> "" Then WindowsMediaPlayer1.fullScreen = True
End Sub
' راستی اگه یه منوی فایل با زیر منوی open بذارین کارتون شیک تر میشه ."البته این نظر منه"
'این کدها رو تو قسمت کد نویسی کپی--> پست کن .