جمع کردن list

[saeedzx]

ُمن می خوام اعداد موجود روی list رو با هم جمع کنم و حاضل رو روی text ببینم ؟

[butterfly8528]

سلام دوست عزیز .

اگه منظورتون از list Box ، List که با یه حلقه میتونی به راحتی این کارو انجام بدی .

[relax_cp]

سلام دوست عزیز .

اگه منظورتون از list Box ، List که با یه حلقه میتونی به راحتی این کارو انجام بدی .

اينم يك نمونه:

تشكر يادت نره:چشمک:

[M_P_1374]

Private Sub Command1_Click()
Dim A(10000000) As Long, Sum As Long, LstIndex As Variant

LstIndex = List1.ListIndex
Sum = 0
List1.ListIndex = 0

For i = 0 To List1.ListCount - 1
List1.ListIndex = i
A(i) = List1.Text
Sum = Sum + A(i)
Text1.Text = Sum
DoEvents
Next

List1.ListIndex = LstIndex
End Sub

این حلقه رو اجرا کنید