تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1866167185
ذخیره نام فایل های داخل یک پوشه در list - ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: ذخیره نام فایل های داخل یک پوشه در list - ویژوال بیسیک S.H.M 26 دي 1387, 16:07آیا میشه برنامه ای نوشت که با دادن یک آدرس پوشه به اون تمام اسم فایل های داخل پوشه رو در list1 نمایش بده من وقتی از دستور dir استفاده می کنم فقط اسم فایل اول (از نظر حروف الفبا) رو ذخیره می کنه the_king 26 دي 1387, 17:13آیا میشه برنامه ای نوشت که با دادن یک آدرس پوشه به اون تمام اسم فایل های داخل پوشه رو در list1 نمایش بده من وقتی از دستور dir استفاده می کنم فقط اسم فایل اول (از نظر حروف الفبا) رو ذخیره می کنه تابع Dir یک تابع خاص است، بایستی بار اول آنرا با پارامتر های ورودی فراخوانی کنید تا جستجو را آغاز کند و در دفعات بعدی بدون پارامتر ورودی فراخوانی اش کنید تا جستجوی قبلی را ادامه دهد وگرنه مجددا از ابتدا جستجو خواهد کرد. جستجو زمانی پایان یافته که رشته تهی ("") توسط این تابع برگردانده شود. روتین زیر (DirPath) یک مسیر جستجو مانند (*.*:C) و یک ListBox مانند List1 را به عنوان پارامتر ورودی دریافت کرده و لیست فایلهای درون آن مسیر (اعم از فایل های مخفی (Hidden)، فایل های سیستمی (System) و فقط خواندنی (Read Only) را در ListBox مور نظر قرار می دهد : Private Sub DirPath(ByVal Path As String, ByRef List As ListBox) Dim FileName As String With List .Clear FileName = Dir(Path, vbArchive Or vbHidden Or vbReadOnly Or vbSystem) Do While Len(FileName) > 0 .AddItem FileName FileName = Dir DoEvents Loop End With End Sub دقت کنید که شرط ادامه یافتن حلقه Do While بیشتر بودن طول رشته FileName از 0 است، یعنی تا زمانی که رشته تهی نباشد. همچنین در داخل حلقه از تابع Dir به شکل FileName = Dir استفاده شده، یعنی بدون پارامتر ورودی. از DoEvents استفاده گردید تا اگر تعداد فایل ها زیاد باشد و یا سیستم فایل ها کند عمل نماید، تاخیر در نمایش لیست موجب قفل کردن برنامه نشود. هر زمانی که از فرمان DoEvents استفاده می کنید، عملیات به تاخیر افتاده مانند بررسی کلیک ماوس یا نمایش محتویات ListBox به طور کامل انجام می شوند. و یک مثال از نحوه بکارگیری این روتین : DirPath "C:*.*", List1
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 2463]
-
گوناگون
پربازدیدترینها