当我们在一个窗体中进行,数据输入时,很可能有很多文本框和组合框,有些是必须输入的,有些可输入,也可以不要输入,那么怎么知道呢?
下面的示例,展示了必输的文本框和组合框,设置背景颜色加以提醒,便于识别,就知道该控件是"必输"的
点击下载此附件
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