タイトル : Re^6: リストボックスの中身を次回起動時に受け継ぐ方法を教えて下さい 投稿日 : 2009/01/19(Mon) 14:15 投稿者 : 大樹
るしぇさん 回答ありがとうござます。 並びに返信が遅れてしまいましてすいません。 > 色々と追記して申し訳ない^^;思いつきで書き込みしてるから。。。 いえいえ、沢山の意見が頂けて光栄です^^ > 提示されたコードに、一部削除のコードなど書かれていないと思いますが? すいません削除のプログラムは載せてませんでしたね^^; Private Sub _削除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _削除.Click If ListBox1.Items.Count = 0 Then MessageBox.Show("定型文が登録されていません", "通知") ElseIf ListBox1.SelectedItem = Nothing Then MessageBox.Show("定型文が選択されていません", "通知") Else ListBox1.Items.Remove(ListBox1.SelectedItem) Dim k As Integer = ListBox1.Items.Count Dim sw As New System.IO.StreamWriter("templatecount.txt", False, System.Text.Encoding.GetEncoding(932)) sw.WriteLine(k) sw.Close() Dim sw2 As New System.IO.StreamWriter("template.txt", False, System.Text.Encoding.GetEncoding(932)) Dim i As Integer For i = 0 To k - 1 sw2.WriteLine(ListBox1.Items(i).ToString) Next i sw2.Close() End If _出力box.Text = "" End Sub > これって結局、追加後の > For k = 0 To ListBox1.Items.Count - 1 > でしょ?(変数 i も必要ありません。) そうだったんですか>< でゎその部分はiを削除してListbox1.Items.Countでやってみようと思います。 > もともと、テキストファイルは全部消去・全部書き込みか、追記が基本です。 > このままでいいと思います。ListBox1.Items を全部書き込むだけで、途中経過 > (削除されたかどうか)を気にする必要はありません。 すいません語弊があったようです>< 削除されたかどうかの途中経過を求めていたのではないです^^; templatecountの数字でfor文を回していたので templatecountがなくなった場合にどのように 終わりを決めたらいいのかってことを伝えたかった訳です^^; > 読み込み時もデータがあるだけ読み込めばいいのでしょう? > ヘルプ(MSDN)を確認してください。 ありがとうございます。 ヘルプを参照させてもらいます^^ |