設定/オプションはどのように自己を保存しますか？

Question

私のタイトルが理にかなっているかどうかわからないので、ここで私の質問を説明しようとします。だから、基本的に私はプログラムをカスタマイズしてプログラムを拡張しています。

私はこれを行います：「ファイル」 - >「オプション」をクリックすると、新しいフォームがタブで開きます。私はあなたがドロップダウンボックスとチェックボックスで切り替えることができる別の設定があります。ユーザーが設定したい設定をしたら、「OK」または「Cancel」のボタンをクリックします。

これらの設定を保存する方法、または元の設定に戻す方法は何ですか。あなたはtxtファイルで保存しますか？これは特定のコード行の中のデフォルトの機能ですか？

更新日：

私は以前の問題を修正しました。今私はセーブを持っています。保存は正常に機能していますが、私はCheckListBox Collectionの範囲を選択する際にそれらを使用したいだけでなく、開始時にもその範囲の負荷を持っています。これらは私がこれまで使ってきた2つのものです。その結果、以前のセットのコレクションに追加されます。

Dim rand As New Random() 
    Dim winners = Enumerable.Range(1, My.Settings.numberSetting).OrderBy(Function(r) rand.Next()).Take(5).ToArray() 

はロード時CheckListBoxのために働いていない：

Me.LotteryNumbers.Items.Add(1, My.Settings.numberSetting) 

私はMe.LotteryNumbers.Items.Addから1を削除した場合、結果はこれです：

RNGのために働く

Answer 1

これはコンパイルしないでください。

LotteryNumbers.Items.Add(1, My.Settings.numberSetting) 

2番目の引数をとるoverloadは、Booleanにチェックされた項目を設定することを期待しています。一つの方法は、ループ内で項目を追加することです：

Dim maxNums = My.Settings.numberSetting 

' make sure it is empty 
clb.Items.Clear() 

For n As Int32 = 1 To maxNums 
    clb.Items.Add(n.ToString) 
Next 

私は変数としてSettings内のアイテムを使って好きではないので、それが使用する現在の値をつかみます。もう一つの方法は、AddRangeを使用しています。

clb.Items.AddRange(Enumerable.Range(1, maxNums).Select(Function(s) s.ToString()).ToArray()) 

Itemsは、オブジェクトのコレクションですので、Selectは、それらを追加する文字列に変換します。

Answer 2

NEVER ORDER BY RANDOM.NEXT()

ほとんどあなたは幸運、を得るが、それは保証されませんです。実行時にコードが爆発するのは時間の問題です。並べ替える順序が長くなればなるほど、例外が発生する可能性が高くなります。 checklistboxボックス数を更新し、保存するための作業コードのための

Private rand As New Random() 
Public Function Shuffle(Of T)(ByVal items As IList(Of T)) As IList(Of T) 
    For i As Integer = items.Count - 1 To 1 Step -1 
     Dim j As Integer = rand.Next(i + 1) 
     Dim temp As T= items(i) 
     items(i) = items(j) 
     items(j) = temp 
    Next 
    Return items 
End Function 

Answer 3

ソリューション：あなたの代わりに何をすべき

はフィッシャーイエーツのsortメソッドを実装しています。