تقييم الموضوع :
  • 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] تجميع الملفات النصية بملف واحد محمد اسماعيل 0 0 17-02-18, 05:48 PM
آخر رد: محمد اسماعيل
  مشروع تخرج كنترول شيت Vb.Net محتاج مساعدة sirnon 5 0 15-02-18, 02:26 AM
آخر رد: sirnon
  [سؤال] ارشفه الملفات الكرار 0 0 14-02-18, 01:19 AM
آخر رد: الكرار
  [VB.NET] عاوز اعمل برنامج يفعل البرنامج بتاعى MOSTAFA.KAMEL 7 0 11-02-18, 09:10 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] طلب بخصوص برنامج المبيعات محمد اسماعيل 3 0 08-02-18, 02:30 AM
آخر رد: محمد اسماعيل
Information [سؤال] اريد عمل برنامج يقرأ النص من سطر معين ويفرز المعطيات ويعالجها NABIL40W 1 0 06-02-18, 09:05 PM
آخر رد: NABIL40W
  [VB.NET] استفسار عن انشاء برنامج تجريبي محمد اسماعيل 3 0 04-02-18, 11:27 PM
آخر رد: Basil Abdallah
  [VB.NET] كيفية عمل برنامج صغير لرفع صورة من جهازي وتحويلها الي رابط e-coder 3 0 04-02-18, 01:23 AM
آخر رد: Basil Abdallah
Sad [VB.NET] مساعده من فضلكم جاسم عوط 0 0 03-02-18, 01:29 PM
آخر رد: جاسم عوط
  رسالة خطاء اثناء تحزيم البرنامج باستخدام برنامج Setup Factory نور الدين 2014 2 0 30-01-18, 01:48 AM
آخر رد: نور الدين 2014

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


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