منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تعديل بيانات خانة معينة في LIST BOX
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
ممكن كود عند تحديد خانة معينة في LIST1 يتم تعديل البيانات الخاصة بالخانة بكتابة البيانات الجديدة في TEXT1 ويتم ادراج البيانات في الخانة المحددة

وسلام ختام Heart
السلام عليكم...

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

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


كود :
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

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