كود وضع اسم الصورة في تكست بوكس

[صلاح الدين ابو حسين]

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

لدي الكود ادناه لاستعراض صورة الى اليوزر فورم

لكنني اريد ان يظهر اسم الصورة فقط عند اختيارها بـالتكست بوكس 11

ارجو المساعدة في تكملة هذا الكود ليسمح لي بعرض اسم الملف الذي تم اختياره 

ولكم كل الشكر

 

Image_path = Application.GetOpenFilename( _

        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _

        Title:="اختر صورة")

TextBox11.Value = ؟؟؟؟

 

End Sub

[ياسر خليل أبو البراء]

وعليكم السلام أخي صلاح الدين

الرجاء تغيير اسم الظهور للغة العربية يا صلاح الدين السوري

ارفق ملفك لتتضح صورة طلبك وللعمل عليه

تقبل تحياتي

[صلاح الدين ابو حسين]

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

وضع صورة.zip

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم صلاح الدين

اذهب لمحرر الأكواد Alt + F11

انقر دبل كليك على اسم الفورم المسمى add من نافذة المشروع

انقر دبل كليك على زر الأمر المسمى "استعراض"

قم بمسح الكود المرتبط بهذا الزر (الجزء التالي)

Private Sub CommandButton3_Click()
Image_path = Application.GetOpenFilename( _
        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
        Title:="اختر صورة")
TextBox11.Value = Image_path

'ActiveWorkbook.Save
If Image_path <> False Then
Me.Lab_pic.Picture = LoadPicture(Image_path)
End If
End Sub

ضع الكود التالي مكانه

رابط الكود من هنا

فبل تشغيل الفورم ، قم بالذهاب لأدوات Tools واختر Reference وأضف المكتبة التالية

Microsoft Scripting Runtime

الآن قم بتشغيل الكود وجرب النقر على زر استعراض .. لتحصل على اسم الصورة في التكست بوكس رقم 11

 

[صلاح الدين ابو حسين]

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

الاخ الفاضل ياسر خليل

جزاكم الله عنا كل خير

الكود يعمل بكفاءة 

اسأل الله ان يجعله في ميزان حسناتك

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير

وجزيت خيراً أخي صلاح على دعائك الطيب

تقبل تحياتي