讓VB在程序中顯示錯誤行

以下代碼行假設你在文本框中顯示錯誤行，這些代碼稍加更改就可以適用其他范圍。

　　首先，在窗體中建立一個“線”控件，並把它的索引號定為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

　　以上程序將會在一個控件數組中建立新的線以匹配引入的控件。然後，設置線的容器以處理標簽控件中的文本框。它設置了線的位置和顏色，如果ErrorState為True，線為可見。

在文本框的Validate事件添加以下代碼，以調用SetErrorState方法：

IfText1(Index).Text="1"Then
　　注釋：==Valid
　　CallSetErrorState(False,Text1(Index))
　　Else
　　注釋：==Invalid
　　CallSetErrorState(True,Text1(Index))
　　EndIf

　　相比於信息對話框，使用行來顯示錯誤狀態很少打斷開發人員的編程思路，並且這一方法很容易學會。

->