Forms 如何使用if语句更改文本框的背景色？

如果用户从下拉列表（combobox）中选择了特定值，我将尝试屏蔽文本框。我试图根据特定组合框中的值更改文本框的背景色。我已经创建了下面的代码，并能够使其工作，但它只有在vba中手动运行宏时才能工作。你能帮我解决这个问题吗。谢谢

Private Sub discqty_DropButtonClick()

lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)


If combobox1.Value = "NON-CONFORMANCE" Then
    Me.discqty.Value = ""
    Me.discqty.BackColor = lngBlack
End If

If combobox1.Value = "BOM CHANGE" Then
    Me.discqty.Value = ""
    Me.discqty.BackColor = lngBlack
End If


If combobox1.Value = "WOC" Then
    Me.discqty.Value = ""
    Me.discqty.BackColor = lngBlack
End If



If combobox1.Value = "LOST PART" Then
    Me.discqty.BackColor = lngWhite
End If

If combobox1.Value = "DAMAGE/DESTROYED" Then
    Me.discqty.BackColor = lngWhite
End If

If combobox1.Value = "QA/QC ISSUE" Then
    Me.discqty.BackColor = lngWhite
End If

呼叫净值

---

End Sub

您需要将颜色更改部分输出到

组合框1\u Change（）

Sub

双击组合框，然后将其粘贴到出现的

专用子组合框1\u Change（）

子组合框中

 Private Sub ComboBox1_Change()

      If ComboBox1.Value = "NON-CONFORMANCE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "BOM CHANGE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "WOC" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "LOST PART" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "DAMAGE/DESTROYED" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "QA/QC ISSUE" Then
          Me.discqty.BackColor = lngWhite
      End If

 End Sub

---

您需要将颜色更改部分输出到

combobox1\u Change（）

Sub

双击组合框，然后将其粘贴到出现的

专用子组合框1\u Change（）

子组合框中

 Private Sub ComboBox1_Change()

      If ComboBox1.Value = "NON-CONFORMANCE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "BOM CHANGE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "WOC" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "LOST PART" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "DAMAGE/DESTROYED" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "QA/QC ISSUE" Then
          Me.discqty.BackColor = lngWhite
      End If

 End Sub