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

名前

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

本文 単にコーディングミスかなあという気がしたのですが、、 まずセーブで、 listall = List1.ListCount - 1 Open "sample1.dat" For Binary Access Write As #1 Put #1, , listall ’この１行がいりますよね？？ For itemindex = 0 To listall （以下省略） ロードでは一度ファイルを閉じて、再度オープンしているので また、１行目（つまりlistallの値）から読み直しているのが原因だと思います。 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 ’↑すでにオープンしているのでこのオープンは不要！！ （以下省略）