[wolf1120]

السلام عليكم ورحمه الله وبركته 
عندي  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

[wolf1120]

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


لم تضهر لي 20 و 30

[sendbad100]

السلام عليكم 

ما الرابط بين  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

[wolf1120]

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

المشكله اني اريد القيام بعمليه الفترة بين ليست 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

[Ahmed_Mansoor]

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