اذهب الي المحتوي
أوفيسنا

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

قام بنشر

بعد التحية 

مرفق مثال بسيط جدا ارجو من الزملاء التوضيح عليه كيفية نسخ اكثر من عنصر فى قائمة ListBox ليتم تخزينها فى مربع نص بحيث يكون بين عنصر فاصل مثل # أو & وذلك على سبيل المثال سواء تمت طريقة النسخ باستخدام Double Click على العنصر المراد نسخه للمربع النصى او بالاختيار المتعدد فى القائمة ثم نسخها بواسطة Command Button مرة واحدة 

ولكم جزيل الشكر 

ListBox Test.rar

قام بنشر (معدل)
منذ ساعه, Barna said:

جزاكم الله خيرا اخوانى واساتذتى @محمد ابوعبد الله و @Barna

اخى محمد البرناوى

ماذا يعنى حرف s بالكود

Private Sub القائمة7_DblClick(Cancel As Integer)
For Each s In القائمة7.ItemsSelected
Items = Items & القائمة7.ItemData(s) & "-"
Next
End Sub

لم انتبه للحرف فبدايه داله الفور

جزاكم الله خيرا اساتذتى والحمدلله رب العالمين

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

تم تعديل بواسطه أحمد الفلاحجى
  • Haha 1
قام بنشر

شكرا لكل من تفضل بالرد ... وهو المطلوب للتنفيذ .. واذا كان من الممكن ان نضيف جزء صغير للسؤال وهو اذا تكرر اختيار نفس العنصر مرة او اكثر يعطى رسالة تنبية ان هذا العنصر تم اختيارة فعلا ويعطى اختيار (نعم) للاضافة مرة اخرى و(لا) لعدم التكرار 

وشكر لحضراتكم مقدما

 

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