سوال: انتخاب اعداد بزرگتر از 10 در لیست باکس [بایگانی]

farshidshd

پنج شنبه 16 خرداد 1398, 09:36 صبح

سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟

ممنون

isaac23

پنج شنبه 16 خرداد 1398, 11:02 صبح

ابتدا با یه حلقه بیا مقادیر رو پیمایش بکن بعد با این دستور ازش استفاده بگن

If List1.List(List1.ListIndex) > 10 Then

List2.AddItem (List1.List(List1.ListIndex)) - 10
End If

farshidshd

پنج شنبه 16 خرداد 1398, 12:18 عصر

پیمایش مقادیر چطور باید انجام بشه
run time error 13 میده
type mismatch

vbhamed

یک شنبه 26 خرداد 1398, 11:33 صبح

سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟

ممنون

Dim i&

With List1

For i = 0 To .ListCount - 1

If .List(i) > 10 Then List2.AddItem .List(i) - 10

Next

End With