遍历所有窗体控件
For
Each
Control
In
GroupBox2.Controls
If
TypeOf
Control
Is
TextBox
Then
If
Control.ForeColor =
Color
.Red
Then
MessageBox
.Show(
"还有错误,不允许提交!请检查后,再提交!"
,
"Warning"
,
MessageBoxButtons
.OK,
MessageBoxIcon
.Warning)
Exit For
End
If
End
If
Next