منتديات المشاغب

منتديات المشاغب (http://www.absba.org/index.php)
-   منتدى لغات البرمجة (http://www.absba.org/forumdisplay.php?f=40)
-   -   هل يمكن أضع هذين الكودين بنفس المكان وكل كود يؤدي وظيفته (http://www.absba.org/showthread.php?t=1429676)

سمد الشأن 19-01-2020 01:31 PM

هل يمكن أضع هذين الكودين بنفس المكان وكل كود يؤدي وظيفته
 


إذا كان هيئة الفورم بهذا الشكل ،

https://ibb.co/PNcZsv0

فهل يمكن أضع هذين الكودين بنفس المكان وكل كود يؤدي وظيفته

https://ibb.co/Y0MrnRw

حيث وظيفة الكود الأول عرض رقم العنصر
https://ibb.co/n6J225K

ووظيفة الكود الثاني هو عرض عدد العناصر الموجودين في القائمة
https://ibb.co/YWVW34f




ahmedqatar 19-01-2020 11:48 PM

هل قمت بتجربة الكود؟؟؟

سمد الشأن 23-01-2020 06:48 AM



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





سمد الشأن 23-01-2020 04:21 PM



بدات أول حاجة برسم الفورم على هذا الشكل

https://ibb.co/wcLC4W6

ثم وضعت كود إضافة (ِAdd) في خصوص Text
على الفورم
Private Sub Form Load
" "=Text1.text

ثم على زر الإضافة Add Button
Sub Command1_Click

List1.AddItem Text1.Text

" "=Text1.text

Text1.Setfocus

وعملت كود زر Remove

Sub Command1_Click

List1.RemoveItem List1.listIndex

End sub

وبعد وضعت كود Label على List وبالتالي يظهر رفم العنصر المشار اليه

()List1_Click

Label1.Caption =List1.ListIndex

End Sub

وحتى يظهر عدد العناصر على القائمة فهو

()Sub List_Click

Label1.Caption =List1.ListCount

فهل يمكن جمع هذين الكودين في نفس المكان والوقت


الساعة الآن 09:32 PM