結果をラベルで表示し、一度終了してもう一度起動しても表示されるやりかた

質問

現在ＶＢであるミニゲームを作り、そのランキングを表示するプログラムを作っています。
ランキングを表示するプログラムまではできたのですが。。。

ランキング
１位～５位まで
すべてラベルで表示

表示はされますが、一度終了して、もう一度起動すると初期化されているのです。
どうしたらそのまま残りますか？
みなさんのアイディアをお願いいたします。

回答No.4

keniti_246

プロジェクト→プロパティ→設定
で数値を保存すればどうでしょうか？

My.Settings
で検索してみてください。

参考URL：

http://msdn.microsoft.com/ja-jp/library/saa62613(VS.80).aspx

回答No.3

redfox63

VB2008ならば StreamReader/StreamwriterやTextReader/TextWriterなどを使う方向でしょう

--- 書き込み
dim tw as TextWriter = new StreamWriter( "rankinkg.txt" )
for n as integer = 0 to 4
　　tw.WriteLine( arRank(n).ToString() )
next
tw.Close

-- 読み込み
dim tr as TextReader = new StreamReader( "rankinkg.txt" )
dim ss as String
for n as integer = 0 to 4
　　ss = tr.ReadLine()
　　arrank(n) = Integer.Parse( ss )
next
tr.Close
といった具合でしょう

回答No.2

redfox63

変数 arRank(4) にランキングあり
ファイル Ranking.txtに出力するなら

--- 出力
dim ff as Integer, n as integer
ff = FreeFile
Open "Ranking.txt" for output as ff
for n = 0 to 4
　　print #ff, arRank(n)
next
Close ff

---入力
dim ff as Integer, n as integer
ff = FreeFile
Open "Ranking.txt" for output as ff
for n = 0 to 4
　　input ff, arRank(n)
next
Close ff

といった具合でしょう
# 開発環境のバージョンやエディションなどを明記しましょう
# VB6.0 Pro や VB2005 EEなど

補足

申し訳ありません！
書き忘れていました。。。
開発環境 visualstudio2008

やっぱり環境の違いのせいか、オープンクローズがうまくいっていないのか正常に機能しません。。。

回答No.1

myRange

簡単な方法としては、
ランキングを別ファイルにして、
終了時に、保存
立上げ時に、それを読み込む

補足

それも考えたのですが、どういう感じでやればいいでしょうか？
配列をテキスト出力という感じでも考えたのですが、やり方がわからなくって。。。