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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة فى نافذة الدخول Mohamed Magdy 2 50 أمس, 11:22 AM
آخر رد: Mohamed Magdy
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 46 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى تفعيل لى البرنامج Mohamed Magdy 2 60 13-11-18, 05:40 PM
آخر رد: Mohamed Magdy
  [VB.NET] طلب برنامج حفظ واستدعى وتحرير بيانات مع صوره الى قاعدة اكسس 20000 khalidalwdi 0 44 12-11-18, 07:34 PM
آخر رد: khalidalwdi
  [VB.NET] مشكلة في برنامج متعدد اللغات ay.alhaj 12 246 12-11-18, 03:30 AM
آخر رد: ay.alhaj
  محتاج مبرمج ينفذ لي مثال موجود كتابه بال asp.net.vb mohamedgadain61 6 105 08-11-18, 01:44 PM
آخر رد: Amir_alzubidy
  [سؤال] كيف اعرف جميع الملفات التي يحتاجها التطبيق ليعمل دون أخطاء ؟ عبد الله 4 83 08-11-18, 08:15 AM
آخر رد: mero5000
  مساعدة ضرورية بخصوص برنامج Aminsoft 3 105 07-11-18, 01:08 PM
آخر رد: Aminsoft
Smile محتاج مساعدة عرض سجلات بطريقة افقيه بال NET.VB mohamedgadain61 0 37 07-11-18, 11:28 AM
آخر رد: mohamedgadain61
  محتاج مساعدة فى صنع برنامج Mohamed Magdy 2 64 07-11-18, 12:57 AM
آخر رد: Mohamed Magdy

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


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