tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル VB2005 リスとボックスの保存
投稿日: 2010/02/05(Fri) 20:58
投稿者sb
こんばんわ
vbは授業で得た知識程度しかないのですが詰まっているので質問です
現在詰まっているのですが、リストボックスの項目をテキストファイルに保存しようと思っているのですがうまくいきません。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        With SaveFileDialog1
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim txt_date As New System.IO.StreamWriter(.FileName, False, System.Text.Encoding.Default)
                txt_date.Write(ListBox1.Items)
                txt_date.Close()
            End If

        End With

    End Sub

これで保存すると
System.Windows.Forms.ListBox+ObjectCollection
と出て中身が保存できていません
一応中身は
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kari As String

        If ComboBox1.Text = Nothing Then
            MsgBox("キャラクターを選択してください")
            Return
        End If

        If ListBox2.SelectedItem = Nothing Then
            MsgBox("カードを選択してください")
            Return
        End If

        goukei = NumericUpDown1.Value

        henkan = NumericUpDown1.Value * 1

        kari = ListBox2.SelectedItem & "×" & henkan


        If Label1.Text = Nothing Then

            Label1.Text = henkan
            ListBox1.Items.Add(kari)

        Else
            If Label1.Text >= 20 Then
                MsgBox("多すぎます")
                Return
            End If
            Label1.Text = keisan()


            ListBox1.Items.Add(kari)

        End If



    End Sub

    Private Function keisan() As Double
        keisan = CInt(Label1.Text) + goukei

    End Function

こうなってます

原因がわかる方 ご教授ください。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。