根据文本框值更改文本框背景颜色

时间:2017-07-20 22:04:42

标签: vba

我在如何正确编码时遇到问题。我希望我的文本框在执行另一个操作时“任何”填充到其中时会改变颜色。如果没有填充任何内容,我也不希望它完全改变。到目前为止,我有以下内容 1.)我无法弄清楚该值的用途,因为它会根据选择而有所不同。 2.)如果没有填充,如何保持文本框相同。它一直变黑?

Private Sub MailChannel_Change()

'更改颜色

If MailChannel.Text = "" Then
  MailChannel.BackColor = &HC000&
Else
  MailChannel.BackColor = False
End If
End Sub

1 个答案:

答案 0 :(得分:1)

Private Sub TextBox1_Change()
    If TextBox1.Value <> "" Then
        TextBox1.BackColor = RGB(153, 255, 255)
    Else
        TextBox1.BackColor = RGB(255, 255, 255)
    End If
End Sub

这基本上是说如果文本框值不是空白,则将其更改为任何颜色,否则保持白色。