انتخاب اعداد بزرگتر از 10 در لیست باکس
سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟
ممنون
نقل قول: انتخاب اعداد بزرگتر از 10 در لیست باکس
ابتدا با یه حلقه بیا مقادیر رو پیمایش بکن بعد با این دستور ازش استفاده بگن
If List1.List(List1.ListIndex) > 10 Then
List2.AddItem (List1.List(List1.ListIndex)) - 10
End If
نقل قول: انتخاب اعداد بزرگتر از 10 در لیست باکس
پیمایش مقادیر چطور باید انجام بشه
run time error 13 میده
type mismatch
نقل قول: انتخاب اعداد بزرگتر از 10 در لیست باکس
نقل قول:
نوشته شده توسط
farshidshd
سلام
من در 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