[professional sniper]

السلام عليكم
ممكن كود عند تحديد خانة معينة في LIST1 يتم تعديل البيانات الخاصة بالخانة بكتابة البيانات الجديدة في TEXT1 ويتم ادراج البيانات في الخانة المحددة

وسلام ختام

[ناجي إبراهيم]

السلام عليكم...

كود :

If List1.ListIndex = -1 Then
    MsgBox "الرجاء تحديد بند من اللائحة"
    List1.SetFocus
Else
    List1.List(List1.ListIndex) = Text1.Text
End if

نرجو الاستفادة و السلام.

[asto]

اعطيك مثال عن ليست بوكس بثلاثة عناصر

كود :

Private Sub Command1_Click()
List1.List(i) = text1.text
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
i = 0
text1.text=""
text1.Visible = True
Command1.Visible = True
Case 1
i = 1
text1.text=""
text1.Visible = True
Command1.Visible = True
Case 2
i = 2
text1.Visible = True
text1.text=""
Command1.Visible = True
End Select
End Sub

للايضاح نضيف واحد تكست و واحد كوماند و ننسخ الكود كما هو و السلام