التنقل بين الصور

السلام عليكم ورحمة الله وبركاته

أخي الكريم عندما تكتب عنوناً فتكتبه ليكون مناسباً

كما أننا نرجوا من كاتبي المواضيع أن يححددوا ما يريدون بالضبط

فإذا ما أردت أن تقوم بمشروع معين فليكن أن تفكر ماذا يجب أن أفعل ما هي الخطوات الازمة لعمل هذا المشروع

عفواً بس أخي شو الخطأ في عنوان الموضوع ؟

أنا عايز برنامجي لما افتح صورة من الexplorer يفتحها في البرنامج وهذه حاجة شرحتها إنت والحمد لله بس لما افتح هذه الصورة عاوز البرنامج يقرأ كل الصور الموجودة في هذا المجلد يعني إذا فتحت مجلد فيه كتير صور وفتحت واحدة منهم باستخدام الACDsee مثلاً وكبست space ياخدك على الصورة يلي بعدها ثم يلي بعدها كل ما ضغطت space فكيف ممكن اعمل حاجة زي دي ؟

بسم الله

اعتقد ان الطريقة الوحيدة لعمل كده هي انك تحط اداة File وتخليها تحمل الصور اللي في المجلد اللي انت عايزه

وبعدين اداة Image تقرا الصور اللي في الـ File

وتكتب الكود التالي

File1.ListIndex=File1.ListIndex + 1

وطبعا ده مع اداة الـ Image لو انت عايز ان قائمة الصور اللي هي الـ File يكون مخفي

والله اعلم

في عدة طرق لعمل مثل هذا الامر وابسطها باستخدام الامر dir وتعبئة الملفات في مصفوفة

او بدو ن مصفوفة كما يلي

اول صورة print dir("c:\*.jpg)

الصورة التالية print dir

تتوقف عندما تصبح dir =""

ويمكنك بعدها احضار نوع الصور الثاني *.gif وهكذا

واذا كانت كل الملفات في المجلد صور استخد م dir(*.*)

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

يعني أنا المسار بالأصل ما رح كون عارفه ، يعني ما فيني اكتب c:\program files وكمان ما فيني اكتب commondialog1.filename

فيا ريت تساعدوني

إخواني إنتو مش عارفين الحل ولا مش فاهمين إلي أنا عاوزه ، على كل حال أنا عندي مثلاً أداة اسمها file1 عاوزها تحوي مسار الصورة الموجودة في الأداة Image1 يعني تقريباً

file1.path=dir(image1.picture)

بس الكود دا ما نفع ، على كل حال يمكن الحل ممكن يكون عن طريق الAPI فممكن تعطوني دوال الAPI إلي بتساعد للحصول على مسار معين

بقى بتدى صورة على أنها مسار يا راجل بص فى كودك كويس ؟!

الصورة اللى أنت حاطيطها فى أداة الـ Image مش ليها مسار عندك برضة على هيئة String , ألعب فيه و هات مسار الـ Folder اللى هى فيه و بعد كده اديه لأداة الـ File

يعنى :

C:\My Images\Me.gif

نجيب منه

C:\My Images

السلام عليكم ورحمة الله وبركاته

أن فهمت قصدك

أنت فاكر الأمر Command إلي عرفت تفتح منه الصورة هو به مسار الصورة إلى إنت فاتحها

حاول كتابة السطر التالي مع القيام بالخطوات التالية لتعرف ماذا يفعل الأمر command

 
Msgbox command$()

قم بفتح صورة واحدة وأريني النتيجة ثم قم بتحديد عدة صور في مجلد واحد واضغط enter واطبع لي النتيجة ( نتيجة الmsgbox ).

آه هو الcommand$ عبارة عن مسار الشي إلي فتحته !

انحلت المشكلة كده مشكورين ، الحمد لله أنا ما بسأل سؤال إلا وبتجاوبوا عليه

طيب بس في شغلة بسيطة :

1-وأنا عمبتنقل بين الصور أنا وصلت لآخر وحدة وأنا عاوزه يرجع لأول واحدة أنا جربت هذا الكود بس ما نجح

If KeyCode = 40 Then
If File1.ListIndex = File1.ListCount Then
File1.ListIndex = 1
End If
End If

2- أنا عاوزه بس يكون فيه صور فاستخدمت خاصية الPattern بس مع هالشي لما عمبتنقل بين الصور عمبيظهر الملفات إلي ما لها علاقة بالصور (متل exe و dll ) وهالشي بيعمل Error وأنا ما بدي إعمل تفادي أخطاء ، أنا بدي إتخلص من المشكلة كلها . يعني هو ما عمبيظهر في القائمة غير الملفات إلي أنا عاوزها بس لما عمبستخدم

File1.ListIndex = File1.ListIndex + 1

عمبيظهرها

فأرجو المساعدة

File1.ListCount - 1

*.bmp;*.gif;*.jpg

و هكذا.................................