我怎樣才能從列表框中選擇一些東西

Question

有沒有辦法讀取列表框項目中的字符串，提示用戶輸入字符串，如果用戶正確輸入它，選擇下一個項目，直到沒有剩下要選擇的項目？我在VB.NET中做這個。幫助將不勝感激。

Answer 1

你可以做這樣的事情：

Dim items = ListBox1.Items.Cast(Of Object)().Select(Function(x) x >= x.ToString).ToList() 
If items.Contains(TextBox1.Text) Then 
    Dim nextIndex = items.IndexOf(TextBox1.Text) + 1 
    If nextIndex < items.Count Then 'There is next item 
     Dim nextItem = items(nextIndex).ToString() 
     'Do something with your nextItem 
    End If 
End If 

基本上，你嘗試這樣做是爲了讓所有的文本在您的ListBox：

Dim items = ListBox1.Items.Cast(Of Object)().Select(Function(x) x >= x.ToString).ToList() 

然後你檢查是否輸入字符串是其中在您的列表框中的文本：

If items.Contains(TextBox1.Text) Then 
    . 
    . 
    . 
End If 

如果確實如此，您將得到nex的索引牛逼的項目：

Dim nextIndex = items.IndexOf(TextBox1.Text) + 1 

;如果下一個項目的索引沒有超過ListBox的元素的數量，你在接下來的指數獲得該項目：

If nextIndex < items.Count Then 'There is next item 
    Dim nextItem = items(nextIndex).ToString() 
    'Do something with your nextItem 
End If 

你的下一個字符串在nextItem，做一些事情。

或者，不填充整個項目，但仍然得到同樣的結果，你可以添加額外的Where LINQ條款（如Codexer建議）：

Dim item = ListBox1.Items.Cast(Of Object)().Select(Function(x) x >= x.ToString).Where(Function(y) y = TextBox1.Text).FirstOrDefault() 
If Not item Is Nothing Then 
    Dim nextIndex = ListBox1.Items.IndexOf(item) + 1 
    If nextIndex < ListBox1.Items.Count Then 'There is next item 
     Dim nextItem = ListBox1.Items(nextIndex) 
     'Do something with your nextItem 
    End If 
End If