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

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


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



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





مساعدة في كود برمجي لأظهار صورة في اليوزفورم

أرجو مساعدتي لربط صورة هاته بالتكس بوكس 1 و التي تحمل الرقم لهار الصور وشكرا



04-11-2018 09:09 صباحا
سعيد العربي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-11-2017
رقم العضوية : 1366
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 6-12-1987
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 62
الاعجاب : 0
 offline 

أرجو مساعدتي لربط صورة هاته بالتكس بوكس 1 و التي تحمل الرقم لهار الصور وشكرا 
 
 
  طلب مساعدة في كود برمجي.rar   تحميل rar مرات التحميل :(22)
الحجم :(499.474) KB








05-11-2018 01:25 مساء
مشاهدة مشاركة منفردة [1]
سعيد العربي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-11-2017
رقم العضوية : 1366
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 6-12-1987
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 62
الاعجاب : 0
 offline 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
أرجو المساعدة منكم أخواني 






06-11-2018 09:19 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
السلام عليكم أخي الكريم سعيد

في حدث الفورم ضع هذا الكود في نهاية الأكواد 
Sub Load_Image()
    Dim strFile As String
    
    strFile = ThisWorkbook.Path & "\images\" & Me.Controls("Text1").Value & ".jpg"
    
    If Len(Dir(strFile)) > 0 Then
        Me.Image1.Picture = LoadPicture(strFile)
    Else
        Me.Image1.Picture = LoadPicture("")
    End If
End Sub


ثم قم باستدعاء الكود في مكانين .. الاول في حدث UserForm_Activate قبل السطر End Sub .. ضع السطر التالي
Call Load_Image


وأيضاً قم باستدعاء الكود مرة أخرى في حدث النقر على الليست بوكس والمسمى ListSh_Click قبل السطر End Sub 
Call Load_Image






06-11-2018 09:47 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 909
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 46
قوة السمعة : 4110
الاعجاب : 58
 Online 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
ممتاز بارك الله فيك استاذ ياسر وجزاك الله كل خير



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



06-11-2018 10:01 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
وجزيت خيراً أخي الحبيب علي بمثل ما دعوت لي
مشكور على مرورك العطر






07-11-2018 09:27 صباحا
مشاهدة مشاركة منفردة [5]
سعيد العربي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-11-2017
رقم العضوية : 1366
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 6-12-1987
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 62
الاعجاب : 0
 offline 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
جزاك الله عنا كل خير لقد تعلمت منكم الكثير وتعلمت استدعاء الصور لكن مع العادي يعني textbox1
ولكن هذا الفورم متقدم جداااا me.controls...............
بارك الله لك و عليك وفي أبنائك






07-11-2018 07:57 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif مساعدة في كود برمجي لأظهار صورة في اليوزفورم
بارك الله فيك أخي الكريم سعيد
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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







الكلمات الدلالية
مساعدة ، برمجي ، لأظهار ، صورة ، اليوزفورم ،


 







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



الساعة الآن 10:31 مساء

أعلن هنا
أعلن هنا
أعلن هنا