منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب مساعدة بسيطة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] طلب مساعدة بسيطة (/showthread.php?tid=23553)

طلب مساعدة بسيطة - اي سفن - 27-01-18

السلام عليكم ورحمة الله وبركاته
أخواني بارك الله بكم
عندي سؤال :
عندي combobox تحتوي على قائمة من الخيارات
عند اختيار شيء من القائمة يظهر في textbox
مثال : لدي في قائمة combobox ( أحمد - خالد - جمعة - صالح )
اريد عند اختيار اي شخص يظهر كهذه ( أحمد,صالح,جمعة)

RE: طلب مساعدة بسيط - Amir_Alzubidy - 27-01-18

السلام عليكم و رحمة الله 
السؤال غير واضح

RE: طلب مساعدة بسيط - عبدالله الصافي - 28-01-18

هل هذا طلبك
كود :
Private Sub Combo1_Click()
Text1 = Combo1
End Sub

Private Sub Form_Load()
Dim xx(4) As String
xx(0) = "أحمد"
xx(1) = "خالد"
xx(2) = "جمعة"
xx(3) = "صالح"
For i = 0 To 3
Combo1.AddItem xx(i)
Next
End Sub


RE: طلب مساعدة بسيط - اي سفن - 28-01-18

(27-01-18, 09:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
السؤال غير واضح

جزاك الله خير سيتم ارفاق مثال
(28-01-18, 01:57 AM)عبدالله الصافي كتب : هل هذا طلبك
كود :
Private Sub Combo1_Click()
Text1 = Combo1
End Sub

Private Sub Form_Load()
Dim xx(4) As String
xx(0) = "أحمد"
xx(1) = "خالد"
xx(2) = "جمعة"
xx(3) = "صالح"
For i = 0 To 3
Combo1.AddItem xx(i)
Next
End Sub

بجرب الكود
المرفق تحت مع صورة توضيحية Heart

RE: طلب مساعدة بسيطة - Amir_Alzubidy - 28-01-18

السلام عليكم و رحمة الله و بركاته 
اتمنى ان يكون هذا هو المطلوب 
[attachment=16938]

RE: طلب مساعدة بسيطة - مصمم هاوي - 29-01-18

كم أنت رائع أستاذ أمير
بورك فيك وفي أعمالك الرائعة

RE: طلب مساعدة بسيطة - اي سفن - 29-01-18

(28-01-18, 09:35 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
اتمنى ان يكون هذا هو المطلوب 

استاذي الفاضل أشكرك من كل قلبي
وأسأل الله تعالى أن يوفقك
تم الحل