完成代码需要提示：

已回答此问题。不想让它暴露。完成代码需要提示：

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

完成代码需要提示：

回答

相关问题