منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7655)

الصفحات: 1 2 3

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - elmobde3 - 21-02-13

تم حل المشكله الاولى اخى الكريم والآن احتاج الى مساعدتكم فى المشكله الثانيه وهى السحب والافلات لملف صوتى يظهر المسار الكامل للملف وليس اسمه فقط
انا استخدم فى اداه listbox1 فى الحدث DragDrop الكود التالى
كود :
Dim Files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each FileName As String In Files
            ListBox1.Items.Add(FileName)
ماهى الاضافه التى يجب اضافتها لكى اجعله ياخذ اسم الملف وليس المسار الكامل

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - Easy4ever - 22-02-13

أخوي تقدر تستخدم الكود التالي

كود :
[align=left]FileName = Path.GetFileName(FileName)[/align]

الكود كامل بعد التعديل

كود :
[align=left]Dim Files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each FileName As String In Files
FileName = Path.GetFileName(FileName)
ListBox1.Items.Add(FileName)
Next[/align]

ولاتنسى تكتب كود الاستدعاء حق InPut و OutPut في الأعلى
كود الأستدعاء

كود :
[align=left]Imports System.IO[/align]


برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - elmobde3 - 22-02-13

Easy 4ever كتب :أخوي تقدر تستخدم الكود التالي

كود :
[align=left]FileName = Path.GetFileName(FileName)[/align]

الكود كامل بعد التعديل

كود :
[align=left]Dim Files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each FileName As String In Files
FileName = Path.GetFileName(FileName)
ListBox1.Items.Add(FileName)
Next[/align]

ولاتنسى تكتب كود الاستدعاء حق InPut و OutPut في الأعلى
كود الأستدعاء

كود :
[align=left]Imports System.IO[/align]

شكراً جزيلاً لك اخى الكريم الكود تمام ولما عملت drag و drop لملف فعلا اتنقل بالاسم فقط لكن لما عملت play للملف الصوتى لم يعمل
دائماً الحلو ما يكمل Sad .. شكراً جزيلاً لك

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - elmobde3 - 22-02-13

الحمد لله رب العالمين لقيت حل للمشكله والفضل لله ثم لك اخى الكريم الف شكر واود ان احيطك علماً اننى قد قمت بحمد الله من حل الثلاث مشكلات التى نوهت عنها وجارى العمل الآن على المزيد من التطوير من اجل تدعيم البرنامج باللغه العربيه ان شاء الله Smile Smile Smile

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - Easy4ever - 22-02-13

elmobde3 كتب :فعلا اتنقل بالاسم فقط لكن لما عملت play للملف الصوتى لم يعمل

elmobde3 كتب :الحمد لله رب العالمين لقيت حل للمشكله

ما هو الحل أخي الكريم ؟

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - elmobde3 - 23-02-13

اخى المشكله انه انا عامل شويه حاجات ملغبطه كده وعامل عدد اثنان listbox وليس واحده وعامل
listbox1.selectedindexchanged=playlist.selectedindexchanged
وبالتالى يجب اجراء الكود على كلاهما ومع تعديل بسيط على الكود الذى اعطيته لى نفعت الحمد لله Smile
واصبح الملف يظهر بالاسم فقط ويمكن تشغيله ايضاً والحمد لله رب العالمين شكراً جزيلاً لك

برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - elmobde3 - 23-02-13

اخى الكريم الان انتهيت للتو من البرنامج وتم حل كل المشكلات واضافه مميزات جديده رائعه جداً وتدعيم البرنامج باللغه العربيه وتمكين خاصيه حفظ تعديلات المستخدم من اجل اظهارها فى المره الثانيه لتشغيل البرنامج وكذلك تم عمل login form للبرنامج يكتب فيها المستخدم الاسم الذى يريده ويطلب منه password ساضعه هنا ان شاء الله حتى اذا قام بفتح البرنامج مره اخرى لن يطالبه بادخال الاسم وكلمه المرور مره اخرى وكذلك تم تحزيم البرنامج لكى يصبح ملف setup والآن مع التحميل من السريع الرائع ميديا فاير وارجو التقييم وابداء الملاحظات وشكراً جزيلاً لك أخى الكريم Smile
http://www.mediafire.com/?8yl6c6ddyb9b1d7
كلمه المرور لفتح البرنامج : f5ds2d5g4fg5

RE: برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - سعود - 15-08-15

كنت اتمنى انه مفتوح المصدر حتى افهم هذا الجزء وهو السحب والافلات فلم اتمكن من فهمه.

RE: برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - سعود - 15-08-15

بارك الله فيك اخي " الطالب" هذه ووضحت Smile جزاك الله عنا كل خير.
جزئية اخرى هل يمكن عملها؟
وهي تشغيل ملف بمجرد القائها على ايقونة البرنامج؟

RE: برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه - الطالب - 15-08-15

سلام

اخي سعود هذا ابسط مثال للملفات الصوتيه mp3
كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.AllowDrop = True
    End Sub

    Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        For Each f As String In e.Data.GetData(DataFormats.FileDrop)
            If IO.Path.GetExtension(f).ToLower = ".mp3" Then
                ListBox1.Items.Add(f)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub

End Class

الحدث DragEnter وضيفته انه يغير شكل الماوس بعد السحب لما يجي فوق listbox1 فاذا كان المسحوب ملفات يغيره لمؤشر copy
والحدث DragDrop وضيفته بعد ما تترك الزر يعني الافلات هنا يمر على عناصر المصفوفه الخاصه بالملفات FileDrop وذا كان فيها شي ينفذ الموجود بالشرط وهو التاكد من نوع الملف هل mp3 عشان يضيفه

يعني ما نحتاج غير خاصيه allowdrop نخليها true وحدثين dragenter وdragdrop


وحكايت القائها على ايقونت البرنامج ابسط من السحب
كود :
Public Class Form1

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

    Private Sub CommandLine()
        For Each arg As String In My.Application.CommandLineArgs
            If IO.Path.GetExtension(arg).ToLower = ".mp3" Then
                ListBox1.Items.Add(arg)
            End If
        Next
    End Sub

End Class

ما نحتاج غير في حدث تحميل الفورم نقرا عناصر my.applicatin.lomandlineargs وينفذ الموجود بالشرط وهو التاكد من نوع الملف هل mp3 عشان يضيفه


وبدمج الفكرتين
كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call CommandLine()
        ListBox1.AllowDrop = True
    End Sub

    Private Sub CommandLine()
        For Each arg As String In My.Application.CommandLineArgs
            If IO.Path.GetExtension(arg).ToLower = ".mp3" Then
                ListBox1.Items.Add(arg)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        For Each f As String In e.Data.GetData(DataFormats.FileDrop)
            If IO.Path.GetExtension(f).ToLower = ".mp3" Then
                ListBox1.Items.Add(f)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub

End Class

موفقين