以下代码行假设你在文本框中显示错误行,这些代码稍加更改就可以适用其他范围。
首先,在窗体中建立一个“线”控件,并把它的索引号定为0。接着,添加如下的代码:
PrivateSubSetErrorState(ByValErrorStateAsBoolean,_
ByRefControlAsControl)
OnErrorResumeNext
LoadlinError(Control.Index)
WithlinError(Control.Index)
Set.Container=Control.Container
.X1=Control.Left
.X2=Control.Left Control.Width
.Y1=Control.Top Control.Height 10
.Y2=Control.Top Control.Height 10
.BorderColor=vbRed
.Visible=ErrorState
EndWith
EndSub
以上程序将会在一个控件数组中建立新的线以匹配引入的控件。然后,设置线的容器以...[ 查看全文 ]