ارجو المساعده كيف الاضافه على Combo1

يا شباب عشرين قارىء مافي واحد يستطيع مساعدتي

امل ان تساعدوني ما زلت انتظر كرمكم

اخي الكريم قم بمايلي

ذا كنت تريد الاضافة في و ضع التنفيذ قم بمايلي

اولا اضف عنصر

command "اي زر"

ثم انقر نقرا مزدوجا على الزر الذي اضفته اي الـ command1 و اكتب

combo1.add item combo1.text

combo1.text =""

هنا سوف يضاف عنصر جديد الى الكومبو بوكس و يكون هذا العنصر ما تمت كتابته في الكومبو بوكس

شغل البرنامج اي اضغط f5 الان و اكتب ما تشاء في combo1 ثم اضغط على الزر command1 ولاحظ ان ما كتبته اصبح عنصرا في ال combo1

اما اذا كنت تريد الاضافة في و ضع التصميم

في الحدث form load قم باضافة مالي

اولا يجب ان نعلن عن متغير و هو عدد صحيح و يكون بالشكل التاي

Dim C as integer

اما الخطوة الثانية فسنقوم بحلقة تكرار لاحظ معي ايضا في الحدث form load

for c=1 to 50

combo1.additem c

next

و هكذا نكون قد عبأنا الكومبو بوكس بارقام من الواحد الى الخمسين

و اذا كنت تريد ان تعبئها يدويا او عنصرا عنصرا

و ايضا في الحدثform load

combo1.additem 1

combo1.additem 2

combo1.additem 3

الى اخره

اخي الحبيب اشكرك على تجاوبك معي جعله الله في موازين اعمالك

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

وهل تختلف النصوص

مثال

المملكه العربيه السعوديه

عمان

البحرين

عن الاعداد اقصد في المتغير

اذا امكن ان تطبق مثالك على البرنامج المرفق اعلاه اكون لك من الشاكرين

اسأل الله ان يحفظك ويبارك فيك وان يجعل ماتكتبه لك لا عليك يوم تلقاه

اخوك

اولا اخي الكريم يجب ان نعلن عن متغيرين احدهما عدد صحيح و الاخر نصي

اذهب الى قسم التصريحات العامة و اضف

Dim B as String,D as integer

الان ادخل الى كود command1 الذي انشئناه سابقا احذف الاكواد التي فيه و اكتب معي من جديد

 

D = D + 1
Combo1.AddItem Combo1.Text

B = Combo1.Text
SaveSetting "MyApp", "MyA" + Str(D), "MyAqp", B
SaveSetting "MyApp", "MyA", "MyAqp", D
Combo1.Text = ""

الان اذهب الى الحدث form load و اضف مايلي

 

Dim XX As Integer
Dim SS As String
XX = GetSetting("MyApp", "MyA", "MyAqp", D)

For D = 1 To XX
SS = GetSetting("MyApp", "MyA" + Str(D), "MyAqp", B)
Combo1.AddItem SS
Next

بالنسبة للسورس المرفق لا يعمل عندي و لكن الشرح كااافي جدااا و لم اعمل شيء معقد

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

بالنسبة لسؤالك ان اضافة الدول الى الكومبو بوكس هي نفس طريقة اضافة الاعداد

نعم هي في نفس الطريقة و لكن اذا كانت هذه الدول موجودة في مصفوفة معينة مثل مصفوفة الخطوط

وهذا المثال يشرح اضافة الخطوط الموجودة في الجهاز الى الكومبو بوكس

Dim Sxx as integer
for Sxx=0 to screen.fontcount -1
combo1.additem fonts (c)
next

اشكرك اخي الحبيب على تجاوبك معي ولكن مازالت المشكله قائمه مع انني وضعت كل ما طلبته مني

عندما اضيف فانه يستجيب ولكنه لايحفظ فبجرد خروجي من البرنامج كانني لم اعمل شيء

انا لدي جدول يحتوي على الاسم والوظيفه ومجموعة خانات اخرى

الكمبو بوكس فيه الوظائف مهندس طيار مبرمج وخلافه

انا اريد ان اختار مثلاً مع الاسم محمد الوظيفه مهندس واحفظها في الجدول ولو استجد في المستقل بعد تنفيذ البرنامج اضافة وظائف استطيع اضافتها كما وضعته لي بالكود اعلاه

سارفع الملف مره اخرى مع صوره توضيحيه امل ان تساعدني

جزاك الله الف خير

hgog.rar