برنامج ضغير لاستعراض ملفات الصور بالسورس كودد

[عنـ الشوق ـاد]

اولا نقوم بفتح مشروع جديد
نضع على الفورم drive list box-file list box-dir listbox
هاجى على الdrive فى الحث changeاكتب الكود التالى
Dir1.Path = Drive1.Drive
بعد كده الdire فى نفس الحدث اكتب
File1.Path = Dir1.Path
بعد كده الfile فى نفس الحدث اكتب الكودالتالى
Picture1.Picture = LoadPicture(Dir1.Path & "..\" & File1.FileName)
وذلك بعد اضافه اداه picture boxعلى الفورم
بعد ذلك اجى على شاشه الخصائص الخاصه بالfileالخاصيه patern
اخليها *.bmp
وبعد كره شغل البرنامج وشوف النتيجه

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك