设置必须输入控件(文本框或组合)的背景颜色

时　间:2009-05-31 19:17:22
作　者:caoguangyao   ID：3606  城市：广州
摘　要:设置必须输入控件(文本框或组合)的背景颜色
正　文:

当我们在一个窗体中进行,数据输入时,很可能有很多文本框和组合框,有些是必须输入的,有些可输入,也可以不要输入,那么怎么知道呢?

下面的示例,展示了必输的文本框和组合框,设置背景颜色加以提醒,便于识别,就知道该控件是"必输"的

点击下载此附件

1、在必须输入的控件，属性--其它--标记中，输入“必输”

2、在窗体的加载事件中：

Private Sub Form_Load()
Call ctlCol
End Sub

颜色设置过程的代码如下:

Sub ctlCol()
Dim ctl As Control
For Each ctl In Me.Controls '----循环窗体中所有控件
    If (TypeOf ctl Is TextBox) or (TypeOf ctl Is ComboBox) Then   '如果控件类型为文本框或组合框
        If Nz(ctl.Tag) = "必输" Then     '如果控件类型为文本框或组合框的标记属性为"必输",则设置背景颜色值
            ctl.BackColor = 1234567 ' vbBlue '设置你喜欢的颜色值
        End If
    End If
Next
End Sub