リストボックスで複数の項目を選択し、和を求めるには？

解決

ｋ 2007-05-31 06:07:42 No: 136577

計算した答えをリストボックスに追加していき、その項目のうち、選択したものだけの和を求めるプログラムを作っているのですが、うまくいきません。
どのようにやればよいのでしょうか？

総入れ歯です 2007-05-31 08:12:17 No: 136578

> 計算した答えをリストボックスに追加していき、
List1.AddItem 計算した答え

> その項目のうち、選択したものだけの和を求める
Selectedプロパティーを使います。

下はサンプルです。

'フォームにリストボックス(List1)とテキストボックス(Text1)と
'コマンドボタン(Command1)を追加して、
'List1のMultiSelectプロパティを1にして、
'フォームモジュールに次のコードを貼り付けて実行ボタンを押して、
'リストボックスの項目を幾つか選択して、
'コマンドボタンを押してみてください。

Private Sub Form_Load()
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    List1.AddItem "5"
    List1.AddItem "6"
End Sub

Private Sub Command1_Click()

Text1.Text = リストボックスの選択されている項目の合計を求める(List1)

End Sub

Private Function リストボックスの選択されている項目の合計を求める(リストボックス As ListBox)

    For i = 0 To リストボックス.ListCount - 1
        If リストボックス.Selected(i) = True Then
            合計 = 合計 + Val(リストボックス.List(i))
        End If
    Next i

    リストボックスの選択されている項目の合計を求める = 合計

End Function

ｋ 2007-05-31 18:07:39 No: 136579

どうもありがとうございます