محتاج مساعده في برنامج لتشغيل الملفات الصوتية

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج مساعده في برنامج لتشغيل الملفات الصوتية
#1
السلام عليكم انا بصمم برنامج لتشغيل الملفات الصوتية بس واقف قدامي حاجه واحده انا عامل قائمة تشغيل( play list (listbox وعايز كود يسمح لي بنقل الملفات الي listbox عن طريق مؤشر الموس بحيث يظهر لي في listbox مسار  الملف


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
(21-01-16, 04:21 PM)مدحت رمضان كتب : عايز كود يسمح لي بنقل الملفات الي listbox عن طريق مؤشر الموس بحيث يظهر لي في listbox مسار  الملف

هذا الكود
PHP كود :
Imports System.IO
Public Class Form1
    Private Sub ListBox1_DragDrop
(sender As ObjectAs DragEventArgsHandles ListBox1.DragDrop
        Dim files
() As String e.Data.GetData(DataFormats.FileDrop)
 
       ListBox1.Items.Clear()
 
       For Each file In files
            If Path
.GetExtension(file) = ".mp3" Then ListBox1.Items.Add(file)
 
       Next
    End Sub
    Private Sub ListBox1_DragEnter
(sender As ObjectAs DragEventArgsHandles ListBox1.DragEnter
        e
.Effect DragDropEffects.Copy
    End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        ListBox1
.AllowDrop True
    End Sub
End 
Class 
فقط قم بسحب الملفات والقائها على الـListBox   Wink
الرد
تم الشكر بواسطة: VB_Local
#3
(21-01-16, 05:43 PM)HASAN6.0 كتب :
(21-01-16, 04:21 PM)مدحت رمضان كتب : عايز كود يسمح لي بنقل الملفات الي listbox عن طريق مؤشر الموس بحيث يظهر لي في listbox مسار  الملف

هذا الكود
PHP كود :
Imports System.IO
Public Class Form1
    Private Sub ListBox1_DragDrop
(sender As ObjectAs DragEventArgsHandles ListBox1.DragDrop
        Dim files
() As String e.Data.GetData(DataFormats.FileDrop)
 
       ListBox1.Items.Clear()
 
       For Each file In files
            If Path
.GetExtension(file) = ".mp3" Then ListBox1.Items.Add(file)
 
       Next
    End Sub
    Private Sub ListBox1_DragEnter
(sender As ObjectAs DragEventArgsHandles ListBox1.DragEnter
        e
.Effect DragDropEffects.Copy
    End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        ListBox1
.AllowDrop True
    End Sub
End 
Class 
فقط قم بسحب الملفات والقائها على الـListBox   Wink
شكرا علي الاجابة المفيده
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج تعديل بسيط على الكود dubai.eig 3 27 منذ 9 ساعة مضت
آخر رد: elgokr
  هل يمكن عمل برنامج دورى كرة قدم على الفيجوال abo philomena 4 91 أمس, 06:08 AM
آخر رد: elgokr
  اكواد صنع برنامج للضغط علي زر معين بكثره مثال علي زر c AhmedShawqe 2 24 14-08-18, 10:39 PM
آخر رد: alsouf
  انشاء فولدر لحفظ الملفات المحملة داخله ابو روضة 3 47 09-08-18, 06:00 PM
آخر رد: elgokr
  مساعده في كود التعديل فراس محي 7 114 09-08-18, 05:18 PM
آخر رد: elgokr
  مساعده بخصوص طباعه داتا قريد فراس محي 4 95 01-08-18, 11:28 AM
آخر رد: فراس محي
  كود في طريقه حفظ الملفات بامتداد مختار من الفلتر معاذ العامري 4 90 31-07-18, 10:20 PM
آخر رد: سعود
  [VB.NET] حذف جزء من اسم الملفات ابو روضة 26 431 27-07-18, 10:55 PM
آخر رد: ابو روضة
  محتاج كود DOX.1 4 96 26-07-18, 12:33 AM
آخر رد: DOX.1
  طلب مساعده كود بالفيجوال بيسك 2010 للمحترفين معاذ ابراهيم العامري 20 531 22-07-18, 11:16 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم