تقييم الموضوع :
  • 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
شكرا علي الاجابة المفيده
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود خاص ببرنامج المخازن hatem555 12 203 منذ 7 ساعة مضت
آخر رد: hatem555
  [سؤال] برنامج مولد الاكواد Code builder Mahmoud Nasser 2 39 منذ 9 ساعة مضت
آخر رد: Mahmoud Nasser
  [VB.NET] مساعدة محتاج خبراء ReportViewer dubai.eig 26 476 أمس, 07:11 PM
آخر رد: elgokr
Thumbs Up [سؤال] محتاج كود مشاركة على الفيس بوك aldery 1 51 20-05-18, 02:05 PM
آخر رد: sendbad100
  [VB.NET] اضافة الملفات محمد اسماعيل 8 317 17-05-18, 05:35 AM
آخر رد: elgokr
  تشغيل برنامج في الميموري Dr.Virus 8 1,588 12-05-18, 11:22 PM
آخر رد: elgokr
  طلب سورس كود برنامج محاسبي أبو علي1 2 100 08-05-18, 03:11 PM
آخر رد: أبو علي1
  [VB.NET] احتاج مساعده بسيطه منكم في ال Crystal Reports mazenk 0 70 02-05-18, 01:39 AM
آخر رد: mazenk
  مطلوب مساعده فى كود تحقق سلامه محمد11 3 57 28-04-18, 08:59 PM
آخر رد: سلامه محمد11
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 5 155 27-04-18, 12:03 AM
آخر رد: dell

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


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