1

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
4

2 に答える 2

1

これは機能します...そして、常にiphone 5が表示されている唯一の理由は、コンボボックスに常にこれが含まれており、これが常にtrueであることを意味するためです...

  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
于 2013-03-01T06:03:08.277 に答える
1

特に追加する必要がある場合は、これよりも少し良い例を次に示します...代わりに case ステートメントを使用し、文字列を事前に宣言します...

  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

これをコピーして貼り付ける場合は、このサブの最後に移動し、存在しない場合はこれを最後に追加します...

 Handles cboBrand.SelectedIndexChanged 'Sometimes when copied it looses its handlers..
于 2013-03-01T06:58:55.480 に答える