小编use*_*316的帖子

好的，这里是新手问题。我正在创建一个随机密钥生成器，它将从字符串生成密钥，并将每个组合键添加到列表框。我的问题是如何防止重复项出现/添加到列表框中，从而防止重复项。目前，密钥被生成为 5 个单独的部分，然后（粗略地）在将其添加到列表框之前将其组合到一个不可见的文本框中以进行临时存储。

  generatetextonlycode = strName

    TextBox1.Text = Key1.Text & "-" & Key2.Text & "-" & Key3.Text & "-" & Key4.Text & "-" & Key5.Text`

我知道这是一个非常糟糕的方法，但它很容易并且有效——只是它容易重复；（这段代码显然一旦起作用就会进入循环语句。这是完整的：

Private Sub Generatebtn_Click(sender As Object, e As EventArgs) Handles Generatebtn.Click
    Key2.Text = generatetextonlycode()
    Key3.Text = generatetextonlycode()
    Key4.Text = generatetextonlycode()
    Key5.Text = generatetextonlycode()
End Sub


Public Function generatetextonlycode() As Object
    Dim intRnd As Object
    Dim strName As Object
    Dim intNameLength As Object
    Dim intLenght As Object
    Dim strInputString As Object
    Dim inStep As Object

    strInputString …