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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : سوال بخصوص listbox (/showthread.php?tid=24546)

سوال بخصوص listbox - wolf1120 - 15-04-18

السلام عليكم ورحمه الله وبركته 
عندي  2 ليست بوكس 

list1 = a
b
c
d
e
f

وليست 2  

مثلا اذ اخترنا c 

فان ليست 2 = يضهر لنا رقم   30

و 
مثلا اذ اخترنا b 

فان ليست 2 = يضهر لنا رقم   20



اريد كود جاهز  


وشكرا

RE: سوال بخصول listbox - حريف برمجة - 15-04-18

وعليكم السلام ،،


كود :
Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
List1.AddItem "e"
List1.AddItem "f"
End Sub

Private Sub List1_Click()
List2.Clear
List2.AddItem "0" & List1.ListIndex + 1
End Sub


RE: سوال بخصول listbox - wolf1120 - 15-04-18

شكر لك اخي الكريم  لكن عندى  سوال 


لم تضهر لي 20 و 30

RE: سوال بخصول listbox - sendbad100 - 15-04-18

السلام عليكم 

ما الرابط بين  c   والثلاثين      مهم

او هي في نفس رقم السطر   يعني  C  الاولى في اليست1  يجب ان تكون  30  الاولى في ليست2 وهذه الحالة توجب تساوي اليست1 والليست 2   في عدد الصفوف   وتلزم  تساوي الترتيب بين الليستسن

والافضل و مثال  جاهز كي يتم التعديل عليه

كي تسهل عليك وعلى الاخوة مساعدتك

RE: سوال بخصول listbox - حريف برمجة - 15-04-18

(15-04-18, 02:44 PM)wolf1120 كتب : شكر لك اخي الكريم  لكن عندى  سوال 


لم تضهر لي 20 و 30

انته سألت سؤال واجبتك ثم قمت بتغيير وتعديل السؤال وهذه الإجابة علية :

كود :
Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
List1.AddItem "e"
List1.AddItem "f"
End Sub

Private Sub List1_Click()
List2.Clear
List2.AddItem List1.ListIndex + 1 & "0"
End Sub


RE: سوال بخصوص listbox - wolf1120 - 17-04-18

شكر لك اخي الكريم علا التوصل لكن الفكرة لم اجد لها حل لحد الان 

المشكله اني اريد القيام بعمليه الفترة بين ليست 1 ولسيت 2 

مثال للتوضيح 

مثلا ليست 1 عند 

ahmed 
farid
kamel 



اذ قمنا بالضغط علا 
ahmed

فان ليست 2 يضهر لنا 3 اخترت 

yes

no 

next

مثلا ضغطنا علا yes 

اريد كومند 

ميساج بوكس يخبرني  ok 

  اتمنا الفكرة واضحة 

من له فكرة يعدل لي المثال 


كود :
Private Sub Form_Load()
List1.AddItem "ahmed"
List1.AddItem "farid"
List1.AddItem "kamel "
End Sub
كود :
Private Sub List1_Click()
List2.Clear
List2.AddItem "yes"
List2.AddItem "no"
List2.AddItem "next"
End Sub
كود :
List2.Clear
If List2.Text = "ahmed" Then
List2.AddItem "yes"
List2.AddItem "no"
List2.AddItem "next"
End If


RE: سوال بخصوص listbox - Ahmed_Mansoor - 18-04-18

أهلا بك أخي الكريم , طيب وإذا ضغطنا على no أو next مالذي تريد أن يتم عمله وأيضا عند الضغط على yes هل فقط يظهر مسج بوكس فقط أو يتم مسح محتويات اللست2 بعدها , كلما وضحت بالتفصيل ما تريده تسهل عملية المساعده .