+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] بخصوص برنامج مشغل الصوتيات والفديو (/showthread.php?tid=1802)
RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 16-04-15
راح ارفع لك الكود مع برنامج كامل ان شا الله اليوم المساء ان كنا من اهل الارض
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 16-04-15
شكراً لك على مساعدتك لي
واعتذر على عجلتي
RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 18-04-15
اعتذر عن التاخير ويمكنك الاستفادة من هذا المثال
http://pratiksvssite.blogspot.com/2011_10_01_archive.html
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 20-04-15
لقد جربت الكود ولكن دون جدوى ارجوا منك مشاهدة المشروع
RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 27-04-15
اعتذر عن التاخر في الرد
مرفق لك التعديل على المشروع
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 28-04-15
شكرا لك
سأجر بالمثال واطلعك على النتيجة
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 29-04-15
لقد نجح المشروع
عندي سؤال عندما حاولت نقل الاكواد الى مشوعي السابق لم ينجح الامر لكن عندما اعتمدت المشروع المعدل نجح الامر
RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 29-04-15
عادي سوي مقارنة في الاكواد
فقط واي شي ممكن اساعدك
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 05-05-15
بعد اذنك عندي طلب
كود المفضلة القائمة واضافة ملف وحذف ملف
RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 07-05-15
مالخطأ في هذه الأكواد
كود القائمة
PHP كود :
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim filePaths As String() =
CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each s As String In filePaths
Dim FI As New IO.FileInfo(s)
Dim exten As String =
FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
(FI.Name.LastIndexOf(".") + 1))
If exten = "mp3" Or exten = "wmv" Then
ListBox1.Items.Add(s)
End If
Next
End If
End Sub
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
كود اضافة
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dlg As New OpenFileDialog
dlg.Filter = "All Files|*.(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf;*."
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
End If
End Sub
كود حذف ملف
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
the.delled()
End Sub
End Class
عند تجربة الأكواد لم يظهر اي خطأ لكن لم تعمل هذه الاضافات