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

解決


  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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加