需要提示填写代码:

时间:2013-03-29 02:46:58

标签: vba listbox

这个问题已得到解答。 不想暴露它。

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

0 个答案:

没有答案