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

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 neptune  (社会人) 投稿日時 2009/5/21 01:47:19
皆さんこんにちは

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

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

課題だとしても、・・・・コピペじゃいくらなんでも怪しまれますね。^ ^;;
さすが。
0
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2009/5/20 22:50:17 
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
0
投稿者 るしぇ  (社会人) 投稿日時 2009/5/20 20:47:11
> 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
0
投稿者 ヴァン  (社会人) 投稿日時 2009/5/20 20:21:57
もうちょっと書きます。

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

また、Itemsには何型が入っていますか？
0
投稿者 刈谷勇  (社会人) 投稿日時 2009/5/20 18:50:14
なんか、学校の課題のような気が・・・

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

基礎が出来ていないので、ここの最初から読んで基礎をつけたほうがいいと思います。
0
投稿者 ヴァン  (社会人) 投稿日時 2009/5/20 18:13:25
こんにちは。

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

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

CType(sender, button)

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

Dim x As Boolean = CType(selecteditems, Boolean)

selecteditemsはSelectedObjectCollectionなのでどうやってもBooleanにキャストは無理です。
0
投稿者 ａｒｉｎ  (学生) 投稿日時 2009/5/20 10:16:27

    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にするつもりでしたのですがエラーがでちゃいました。どこを直せばいいでしょうか？
0
投稿者 neptune  (社会人) 投稿日時 2009/5/20 08:16:17
このサイトの
VB.NETサンプル
の
３．すべての選択されている項目を取得する例
は役に立ちませんか？

後、データ型変換関数、又はCtype、を調べると文字列型から数値型に変換できる方法が判ります。
これで和も計算できますね。
0
投稿者 arin  (学生) 投稿日時 2009/5/20 07:35:14
リストボックス１の選択された値の合計をテキストボックス１に表示したいのですが
やり方が良く分かりません。もう一つの条件として何も選択されていなければ、リストのすべての和を表示するあります。
 
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

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