منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نقل عناصر listbox الى textbox بـــكوما مفصولة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
(26-08-17, 02:34 PM)سعود الشامان كتب : [ -> ]
(26-08-17, 02:09 PM)حريف برمجة كتب : [ -> ]صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .

كما أعتقد وعلى حد علمي هنالك شركتين لديهم مشروع مفتوح وتستطيع الإشتراك معهم


أستخدمت مشروع شركة  http://www.mobily.ws

تم طرح مواضيع من قبل بهذا الموضوع

http://vb4arb.com/vb/showthread.php?tid=15796

وأيضاً

http://vb4arb.com/vb/showthread.php?tid=6366

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

نبي نعرف فكرتك بالضبط ( علشان نسهل عليك ونعطيك ميزات أكثر ) ونحاول نصحح لك إذا فيه أخطاء

حملت مشروع شركة ملاذ

مشروعهم فيه خطأ ,

أنصحك بشركة موبايلي , والمشروع امامك عدل ما تريد , وأي إستفسار أنا حاضر
بسيطة ارفع مثالك وسوف نعدله لك بدون ليست بوكس او تكست بوكس ،، يتم وضع الارقام في متغير مفصولة بكوما وإضافة 966 للأرقام .
مارايك بالمثال التالي و ارجو ان يعمل ..اخبرني بالنتيجة.
المثال

مثال  مرفق
لان الليست بوكس يختلف التعامل معها بين كونها مربوطة وبين كونها منفصله.
================================

المثال رفعته مرة اخرى 
MySaver_for_Listbox_items.zip

(13-09-13, 11:38 AM)Nŏ Coммεητ كتب : [ -> ]



ممكن توضح الفكره اكثر مافهمتها

العنوان واضح لكن الازرار غير واضح المقصود منها 

بالنسبه للبرنامج يارايت ترجع ترفعه من جديد

___________

دمت بخير


الفكرة اخي الكريم ان حفظ محتويات الـ Listbox حال الربط بقاعدة البيانات يختلف عنها حال من غير ربط.

هذه اساس الفكرة ويوجد زرين هما
حفظ الكل من جدول1 الى جدول2
حفظ المحدد من جدول1 الى جدول3

وفي كلا الزرين يتم التحقق من هل اداة Listbox1 الاولى مربوطة ام لا بالشرط او الكود التالي:
كود :
 If IsNothing(ListBox1.DataSource) Then
اذا تحقق هذا الشرط انظر للكود كيف كتبناه وان لم يتحقق ايضا انظر كيف يكون الكود
ان كان غير مربوط انظر كيف نحفظ القيمة المحددة من الـ Listbox1
كود :
cm.Parameters.AddWithValue("@tn", itm)
الـ itm هذه ضمن جملة For

طيب في حال عدم تحقق الشرط اي ان الاداة مربوطة وهي LIstbox1
كود :
cm.Parameters.AddWithValue("@tn", itm("tn"))
الـ tn هي اسم عمود الاسماء في الجدول

اما الزرين الاوليين فلا يهم لانه فقط فصل الاداة وربطها

(12-09-13, 10:31 PM)العزابي كتب : [ -> ]جميل جدا جدا وأشكرك ...........

العفو اخوي
والاجمل تواجدك بالموضوع.
الصفحات : 1 2