完成代碼需要提示：

已回答此問題。不想讓它暴露。完成代碼需要提示：

Private Sub btnTTL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles findzipButton.Click 

    Dim zipCode As String 

    'forgot 

    If (ListBox1.FindString(findzipButton.Text) >= 0) Then 
     ttlTextBox.Text = "$15" 
    ElseIf (ListBox2.FindString(findzipButton.Text) >= 0) Then 
     ttlTextBox.Text = "$20" 
    Else 
     MessageBox.Show("The zipcode was not found!") 
    End If 

End Sub 
End Class

來源

2013-03-29 Eloquence

因此，我認爲你試圖做的是匹配用戶將進入一個文本框與在任一ListBoxA或ListBoxB選擇輸入。我只是在VS 2012中嘗試過這種方式，它似乎以上述問題的方式工作，但我只是試圖找到並顯示運輸成本：

Private Sub btnExit_Click（ByVal sender As Object，ByVal e作爲System.EventArgs）把手btnExit.Click Me.Close（）完子

Private Sub ListBox1_Load(sender As Object, e As EventArgs) Handles Me.Load 

    ListBox1.Items.Add("60611") 
    ListBox1.Items.Add("60234") 
    ListBox1.Items.Add("56789") 
    ListBox1.Items.Add("23467") 
    ListBox1.Items.Add("60543") 
    ListBox1.Items.Add("60561") 
    ListBox1.Items.Add("55905") 
    ListBox1.Items.Add("89567") 


    ListBox2.Items.Add("50978") 
    ListBox2.Items.Add("78432") 
    ListBox2.Items.Add("98432") 
    ListBox2.Items.Add("97654") 
    ListBox2.Items.Add("20245") 

End Sub 

Private Sub btnFind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFind.Click 

    Dim zipCode As String = txtZipCode.Text 

    If (ListBox1.FindString(zipCode) >= 0) Then 
     txtShipping.Text = "$15" 
    ElseIf (ListBox2.FindString(zipCode) >= 0) Then 
     txtShipping.Text = "$20" 
    Else 
     MessageBox.Show("The zipcode was not found!") 
    End If 

End Sub

你在正確的軌道上。你需要做的是將用戶實際輸入到文本框的內容與列表框中的內容進行比較。 FindItem（）方法將產生一個Long。如果它確實找到了您的搜索字符串，它將生成運輸文本框。

來源

2013-03-29 02:59:28

如果你給我一點時間，我會在我的DropBox上看到一些截圖，這樣你就可以看到這是你期望的，還是我誤解了這個問題。或者我可以放置解決方案文件。 –

是的，這正是我想要做的。比較用戶實際輸入的內容與列表框1中的內容。如果不在列表框中，它將檢查列表框2.如果該數字仍然未找到，則它將顯示未找到。我還沒有學習FindItem（）方法。非常感謝 – Eloquence

完成代碼需要提示：

回答

相關問題