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

أداة ListBox


migo702000

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

بعد التحية 

مرفق مثال بسيط جدا ارجو من الزملاء التوضيح عليه كيفية نسخ اكثر من عنصر فى قائمة 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