掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスの保存のコードの一部分の意味がわからない所があるのですが教えてくれませんか？ (ID:138991)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今書いてるコードが Private Sub Save() Dim itemindex As Long Dim strData() As String * 30 ReDim strData(List1.ListCount - 1) Dim listall As Integer listall = List1.ListCount - 1 Open "sample1.dat" For Binary Access Write As #1 Put #1, , listall ←ここ For itemindex = 1 To listall strData(itemindex) = List1.List(itemindex) Put #1, , strData(itemindex) Next itemindex Put #1, , listall ←ここ Close #1 矢印で示したところの意味がわかりません。わかる方がいらっしゃれば教えてくれませんか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.