(04-04-15, 09:27 PM)es5s930 كتب : في البدايه افتح هالموقع
http://www.codeproject.com/Articles/12848/Play-sound-in-VB-NET

ركز على هالصوره
http://www.codeproject.com/KB/vb/Play_sound_in_VBnet_with/step2_A.gif
من فوق أختار Com Commpontes
أختار الاداء Windows Media Player

وشوف المشروع
المهم سويت للأداءه Visible = False
عشان انت تتحكم من نفسكك
اما غير هالاداه صدقني بتتعب لان جربت كم كود ومايشغل الا ملف WAV
اما اللي يشغل الملفات الثانيه اللي هو My.Computer.Sound.PlaySoundيشغل الاغاني بدون أعدادات


.
.
.
http://arabsh.com/files/0c3e444f65f6/soundplay-rar.html

(04-04-15, 10:52 PM)ameerah كتب : هذه مجموعة الأكواد الخاصة بمشغل الصوتيات والفديو على أساس TrackBar1 خاص بالتحكم بالمسار وTrackBar2 خاص بالتحكم بالصوت

كود :

Dim videofile As String = "video.mp4"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   AxWindowsMediaPlayer1.URL = videofile
   TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(videofile).duration

   TrackBar2.Maximum = 100
   TrackBar2.Value = AxWindowsMediaPlayer1.settings.volume

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
End Sub


Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
   AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
End Sub


Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
   AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
End Sub

(05-04-15, 12:17 PM)قناص المدينة كتب : اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل 

(04-04-15, 10:52 PM)ameerah كتب : هذه مجموعة الأكواد الخاصة بمشغل الصوتيات والفديو على أساس TrackBar1 خاص بالتحكم بالمسار وTrackBar2 خاص بالتحكم بالصوت

كود :

Dim videofile As String = "video.mp4"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   AxWindowsMediaPlayer1.URL = videofile
   TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(videofile).duration

   TrackBar2.Maximum = 100
   TrackBar2.Value = AxWindowsMediaPlayer1.settings.volume

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
End Sub


Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
   AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
End Sub


Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
   AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
End Sub

(05-04-15, 12:17 PM)قناص المدينة كتب : اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل