تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بخصوص اكواد استعراض ملفات
#1
Photo 
ممكن حد يساعدنى فى عمل كود لمثل هذا البرنامج فى الصورة رقم 10 بحيث عند عمل كليك علىlist box يستعرض ملفات الجهاز كما فى الصورة رقم 11 واقدر اختار المسار المناسب وفى نفس الوقت يعرض كل محتويات المسار دا من فلدرات فى ال combo boxالاولى كما فى الصورة رقم22 وعند اختيار فلدر معين من القائمة المنسدلة الاولى فى combo box الاولى يعرض محتويات الفلدر دا فى الاcombo box الثانيه كما فى الصورة رقم44 وعند اختيار فلدر من الاقائمة المنسدلة فى الcombo box الثانيه ,وعمل كليك على الزر show in window يعرض كل الملفات الى بصيغى html فى نافذة واحدةكما فى الصورة رقم33


الملفات المرفقة
.rar   photo.rar (الحجم : 80.95 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Imports System.IO

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For Each d As DriveInfo In DriveInfo.GetDrives
           If d.IsReady Then
               drv.Items.Add(d.Name)
           End If

       Next
   End Sub
   Dim folders As New List(Of String)
   Private Sub drv_SelectedIndexChanged(sender As Object, e As EventArgs) Handles drv.SelectedIndexChanged
       Dim dr As New DriveInfo(sender.text)
       fld.Items.Clear()
       folders.Clear()
       For Each dir As DirectoryInfo In dr.RootDirectory.GetDirectories
           fld.Items.Add(dir.Name)
           folders.Add(dir.FullName)
       Next
   End Sub

   Private Sub fld_SelectedIndexChanged(sender As Object, e As EventArgs) Handles fld.SelectedIndexChanged
       Dim dir As New DirectoryInfo(folders(sender.selectedindex))
       fl.Items.Clear()
       For Each f As FileInfo In dir.GetFiles
           fl.Items.Add(f.Name)
       Next
   End Sub
End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: ابو نجلاء , الوادي
#3
رائع أخي سعود ...بارك الله فيك

ولكن ماذا إذا كان المجلد يحتوي مجلد آخر ؟؟
الرد }}}}
تم الشكر بواسطة:
#4
(03-07-16, 05:24 PM)boudyonline كتب : رائع أخي سعود ...بارك الله فيك

ولكن ماذا إذا كان المجلد يحتوي مجلد آخر ؟؟

نستخدم دوال تساعد على ذلك.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
شكرا اخى سعود على البرمجة الرائعة ولكن طلب اخر  لو من الممكن برمجة اخرى يستخدم فيها اداة folderbrowsedialog لعرض المسارات بدلا من عرض السواقات وذلك لاختيار مجلد معين من مسار معين لعرض محتوياته من مجلدات فرعية ويكون البرنامج على النحو المضح فى الصور فى المرفقات 

وشكر دمتم بود


الملفات المرفقة
.rar   photo.rar (الحجم : 80.95 ك ب / التحميلات : 5)
الرد }}}}
تم الشكر بواسطة:
#6
اخي الكريم
ليش ماترفع   الصور على موقع رفع وتجلب الروابط المباشرة للصور اليس افضل من الاضطرار لتحميل مرفق للاطلاع على محتواه؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#7
يا يعسوب،

المرة القادمة ارجو لن تكون الصور jpg وليست bmp

تسهيلا على من يريد المساعدة اعرض الصور بعد تحويلها ل jpg مراعاة لسرعة النت عند البعض









الرد }}}}
تم الشكر بواسطة:
#8
شكرا اليكم جميعا للاهتمام وحسن الاستماع
ولكن ما بعرف مواقع رفع صور لو يعرف يقول عليها
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 76 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 54 18-05-17, 11:27 AM
آخر رد: OakenShield
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 55 17-05-17, 05:14 PM
آخر رد: 0theghost0
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 61 16-05-17, 12:29 AM
آخر رد: alma2
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 120 15-05-17, 01:48 AM
آخر رد: Ratchinko
  [VB.NET] اجعل ملفات Dll جزء من مشروعك مع سؤال 0theghost0 1 71 12-05-17, 10:47 PM
آخر رد: silverlight
  كيف أضيف أداة تقرأ ملفات PDF إلى فيجوال 2010 محمد بن عطية 2 92 09-05-17, 07:59 PM
آخر رد: safalo
  ملفات dll bidaya 7 141 09-05-17, 01:34 AM
آخر رد: bidaya
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 224 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 79 04-05-17, 02:02 PM
آخر رد: 0theghost0

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


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