0
好吧,所以我幾個月前在這裏發佈了一個問題,所有的幫助除了從一個功能得到它的所有工作。我需要它,這樣當按鈕被按下時,它會粘貼名字和姓氏,如果再次按下按鈕,它會再次執行。但是在一分鐘內,它只能工作一次。這裏是我的代碼:按鈕輸出無限次
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
謝謝你!而已! –