اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

لكنني اريد ان يظهر اسم الصورة فقط عند اختيارها بـالتكست بوكس 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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information