リストボックスの選択された項目の合計

リストボックス１の選択された値の合計をテキストボックス１に表示したいのですが
やり方が良く分かりません。もう一つの条件として何も選択されていなければ、リストのすべての和を表示するあります。
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim Total As Double = 0
if Listbox1.selecteditems.Count > 0 then

何回か試行錯誤しましたがこの後がどうも分かりません・・お返事よろしくお願いします

このサイトの
VB.NETサンプル
の
３．すべての選択されている項目を取得する例
は役に立ちませんか？

後、データ型変換関数、又はCtype、を調べると文字列型から数値型に変換できる方法が判ります。
これで和も計算できますね。

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim total As Integer = 0

        Dim x As Boolean = CType(selecteditems, Boolean)
        If ListBox1.SelectedItems.Count > 0 Then
            For Each total In ListBox1.SelectedItems

                TextBox3.Text &= total & vbNewLine
            Next
        End If
    End Sub
End Class
例ではCType(sender, button)でsenderをbutton型にするとあったのでSelectedItemsを
Booleanにするつもりでしたのですがエラーがでちゃいました。どこを直せばいいでしょうか？

こんにちは。

>例ではCType(sender, button)でsenderをbutton型にするとあったのでSelectedItemsを
>Booleanにするつもりでしたのですがエラーがでちゃいました。どこを直せばいいでしょうか？

何がしたいのか判りませんが、

CType(sender, button)

これはobject型で渡されたsenderがbutton型なので成立するキャストです。

Dim x As Boolean = CType(selecteditems, Boolean)

selecteditemsはSelectedObjectCollectionなのでどうやってもBooleanにキャストは無理です。

なんか、学校の課題のような気が・・・

問題点だけ挙げときます。
１）ヴァンさんのご指摘の点
２）変数ｘを宣言しているが未使用
３）ListBox1が未選択のときの処理がない
４）TextBox3.Text &= total & vbNewLineは選択されているものの合計を取ろうとしているのだと思うのですが、これだと文字列の連結になってしまう

基礎が出来ていないので、ここの最初から読んで基礎をつけたほうがいいと思います。

もうちょっと書きます。

選択された値の合計とありますが、全ての値の合計なら出来るのでしょうか？

また、Itemsには何型が入っていますか？

> SelectedItemsをBooleanにするつもりでしたのですが
SelectedItems は複数形の s が最後に付いている様に
選択されているアイテムを複数まとめて(コレクションの
形で)取得します。
# つまり取得されたアイテムは既に選択状態のものが
# リストアップされています。

ところが全く調べてないので、選択されてるかどうかの
判定の Boolean に変換したいのかもｗｗ

学校の課題として出された一番単純なプログラムの
理解なら、Item を総なめして Selected プロパティで
選択されているかどうか判断してって課題だろうから、
自分で十分勉強しないで掲示板で答えをもらっても
0点になると思います。

オンラインヘルプもあるんだし、無料版を手に入れてる
ならローカルのヘルプもあるだろうし、多少で良いから
自分がどんな命令を書いて実行しているのか調べたら？
[ListBox.SelectedItem プロパティ]
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.listbox.selecteditem(VS.80).aspx

Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

  Dim sel As IList = ListBox1.SelectedItems

  TextBox1.Text = CStr(Aggregate p In If(sel.Count = 0, ListBox1.Items, sel) Into Sum(CDbl(p)))

End Sub

皆さんこんにちは

アドバイスは出揃っているみたいなのでパスするとして、

魔界の仮面弁士さん>
これが新兵器LINQの威力ですか。ものすごく便利そうですね。
この中学校の講座も読んでないんで、今度読んでみよう。

課題だとしても、・・・・コピペじゃいくらなんでも怪しまれますね。^ ^;;
さすが。