07/06/05 09:38:09
リストの選択要素の合計を求めるのだったらこんな感じかな？
横槍だけど。
Private Sub Command2_Click()
Dim a As Integer
Dim b() As Integer '配列
Dim c As Integer '要素数
Dim sum As Integer
For a = 0 To List1.ListCount - 1
If List1.Selected(a) = True Then
ReDim Preserve b(c)
b(c) = List1.List(a)
c = c + 1
End If
Next
sum = SumCalc(b) ’配列を渡して要素数の合計を返す
End Sub
Private Function SumCalc(ByRef b() As Integer) As Integer
Dim f As Integer
Dim sum As Integer
For f = 0 To UBound(b)
sum = sum + b(f)
Next
SumCalc = sum
End Function