按钮输出无限次

Question

好吧，所以我几个月前在这里发布了一个问题，所有的帮助除了从一个功能得到它的所有工作。我需要它，这样当按钮被按下时，它会粘贴名字和姓氏，如果再次按下按钮，它会再次执行。但是在一分钟内，它只能工作一次。这里是我的代码：

Public Class HorizonNameGenerator 

Dim UsableChars() As String 
Dim MyRandom As New Random 
Dim FirstNameList() As String = {"Noah", "Liam", "Mason", "Zack", "James", "Jack", "Derick", "Owen", "Blain", "Borris", "Johnny", "Joe", "Joseph", "Terry", "William", "Rory", "John", "Jason", "Daryl", "Alex", "Josh", "Wu", "Gareth", "Carl", "Martin", "Marty", "Vincent", "Vince", "Vinny", "Bobby", "Bob", "Paris", "Jake", "Gage", "Jacob", "Ethan", "Simon", "Elijah", "Michael", "Daniel", "Thomas", "Tom", "Matthew", "Declan", "Logan", "Lucas", "Benjamain", "Aiden", "David", "Andrew", "Andy", "Sam", "Samuel", "Carter", "Henry", "Nathan", "Ed", "Eddy"} 
Dim LastNameList() As String = {"Smith", "Johnson", "Williams", "Jones", "Brown", "Davis", "Miller", "Wilson", "Moore", "Taylor", "Anderson", "Thomas", "Jackson", "White", "Maris", "Martin", "Thompson", "Garcia", "Martinez", "Robinson", "Clark", "Rodriguez", "Lewis", "Lee", "Walker", "Hall", "Allen", "Young", "Hernandez", "King", "Wright", "Lopez", "Hill", "Scott", "Greens", "Adams", "Baker", "Gonzalez", "Nelson", "Carter", "Mitchell", "Perez", "Roberts", "Turner", "Phillips", "Campbell", "Parker", "Evans", "Edwards", "Collins", "Stewert"} 
Dim FinalName() As String = {""} 
Dim Number As Integer = 0 
Dim FirstNameIndex As Integer = MyRandom.Next(0, FirstNameList.Count) 
Dim LastNameIndex As Integer = MyRandom.Next(0, LastNameList.Count) 
Dim FullName As String = FirstNameList(FirstNameIndex) & " " & LastNameList(LastNameIndex) 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    TextBox1.Text = FullName 
End Sub 

End Class 

Answer 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim UsableChars() As String 
     Dim MyRandom As New Random 
     Dim FirstNameList() As String = {"Noah", "Liam", "Mason", "Zack", "James", "Jack", "Derick", "Owen", "Blain", "Borris", "Johnny", "Joe", "Joseph", "Terry", "William", "Rory", "John", "Jason", "Daryl", "Alex", "Josh", "Wu", "Gareth", "Carl", "Martin", "Marty", "Vincent", "Vince", "Vinny", "Bobby", "Bob", "Paris", "Jake", "Gage", "Jacob", "Ethan", "Simon", "Elijah", "Michael", "Daniel", "Thomas", "Tom", "Matthew", "Declan", "Logan", "Lucas", "Benjamain", "Aiden", "David", "Andrew", "Andy", "Sam", "Samuel", "Carter", "Henry", "Nathan", "Ed", "Eddy"} 
     Dim LastNameList() As String = {"Smith", "Johnson", "Williams", "Jones", "Brown", "Davis", "Miller", "Wilson", "Moore", "Taylor", "Anderson", "Thomas", "Jackson", "White", "Maris", "Martin", "Thompson", "Garcia", "Martinez", "Robinson", "Clark", "Rodriguez", "Lewis", "Lee", "Walker", "Hall", "Allen", "Young", "Hernandez", "King", "Wright", "Lopez", "Hill", "Scott", "Greens", "Adams", "Baker", "Gonzalez", "Nelson", "Carter", "Mitchell", "Perez", "Roberts", "Turner", "Phillips", "Campbell", "Parker", "Evans", "Edwards", "Collins", "Stewert"} 
     Dim FinalName() As String = {""} 
     Dim Number As Integer = 0 
     Dim FirstNameIndex As Integer = MyRandom.Next(0, FirstNameList.Count) 
     Dim LastNameIndex As Integer = MyRandom.Next(0, LastNameList.Count) 
     Dim FullName As String = FirstNameList(FirstNameIndex) & " " & LastNameList(LastNameIndex) 
    TextBox1.Text = FullName 
End Sub 

您需要将代码放在按钮的点击。您拥有它的方式只会显示脚本开头生成的名字，因为它不会使用新值重新填充。