指定ファイルへ新たなコンボボックス項目を登録
コンボボックスの項目をテキストファイルに保存しているのだが、
新たにコンボボックス項目を追加するとき、既存の項目と
突き合わせて、一致しないときだけ、ファイルに書き込む処理が欲しい。
コンボボックスは複数あるので、一律に使えるように
作ってみたのが以下のソース。
Private sw As System.IO.StreamWriter
Private Sub CmbRegist(ByVal ctrl As System.Windows.Forms.ComboBox,_
ByVal Path As String)
Dim count As Integer
For count = 0 To ctrl.Items.Count - 1
If ctrl.Text = ctrl.Items.Item(count).ToString() Then
Exit Try
End If
Next
sw = New System.IO.StreamWriter(Path, True, enc) '開く
sw.Write(vbCrLf) '改行
sw.Write(ctrl.Text)
'閉じる
sw.Close()
End Sub