الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

(combo +x+.text)أضع مكانها ايه ؟؟؟؟؟

مغلق
بدأه م / محمد جمال في 7 يونيو 2007 · 20 رد · 1,145 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

عايز أعمل لووب على الادوات اللى مستخدمها ومش عارف

مثلا :

Dim n,x,k as string
Do While x = n - 1
If Val(Combo + x + .Text) = Value(Combo + (x + 1) + .Text) Then
 k = 0.98


End If
loop

ايه الحل وهل في طريقة اخري تنفع ؟؟؟؟؟؟؟

تم تعديل هذه المشاركة بواسطة م / محمد جمال في 7 يونيو 2007 في 21:05

#2

ممكن توضيح اكثر وياريت بالتفصيل

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#3

مثال علي الكومبوبوكس

 Dim ctrl As Control
 For Each ctrl In Me.Controls
	 If TypeOf ctrl Is ComboBox Then
		ctrl.Text = "Test"
	 End If
 Next

#4

TextBox

Label

ListBox

ComboBox

CommandButton

CheckBox

OptionButton

مع مراعاة الـ Properties لكل كائن ..

#5

أقصد انا عايز أقول

يابرنامج لو استقبلت منى رقم خمسة اجمعلى الكومبوبوكس (combo5.text) مع (combo4.text)

أتمنى تكون وضحت

وشكرا على تعبكم معايا

#6

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

علشان نعرف حتي هيستقبل رقم خمسة ده منين ..

لإن الكود اللي وضعته في أول مشاركة غير اللي انت بتقوله دلوقت في اخر مشاركة ..

#7

el 7alow howa

we isa yeb2a dah ely anta 3aizo

For i =0 to X

controls("combo" & i).text

Next

#8

ما يمشي الكود كده ؟ 

Private Sub Text1_Change()
	If Text1.Text = "5" Then
		Text2.Text = Val(Combo1.Text) + Val(Combo2.Text)
	End If
End Sub
اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#9

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

جزاكم الله خير على تعبكم معايا

هوا الحل اللى انا حاسس انه هوا اللى انا عايزه بتاع الأخ kazbra

بس جربته مش شغال

أنا عملت برنامج صغير ارفقته عشان يوضح السؤال

ومنتظر الحل

proj.rar

#10

طبعا عمره ما هيشتغل

علشان بتعمل لووب في كائنات بطريقة خطأ ..

#11

انا نزلت المشروع الاخير ... علي امل إني افهم منه انت عايز ايه ..

بس لقيت كود عجيب .. يستاهل جائزة كبيرة في مسابقة الأكواد العجيبة ..

يبدو إنك جمعت كل جزء من كل كود قاله الأعضاء .. وصنعت به شيء فريد ..

انا حاسس إنك عايز تعمل حاجة ديناميك .. بحيث تستقبل أرقام وعلي أساسها يتم جمع حقول معينة ..

يا ريت توضح أكثر علشان أنا فهمي تقيل قوي .. أعذرني ..

أو تضيفني علي الياهو nanosoftegypt [ at ] yahoo.com

#12

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

هذا مثال بسيط إن شاء الله يفيدك ولكن المثال بList box

getalife.gif
#13

طيب وايه الحل ؟؟؟؟؟؟؟؟؟

#14

أخي هل المثال افادك؟؟؟؟

getalife.gif
#15

تمت الإضافة وفي انتظارك

#16

بصراحة يا جماعه انا مكنتش عايز ارفعه

عشان هوا بتاع صاحبي مش اكتر

وهوا بعتهولى أصلحلة شوية أخطاء وده اللى وقف قدامى

فورم تلاته

Private Sub Command4_Click()

اتمنى تلاقو حل

LastProject.rar

#17

أخ mohamed abdulzi

فعلا المثال افادني

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

#18

المثال التالي اللي انت كنت طلبته ..

ازاي تعمل لوب في 8 أدوات كومبو وتعرف الأداة الحالية هي ايه وقيمتها ؟

Dim ctrl As Control
For Each ctrl In Me.Controls
	 If TypeOf ctrl Is ComboBox Then
		For i = 1 To 8
			If ctrl.Name = "Combo" & i Then
			   MsgBox "Current Control : " & ctrl.Name & vbCrLf & "Text Value : " & ctrl.Text
			End If
		Next
	 End If
Next

تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 10 يونيو 2007 في 04:23

#19

مشكوووور أخ pharaonic_guy

الحل ده فعلا انا كنت عايزه بس مكنتش عارف أطبقه ازاي

انا هبحث في الموقع على استخدام الكائنات لأن أول مرة أسمع عنها كان في الموضوع ده

#20

عزيزي محمد جمال:

إذا كانت مشكلتك لم تحل بعد فجرب الطريقة التالية :

ضع الكومبويات في مصفوفة مثلا اسمها Combo و عندما تريد الوصول إلى أحدها مثلا الثاني اكتب:

combo(1).text="test" '1 refers to second combo because we started from 0

في البداية يسخرون منك . . . ثم يهملونك . . . ثم يحاربونك . . . ثم تنتصر

#21

نعم حل المصفوفة أفضل ..

هذا الموضوع مغلق.

مواضيع مشابهة