0

この質問には回答済みです。露出させたくない。

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
4

1 に答える 1

0

したがって、あなたがしようとしているのは、ユーザーがテキスト ボックスに入力した入力を、ListBoxA または ListBoxB の選択と一致させることです。VS 2012 でこれを試したところ、上記の問題で説明したように機能しているようですが、送料を見つけて表示しようとしているだけです。

Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) ハンドル btnExit.Click Me.Close() End Sub

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-29T02:59:28.477 に答える