[محمد ف]

شباب ممكن مساعده لاخوكم .بدأت في مشروع ووقفت عن شي . المهم هو
فور يتكون من زر وليست فيو .وتيكست بوكس .
انا اريد لام اضغط علي بويتن واحدد اي قرص صلب . يظهر لي جميع مسارة الملفات .داخل القرص . المحدد ممكن مساعده شباب ضروري

---

(29-09-18, 11:02 AM)عبدالله الدوسري كتب : ههههههههههههههه
جيت المسار قلت أبي أسماء
جبت أسماء الحين تبي مسار 

كذا تحتاج تحفظ المسار + اسم الملف
:D

إذا راح تستخدم كنترول من من صندوق الأدوات يقبل إضافة العناصر 
مثل الكمبوبكس أو اليست بوكس 
أعمل كلاس صغير يخدمك في حفظ المسار مع اسم الملف :
هذة الطريقة أستخدمها كثير :
انسخ هذا الكلاس ( سميتة على اسمك ابو روضة )  : ضعة في مكان خارج كلاس النافذة 

كود :

Public Class AbuRowdah
   Public FileName As String
   Public FilePath As String
   Public Sub New(ByVal FileName As String, FilePath As String)
       Me.FileName = FileName
       Me.FilePath = FilePath
   End Sub
   Public Overrides Function ToString() As String
       Return Me.FileName
   End Function
End Class

واسخدمة بهذة الطريقة :
عند الإضافة :

كود :

       Using ofb As New OpenFileDialog
           ofb.InitialDirectory = ""
           ofb.Multiselect = True
           If ofb.ShowDialog() = DialogResult.OK Then
               For i As Integer = 0 To ofb.FileNames.Count - 1

                   Dim FullName As String = ofb.FileNames(i)
                   Dim OnlyFileName As String = IO.Path.GetFileNameWithoutExtension(FullName)

                   ' هذا الكلاس تلقائياً راح يعرض اسم الملف فقط داخل الليست بوكس وليس المسار
                   Me.ListBox1.Items.Add(New AbuRowdah(OnlyFileName, FullName))

               Next
           End If
       End Using

وعند الضغط دبل كلك مثلاً : استخدم الكود بهذة الطريقة

كود :

   Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick

       ' اسم الملف فقط من العنصر المحدد
       Dim FileName As String = CType(Me.ListBox1.SelectedItem, AbuRowdah).FileName

       ' مسار الملف من العنصر المحدد
       Dim FilePath As String = CType(Me.ListBox1.SelectedItem, AbuRowdah).FilePath

       ' استخدمهم الآن بشكل طبيعي


   End Sub

:idea:

---

(29-09-18, 11:02 AM)عبدالله الدوسري كتب : ههههههههههههههه
جيت المسار قلت أبي أسماء
جبت أسماء الحين تبي مسار 

كذا تحتاج تحفظ المسار + اسم الملف
:D

إذا راح تستخدم كنترول من من صندوق الأدوات يقبل إضافة العناصر 
مثل الكمبوبكس أو اليست بوكس 
أعمل كلاس صغير يخدمك في حفظ المسار مع اسم الملف :
هذة الطريقة أستخدمها كثير :
انسخ هذا الكلاس ( سميتة على اسمك ابو روضة )  : ضعة في مكان خارج كلاس النافذة 

كود :

Public Class AbuRowdah
   Public FileName As String
   Public FilePath As String
   Public Sub New(ByVal FileName As String, FilePath As String)
       Me.FileName = FileName
       Me.FilePath = FilePath
   End Sub
   Public Overrides Function ToString() As String
       Return Me.FileName
   End Function
End Class

واسخدمة بهذة الطريقة :
عند الإضافة :

كود :

       Using ofb As New OpenFileDialog
           ofb.InitialDirectory = ""
           ofb.Multiselect = True
           If ofb.ShowDialog() = DialogResult.OK Then
               For i As Integer = 0 To ofb.FileNames.Count - 1

                   Dim FullName As String = ofb.FileNames(i)
                   Dim OnlyFileName As String = IO.Path.GetFileNameWithoutExtension(FullName)

                   ' هذا الكلاس تلقائياً راح يعرض اسم الملف فقط داخل الليست بوكس وليس المسار
                   Me.ListBox1.Items.Add(New AbuRowdah(OnlyFileName, FullName))

               Next
           End If
       End Using

وعند الضغط دبل كلك مثلاً : استخدم الكود بهذة الطريقة

كود :

   Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick

       ' اسم الملف فقط من العنصر المحدد
       Dim FileName As String = CType(Me.ListBox1.SelectedItem, AbuRowdah).FileName

       ' مسار الملف من العنصر المحدد
       Dim FilePath As String = CType(Me.ListBox1.SelectedItem, AbuRowdah).FilePath

       ' استخدمهم الآن بشكل طبيعي


   End Sub

:idea: