リストボックスの内容をセーブ、ロードするには？ (ID:109166)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 リストボックスの内容をセーブし、ロード出来るようにしたいのですが、 過去ログなどを拝見させて頂いたりしながら、 以下のプログラムを書いてみたところ、 ロードしたときにリストボックスの一番上のアイテムが、 「・」という文字に変わってしまいました。例えば、 「りんご、みかん、オレンジ」という３項目がリストボックスにあるばあい、 それをセーブして、ロードすると、 「・、みかん、オレンジ」という具合になってしまいます。 これはどのようにすれば解決できるでしょうか？ どなたかご教示ください。 ’セーブ Dim itemindex As Long Dim strData() As String * 20 ReDim strData(List1.ListCount - 1) Dim listall As Integer listall = List1.ListCount - 1 Open "sample1.dat" For Binary Access Write As #1 For itemindex = 0 To listall strData(itemindex) = List1.List(itemindex) Put #1, , strData(itemindex) Next itemindex Put #1, , listall Close #1 ’ロード Dim listall As Integer Open "sample1.dat" For Binary Access Read As #1 Get #1, , listall Close #1 Dim itemindex As Long Dim strData() As String * 20 ReDim strData(listall) Open "sample1.dat" For Binary Access Read As #1 For itemindex = 0 To listall Get #1, , strData(itemindex) List1.AddItem strData(itemindex) Next itemindex Close #1