Question

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

Private Sub MailChannel_Change()

'更改颜色

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

Answer 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

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

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

1 个答案: