30-12-18, 11:44 PM
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
ComboBox1.Items.Add(TextBox8.Text)
My.Settings.test.Add(TextBox8.Text)
My.Settings.Save()
TextBox8.Clear()
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each arr As String In My.Settings.test
ComboBox1.Items.Add(arr)
Next
End Sub
ComboBox1.Items.Add(TextBox8.Text)
My.Settings.test.Add(TextBox8.Text)
My.Settings.Save()
TextBox8.Clear()
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each arr As String In My.Settings.test
ComboBox1.Items.Add(arr)
Next
End Sub
