sorry, the comment could not show the entire code.
Maybe this helps.
Imports Microsoft.Office.Interop
Imports System.IO
Public Class appointmentcreator_form
Dim myReader As StreamReader
Dim myWriter As StreamWriter
Dim listPreset As New List(Of String)
Dim PresetName As String
Private Sub appointmentcreator_form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
My.Settings.Reload()
Preset_naamComboBox.Items.Add("<save as="" preset="">")
Call ReadData()
SaveFileDialog1.DefaultExt = "txt"
cbxPeriodDays.SelectedIndex() = 0
cbxPeriodHr.SelectedIndex() = 0
cbxPeriodMin.SelectedIndex() = 0
CbxdaysAfterFirst.SelectedIndex() = 0
cbxHrAfterFirst.SelectedIndex() = 0
cbxMinAfterFirst.SelectedIndex() = 0
cbxStartMin.SelectedIndex() = 0
cbxStartHr.SelectedIndex() = 0
tbxSubject.Focus()
End Sub
Private Sub Preset_naamComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Preset_naamComboBox.SelectedIndexChanged
If Preset_naamComboBox.SelectedIndex = 0 Then
Again: PresetName = InputBox("Name Your PreSet then click OK", "Preset", "Preset#1", 300, 200)
If PresetName = "" Or PresetName.Contains(",") Then
MsgBox("Invalid Preset Name!" & vbCrLf & "Re-Enter Name!")
GoTo Again
Else
Preset_naamComboBox.Items.Add(PresetName)
Call SaveData(PresetName)
End If
Else
PresetName = CStr(Preset_naamComboBox.Items.Item(Preset_naamComboBox.SelectedIndex))
Dim txtLine() As String = Split(listPreset.Item(Preset_naamComboBox.SelectedIndex - 1), ",")
Dim index As Integer = 1
For Each cntrl In Me.Controls
If TypeOf cntrl Is TextBox Or TypeOf cntrl Is ComboBox Then
cntrl.text = txtLine(index)
index += 1
End If
Next
End If
End Sub
Sub ReadData()
If My.Settings.Filepath <> "" Then
If My.Computer.FileSystem.FileExists(My.Settings.Filepath) = True Then
myReader = New StreamReader(My.Settings.Filepath)
Dim myText = myReader.ReadLine
While myText IsNot Nothing
listPreset.Add(myText)
myText = myReader.ReadLine
End While
myReader.Close()
If listPreset.Count > 0 Then
Dim PresetName As String
Dim index As Integer
For i = 0 To listPreset.Count - 1
index = listPreset.Item(i).IndexOf(",")
PresetName = LSet(listPreset.Item(i), index)
Preset_naamComboBox.Items.Add(PresetName)
Next
End If
Else
My.Settings.Filepath = ""
End If
End If
End Sub
Sub SaveData(ByVal PresetName As String)
Dim FileString As String = PresetName & ","
For Each cntrl In Me.Controls
If TypeOf cntrl Is TextBox Or TypeOf cntrl Is ComboBox Then
FileString &= cntrl.selectedvalue.ToString & ","
End If
Next
If My.Settings.Filepath = "" Then
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
My.Settings.Filepath = SaveFileDialog1.FileName
My.Settings.Save()
Call SaveFile()
Else
MsgBox("Save File Aborted" & vbCrLf & "Preset " & PresetName & " NOT saved")
Preset_naamComboBox.Items.RemoveAt(Preset_naamComboBox.Items.Count - 1)
listPreset.RemoveAt(listPreset.Count - 1)
End If
Else
Call SaveFile()
End If
End Sub
Sub SaveFile()
myWriter = New StreamWriter(My.Settings.Filepath)
For i = 0 To listPreset.Count - 1
myWriter.WriteLine(listPreset.Item(i))
Next
myWriter.Close()
MsgBox("Preset: " & PresetName & " saved" & vbCrLf & "To File: " & My.Settings.Filepath)
End Sub</save>