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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] مساعده في حل اخطاء التقارير 739906433 2 21 منذ 23 دقيقة مضت
آخر رد: 739906433
  [سؤال] طلب مساعده eslam_zimo 0 31 10-12-17, 12:25 AM
آخر رد: eslam_zimo
  [نقاش] محتاج مساعده بأفكار لانجاز تعديل على المشروع Rabeea Qbaha 7 154 30-11-17, 04:45 PM
آخر رد: Rabeea Qbaha
  محتاج كود للبحث VB.NET 24 405 25-11-17, 09:57 AM
آخر رد: VB.NET
Sad برنامج الديون Kian Tech 13 1,409 22-11-17, 01:07 PM
آخر رد: أبوبكر سويدان
  مطلوب رأيكم في (فكرة حصر برنامج لجهاز واحد فقط) سعود 4 131 20-11-17, 01:55 PM
آخر رد: sendbad100
  ارجو المساعدة فى تشغيل برنامج الحسابات هذا islam_zolek 2 135 17-11-17, 04:23 PM
آخر رد: islam_zolek
  [VB.NET] اضافة الملفات محمد اسماعيل 6 169 14-11-17, 05:31 AM
آخر رد: karimx
  تثبيت برنامج في شبكه ..؟ طـلال 0 66 12-11-17, 12:52 PM
آخر رد: طـلال
  مساعده فى كود التحكم عن بعد ((بمقابل مادى لو لزم الامر )) mido2010bona 4 820 07-11-17, 10:42 PM
آخر رد: VB.NET

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


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