منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تعديل بيانات خانة معينة في LIST BOX - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [سؤال] تعديل بيانات خانة معينة في LIST BOX (/showthread.php?tid=666)

تعديل بيانات خانة معينة في LIST BOX - professional sniper - 24-10-13

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

وسلام ختام Heart

RE: تعديل بيانات خانة معينة في LIST BOX - ناجي إبراهيم - 24-10-13

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

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

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

RE: تعديل بيانات خانة معينة في LIST BOX - asto - 24-10-13

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


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

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