タイトル : 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 こうなってます 原因がわかる方 ご教授ください。 |