16-04-15, 11:30 AM
16-04-15, 03:10 PM
شكراً لك على مساعدتك لي
واعتذر على عجلتي
واعتذر على عجلتي
18-04-15, 04:11 PM
اعتذر عن التاخير ويمكنك الاستفادة من هذا المثال
http://pratiksvssite.blogspot.com/2011_1...chive.html
http://pratiksvssite.blogspot.com/2011_1...chive.html
20-04-15, 03:23 PM
لقد جربت الكود ولكن دون جدوى ارجوا منك مشاهدة المشروع
27-04-15, 09:20 PM
اعتذر عن التاخر في الرد
مرفق لك التعديل على المشروع
مرفق لك التعديل على المشروع
28-04-15, 03:20 PM
شكرا لك
سأجر بالمثال واطلعك على النتيجة
سأجر بالمثال واطلعك على النتيجة
29-04-15, 10:51 AM
لقد نجح المشروع
عندي سؤال عندما حاولت نقل الاكواد الى مشوعي السابق لم ينجح الامر لكن عندما اعتمدت المشروع المعدل نجح الامر
عندي سؤال عندما حاولت نقل الاكواد الى مشوعي السابق لم ينجح الامر لكن عندما اعتمدت المشروع المعدل نجح الامر
29-04-15, 10:21 PM
عادي سوي مقارنة في الاكواد 
فقط واي شي ممكن اساعدك
فقط واي شي ممكن اساعدك05-05-15, 11:53 AM
بعد اذنك عندي طلب
كود المفضلة القائمة واضافة ملف وحذف ملف
كود المفضلة القائمة واضافة ملف وحذف ملف
07-05-15, 11:30 AM
مالخطأ في هذه الأكواد
كود القائمة
كود اضافة
كود حذف ملف
عند تجربة الأكواد لم يظهر اي خطأ لكن لم تعمل هذه الاضافات
كود القائمة
PHP كود :
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim filePaths As String() =
CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each s As String In filePaths
Dim FI As New IO.FileInfo(s)
Dim exten As String =
FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
(FI.Name.LastIndexOf(".") + 1))
If exten = "mp3" Or exten = "wmv" Then
ListBox1.Items.Add(s)
End If
Next
End If
End Sub
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
كود اضافة
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dlg As New OpenFileDialog
dlg.Filter = "All Files|*.(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf;*."
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
End If
End Sub
كود حذف ملف
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
the.delled()
End Sub
End Class
عند تجربة الأكواد لم يظهر اي خطأ لكن لم تعمل هذه الاضافات