جمع کردن در کمبو باس

[www.pc3enter.tk]

سلام دوستان
من یک سوال داشتم

می خواستم بدانم چگونه می شود اعدادی مثلا در کمبو باکس هستند را با هم جمع زد
مثل
200
400
501
240
و بعد از جمع کردن آنها ان را نمایش داد باتشکر

[Ali_Prodes]

با سلام

یک ComboBox و یک CommandButton به فرم خودتون اضافه کرده و از کدهای زیر استفاده کنید:



Private Sub Command1_Click()
Dim i As Integer
Dim int_Sum As Integer

For i = 0 To Combo1.ListCount - 1
If Val(Combo1.List(i)) > 0 Then
int_Sum = int_Sum + Val(Combo1.List(i))
End If
Next i
MsgBox int_Sum
End Sub

[www.pc3enter.tk]

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

If Val(Combo1.List(i)) > 0 Then

می توانی کمکم کنی

[Ali_Prodes]

با سلام

دستورات رو به شکل زیر تغییر بده:



Private Sub Command1_Click()
Dim i As Integer
Dim int_Sum As Integer
For i = 0 To Combo1.ListCount - 1
Combo1.ListIndex = i
If Val(Combo1.Text) > 0 Then
int_Sum = int_Sum + Val(Combo1.Text)
End If
Next i
MsgBox int_Sum
End Sub

[www.pc3enter.tk]

ببین من روی دکمه کلیک می کنم فقط گزینه ی آخر را نشان می دهد
من در (تصویر ) از xp combo1 استفاده می کنم که جواب نمی گیرم ولی از combo1 جواب می گیرم
می توانی یک کاریش بکنی

[Ali_Prodes]

با سلام

دوست من نتیجه جمع در متغییر int_Sum ریخته شده کل کد پست قبلی را از بالا تا پایین به

صورت کامل کپی کنید