我真是笨啊……连ComboBox都学不清楚……

Question

大家帮我看一下，为什么我在Combo1中选择了东西可是文本框却不会变……：Private Sub Combo1_Change()
    Dim n As String
    n = Combo1.Text
    Select Case n
    Case "白"
        Text1.ForeColor = vbWhite
    Case "黑"
        Text1.ForeColor = vbBlack
    Case "红"
        Text1.ForeColor = vbRed
    End Select
End Sub请问如果错了，错在哪？应该怎么改？~~

Answer 1

将代码放到 Click 事件中Private Sub Combo1_Click()
    Dim n As String
    n = Combo1.Text
    Select Case n
    Case "白"
        Text1.ForeColor = vbWhite
    Case "黑"
        Text1.ForeColor = vbBlack
    Case "红"
        Text1.ForeColor = vbRed
    End Select
End Sub

Answer 2

兄弟，这不是你的错，这是微软的问题，把上面的代码写在combo1_click()事件中就可以了。
combo1_change()在用户选择前就会被调用，而click则是在选择后，你的代码放到combo1_click里就正常了！

Answer 3

写在click事件中Private Sub Combo1_Click()
    Dim n As String
    n = Combo1.Text
    Select Case n
    Case "白"
        Text1.ForeColor = vbWhite
    Case "黑"
        Text1.ForeColor = vbBlack
    Case "红"
        Text1.ForeColor = vbRed
    End SelectEnd Sub

Answer 4

写在click事件中Private Sub Combo1_Click()
    Dim n As String
    n = Combo1.Text
    Select Case n
    Case "白"
        Text1.ForeColor = vbWhite
    Case "黑"
        Text1.ForeColor = vbBlack
    Case "红"
        Text1.ForeColor = vbRed
    End SelectEnd Sub

Answer 5

你不笨，只是没有搞清楚_change和_click的区别。象你的那种，你输入一个字如“白”就明白是什么意思了，再重新输入一个“红”看看。