View Full Version : جمع کردن list
saeedzx
سه شنبه 16 تیر 1388, 17:29 عصر
ُمن می خوام اعداد موجود روی list رو با هم جمع کنم و حاضل رو روی text ببینم ؟
butterfly8528
سه شنبه 16 تیر 1388, 20:09 عصر
سلام دوست عزیز .
اگه منظورتون از list Box ، List که با یه حلقه میتونی به راحتی این کارو انجام بدی .
relax_cp
سه شنبه 16 تیر 1388, 21:15 عصر
سلام دوست عزیز .
اگه منظورتون از list Box ، List که با یه حلقه میتونی به راحتی این کارو انجام بدی .
اينم يك نمونه:
تشكر يادت نره:چشمک:
M_P_1374
سه شنبه 16 تیر 1388, 21:32 عصر
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
این حلقه رو اجرا کنید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.