كيف اعرض مجموعة غير محدده من الصور ... ارجوكم

(بسم الله الرحمن الرحيم)

أنا سؤوضح الافكار وعليك التنفيذ ولو صعب ان شاء الله نوضحلك

على حسب مافهمت انك تبغى تعرص صور

العرض حيكون بي

1_

حتنزل كائن

Picture

وزرين

NEXT BACK

Dim sFiles As New Collection 'العام
Dim Idx As Long


Private Sub Form_Load()
GetFiles App.Path & "\XX\XX\", sFiles
Idx = 1
End Sub

On Error Resume Next ' زر التالي 
If Idx < sFiles.Count Then Idx = Idx + 1
Picture.Picture = LoadPicture(sFiles(Idx))

2-

تنشيئ مع لكل موظف مجلد وقت تسجيل الموظف وتحفظ مسار المجلد او اسم المجلد فحقل سجل الموظف

3-

وتكون المستندات والوثائق اسمها عباره عن (اسم الموظف+ترقيم 1,2,3...)

بالتوفيق

فى البدايه احب اشكرك جدا على مبادرتك الكريمه فى مساعدتى ....

فى الطريقه التى تفضلت وقترحتها ستظهر صوره واحده فى كل مره ويقوم المستخدم بالتنقل بين الصور

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