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

タイトル 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)を確認してください。

ありがとうございます。
ヘルプを参照させてもらいます^^

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

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