如何命名一個已經輸入數組的標籤

-1

我有兩個按鈕一個文本框和一個列表框。我將25個數字輸入到顯示在列表框中的文本框中。一些我如何從該列表框中創建一個數組名稱，並將其顯示在另一個列表框中，以確定訂單。這是我能弄清楚的最後一步。任何建議將是有益的如何命名一個已經輸入數組的標籤

代碼從評論

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    If ListBox5Box.Items.Count < 20 Then 'this works 
     MessageBox.Show("Exactly Twenty Numbers Must Be Entered") 
     ListBox6.Items.Add(GoLstBox5.Text)'this does not work nothing comes over to listbox6 
     Dim beerArray(19) As Integer beerArray(19) = GoLstBox.Text Array.Sort(beerArray)'this will work once the other works 
     For i = 0 To beerArray.GetUpperBound(0) 
      ListBox6.Items.Add(beerArray(i).ToString) 
     Next

我現在有這個，但沒有顯示到新的列表框

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 

    If ListBox1.Items.Count < 20 Then 
     MessageBox.Show("Exactly Twenty Numbers Must Be Entered") 

     ' ListBox6.Items.Add(GoLstBox.Text) 


     Dim beerArray(ListBox1.Items.Count - 1) As Object 
     Listbox1.Items.CopyTo(beerArray, 0) 

     Array.Sort(beerArray) 
     For i = 0 To beerArray.GetUpperBound(0) 
      ListBox6.Items.AddRange(beerArray) 
     Next    
    End If 
End Sub 
...

來源

2013-10-02 Jason Smith

你能澄清 - 所以你需要在另一個列表框中顯示相同的數字，但排序？你需要排列什麼？此外，這是ASP.NET或WinForm應用程序？ –

發佈您迄今爲止編寫的代碼。 –

如果我把它們放入一個數組並且有一個數組名稱，我可以用它做更多的事情。知道如何排序，如果它和數組。最終我想消除用戶可能輸入的重複內容。我只知道如何做到這一點，如果它已經是一個數組。現在我只想弄清楚如何讓整個列表顯示到下一個列表框（listBox）中作爲名爲beerArray的數組。 –

可以使用ListBox.ObjectCollection.CopyTo Method檢索您的列表框。項目到數組中。你會注意到我把你的beerArray從一個Integer數組改成了一個Object數組，這是因爲一旦這些items被存儲在ListBox中作爲Objects。所以除了創建一個Function來處理Items並返回它們之外，這將是一條路。由OP

你如果說法是錯誤的，你的第二個列表框不會，如果你的第一個列表框的項目數爲20或更高的填充上添加的代碼

Dim beerArray(ListBox1.Items.Count - 1) As Object 
ListBox1.Items.CopyTo(beerArray, 0) 

'Manipulate your array here 
'Then add it to your Second ListBox 
ListBox2.Items.AddRange(beerArray)

編輯基地。你需要做這樣的事情。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    If ListBox1.Items.Count <> 20 Then 
     MessageBox.Show("Exactly Twenty Numbers Must Be Entered") 

    Else 

     Dim beerArray(ListBox1.Items.Count - 1) As Object 
     ListBox1.Items.CopyTo(beerArray, 0) 

     Array.Sort(beerArray) 

     For i = 0 To beerArray.GetUpperBound(0) 
      ListBox6.Items.Add(beerArray(i)) 
     Next 

     'If you want to use the AddRange you do not need the above For Loop Just use this 
     'ListBox6.Items.AddRange(beerArray)   

    End If 


End Sub

來源

2013-10-02 03:08:22

如何命名一個已經輸入數組的標籤

回答

相關問題