组合框项目更改时无法更改文本

Question

在组合框中选择和项目后，如iphone5，samsung s3，htc等。如果用户选择Iphone5，则所选项目的说明将添加到文本框中。

它似乎无法正常工作，因为每次我选择不同的项目时，它只显示分配给iphone5的描述。

If cboBrand.Items.Contains("Iphone5") = True Then 

     TxtBox1.Text = "OS : iOS 6, upgradable to iOS 6.1, Chipset: Apple A6, CPU: Dual-core 1.2 GHz" 

    ElseIf cboBrand.Items.Contains("Sumsung s3") = True Then 

     TxtBox1.Text = "Os: Android OS, (Ice Cream Sandwich), upgradeable to 4.1.2 (Jelly Bean, CPU: Quad-core 1.4 GHz Cortex-A9)" 

    End If 

Answer 1

这里有一个小比这更好的例子，特别是如果你有更多的添加...使用的情况下语句，而不是和前手宣布你的琴弦......

Private Sub cboBrand_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles cboBrand.SelectedIndexChanged 

    Dim strIphone5 As String = "OS : iOS 6, upgradable to iOS 6.1, Chipset: Apple A6, CPU: Dual-core 1.2 GHz" 
    Dim strSumPhone As String = "Os: Android OS, (Ice Cream Sandwich), upgradeable to 4.1.2 (Jelly Bean, CPU: Quad-core 1.4 GHz Cortex-A9)" 

    Select Case cboBrand.SelectedItem 

     Case "iphone5" 
      txtAddress.Text = strIphone5 
     Case "Sumsung s3" 
      TextBox1.Text = strSumPhone 

    End Select 

    End Sub 

现在，如果你复制并粘贴这一点，到本月底小号ub并将其添加到它的结尾如果它不存在...

Handles cboBrand.SelectedIndexChanged 'Sometimes when copied it looses its handlers.. 

Answer 2

这将工作......而唯一的原因，它始终显示iPhone 5的是因为你的组合框始终包含这一点，这意味着它总是真的...

Private Sub cboBrand_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles cboBrand.SelectedIndexChanged 

    If cboBrand.SelectedItem = ("Iphone5") Then 

     txtAddress.Text = "OS : iOS 6, upgradable to iOS 6.1, Chipset: Apple A6, CPU: Dual-core 1.2 GHz" 

    ElseIf cboBrand.SelectedItem = ("Sumsung s3") Then 

     TextBox1.Text = "Os: Android OS, (Ice Cream Sandwich), upgradeable to 4.1.2 (Jelly Bean, CPU: Quad-core 1.4 GHz Cortex-A9)" 

    End If 
    End Sub