أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm

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



11-09-2019 10:41 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

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

0gXdT_Logo

أقدم لكم بطريقة مبسطة كيفية إنشاء فورم لعرض الصور للأشخاص من خلال النقر على اسم الشخص في الليست بوكس

بفرض أن لديك في العمود الأول مجموعة من الأسماء ، ولديك مجلد يحتوي على صور لهؤلاء الأشخاص ، والمطلوب هو أن تعرض صورة الشخص عند اختياره من أداة الليست بوكس أو صندوق القائمة ListBox

8Pezp_001

خطوات العمل :

* قم بإدراج فورم من خلال قائمة Insert ثم UserForm

* قم بإظهار صندوق الأدوات إذا لم يكن ظاهراً لديك من خلال قائمة View ثم Toolbox

* قم برسم أداة الليس بوكس ListBox كما هو موضح بالصورة التالية

aA6wS_002

 قم برسم أداة الصورة Image كما هو موضح بالصورة التالية

z7IUQ_003

* الخطوة الأخيرة ضع الكود التالي في حدث الفورم (كليك يمين على اسم الفورم من نافذة المشروع ثم اختر View Code ثم الصق الكود)* الخطوة الأخيرة ضع الكود التالي في حدث الفورم (كليك يمين على اسم الفورم من نافذة المشروع ثم اختر View Code ثم الصق الكود)
Private Sub UserForm_Initialize()
    'الإعلان عن متغير من النوع نطاق
    Dim rng         As Range

    'لآخر خلية بالعمود [A2] تعيين قيمة للمتغير ليساوي النطاق من أول الخلية
    Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    'تعبئة الليست بوكس بقيم النطاق أي بالأسماء
    ListBox1.List = rng.Value
End Sub

Private Sub listBox1_Click()
    'الإعلان عن المتغير من النوع النصي ليحمل مسار الصور
    Dim strPath     As String

    'تعيين مسار المجلد الذي يحتوي على الصور
    strPath = ThisWorkbook.Path & "Photos"

    'جملة لتجنب حدوث خطأ في حالة عدم وجود اسم معين
    On Error Resume Next

    'إظهار صورة في أداة الصورة ومسار الصورة كما هو موضح
    'يتم تحميل الصورة من مسار المجلد الذي يحتوي الصـور
    'مضاف إليه اسـم الصورة بالامتداد الخاص بها
    Image1.Picture = LoadPicture(strPath & ListBox1.Value & ".jpg")

    'في حالة عدم حدوث خطأ يتم الخروج من الإجراء هنا
    If Err = 0 Then Exit Sub

    'أما إذا حدث خطأ تظهر في أداة الصورة صورة يتم وضعها
    'تشير إلى أنه لا توجد صورة لهذا الشخص
    Image1.Picture = LoadPicture(strPath & "NoPhoto.Jpg")
End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


11-09-2019 10:49 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
عمل رائع استاذ ياسر بارك الله فيك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

11-09-2019 10:50 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
الأروع هو مرورك العطر أخي الغالي علي محمد علي ... 

11-09-2019 11:27 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 812
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
جزاكم الله خيرا اخى الكريم وجعل هذا العمل في ميزان حسناتكم يوم القيامه 

12-09-2019 10:26 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
بارك الله فيك أخي حسونة وجزيت خيراً على دعواتك الطيبة

12-09-2019 12:02 مساء
مشاهدة مشاركة منفردة [5]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
بارك الله فيك استاذ ياسر81

13-09-2019 03:07 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm
تسلم يا دكتور ومشكور على مرورك العطر 113




الكلمات الدلالية
الصور ، الفورم ، خلال ، الليست ، بوكس ، Display ، Pictures ، ListBox ، UserForm ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:55 صباحا