保存my.settings文本多次保存vb.net

Question

我已经开始一个新的应用程序来加密字符串，并将它们保存在我的设置代码其工作正常，但它保存它保存多次相同。 我该如何将所有内容从列表框中保存到我的设置中，然后重复。 这是我的代码

Imports System.Text 
Imports System.Security.Cryptography 
Imports System 
Imports System.Collections 
Imports System.Collections.Specialized 

Public Class Form1 


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    'My.Settings.md5_hashes.Clear() 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim md5 As MD5 = System.Security.Cryptography.MD5.Create() 
    Dim inputBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text) 
    Dim hash As Byte() = md5.ComputeHash(inputBytes) 
    Dim sb As New StringBuilder() 
    For i As Integer = 0 To hash.Length - 1 
     sb.Append(hash(i).ToString("x2")) 
    Next 
    TextBox2.Text = sb.ToString 
    ListBox1.Items.Add(TextBox1.Text + "<--->" + TextBox2.Text) 

    My.Settings.md5_hashes.Add(TextBox1.Text + "<--->" + TextBox2.Text) 

    My.Settings.Save() 





End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 

    For Each item In My.Settings.md5_hashes 
     ListBox1.Items.Add(item) 
    Next 
    Timer1.Start() 
End Sub 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    For Each item In My.Settings.md5_hashes 
     ListBox1.Items.Add(item) 
    Next 
End Sub 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    TextBox1.Text = "" 
    TextBox2.Text = "" 
End Sub 
End Class 

Answer 1

好吧，我只是解决了我自己的，因为闻一开始计时了那里的代码来获取所有的从我的设置列表框中的内容的问题。 我刚刚删除并解决。