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

[www.pc3enter.tk]

سلام دوستان
می خواستم بدانم چگونه می شود که اعدادی که داخل کمبو هستند را (مثلا(200 400 210 150))
را با هم جمع کردن و آن را داخل تکس باکس نمایش داد

[butterfly8528]

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

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


Option Explicit


Private Sub Form_Load()

Combo1.AddItem 10
Combo1.AddItem 100
Combo1.AddItem 150
Combo1.AddItem 101
Combo1.AddItem 52

Combo1.ListIndex = 0
Text1.Text = vbNullString

End Sub

Private Sub Command1_Click()

Dim i As Integer, lngTotal As Integer

For i = 0 To Combo1.ListCount - 1
lngTotal = lngTotal + Combo1.List(i)
Next i

Text1.Text = lngTotal

End Sub




موفق و پیروز باشید .