VisualBasic Make and Model ComboBox

Question

Моя цель состоит в том, чтобы эта программа могла определить, какая марка выбрана, и предложить список моделей, основанных на этом. Однако, когда я нажимаю ComboBox, выполняю программу и выбираю Make, у меня нет выбора в моей модели ComboBox. Кто-нибудь может мне с этим помочь? Вот мой исходный код:

Option Explicit On 
Option Strict On 

Public Class Form1 

Private Sub ButtonExit_Click(sender As Object, e As EventArgs) Handles ButtonExit.Click 
    Close() 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    'Initialize the text property of the three Combo Boxes to a NULL string 
    ComboBoxMake.Text = "" 
    ComboBoxModel.Text = "" 
    ComboBoxColor.Text = "" 
    'Add a number of cars to the "Make" ComboBox. 
    ComboBoxMake.Items.Add("Honda") 
    ComboBoxMake.Items.Add("Toyota") 
    ComboBoxMake.Items.Add("Ford") 
    ComboBoxMake.Items.Add("Lexus") 
End Sub 

Private Sub ComboBoxMake_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxMake.SelectedIndexChanged 
    Dim SelectedItem As String 
    SelectedItem = CStr(ComboBoxMake.SelectedItem()) 'Return the selected item from the ComboBox 
    MessageBox.Show(SelectedItem) 'Display the selected item 
End Sub 

Private Sub ComboBoxModel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxModel.SelectedIndexChanged 
    Dim SelectedItem As String 
    SelectedItem = CStr(ComboBoxMake.SelectedItem()) ' Return the selected item from the ComboBox 
    If SelectedItem = "Honda" Then 
     ComboBoxModel.Text = "" 'Initialize the text property to a NULL string 
     ComboBoxModel.Items.Clear() 
     ComboBoxModel.Items.Add("Accord") 
     ComboBoxModel.Items.Add("Civic") 
     ComboBoxModel.Items.Add("CRV") 
     ComboBoxModel.Items.Add("Pilot") 
     ComboBoxModel.Items.Add("Odyssey") 
    ElseIf SelectedItem = "Toyota" Then 
     ComboBoxModel.Text = "" 'Initialize the text property to a NULL string 
     ComboBoxModel.Items.Clear() 
     ComboBoxModel.Items.Add("Camrey") 
     ComboBoxModel.Items.Add("Avalon") 
     ComboBoxModel.Items.Add("4Runner") 
    Else 
     ComboBoxModel.Items.Add("Not Available") 
    End If 
End Sub 
End Class 

Answer 1

Попробуйте использовать double equals при сравнении значений String.