السلام عليكم ورحمه الله وبركته
عندي 2 ليست بوكس
list1 = a
b
c
d
e
f
وليست 2
مثلا اذ اخترنا c
فان ليست 2 = يضهر لنا رقم 30
و
مثلا اذ اخترنا b
فان ليست 2 = يضهر لنا رقم 20
اريد كود جاهز
وشكرا
وعليكم السلام ،،
كود :
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
شكر لك اخي الكريم لكن عندى سوال
لم تضهر لي 20 و 30
السلام عليكم
ما الرابط بين c والثلاثين مهم
او هي في نفس رقم السطر يعني C الاولى في اليست1 يجب ان تكون 30 الاولى في ليست2 وهذه الحالة توجب تساوي اليست1 والليست 2 في عدد الصفوف وتلزم تساوي الترتيب بين الليستسن
والافضل و مثال جاهز كي يتم التعديل عليه
كي تسهل عليك وعلى الاخوة مساعدتك
(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
شكر لك اخي الكريم علا التوصل لكن الفكرة لم اجد لها حل لحد الان
المشكله اني اريد القيام بعمليه الفترة بين ليست 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
أهلا بك أخي الكريم , طيب وإذا ضغطنا على no أو next مالذي تريد أن يتم عمله وأيضا عند الضغط على yes هل فقط يظهر مسج بوكس فقط أو يتم مسح محتويات اللست2 بعدها , كلما وضحت بالتفصيل ما تريده تسهل عملية المساعده .