首页 相关文章 让VB在程序中显示错误行

让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

  以上程序将会在一个控件数组中建立新的线以匹配引入的控件。然后,设置线的容器以...[ 查看全文 ]

2016-02-19 标签:

让VB在程序中显示错误行的相关文章

手机页面
收藏网站 回到头部