VB-Helper：坚守脚本

领测软件测试网

      Microsoft.Vsa.IVsaError) As Boolean Implements
      Microsoft.Vsa.IVsaSite.OnCompilerError
      Dim msg1 As String = _
         "Error on line " & [error].Line & vbCr & vbCr
      Dim msg2 As String = _
         [error].LineText & vbCr
      Dim dlg As New dlgError
      dlg.rchError.Text = msg1 & msg2 & _
         [error].Description
      dlg.rchError.Select(Len(msg1) + _
         [error].StartColumn - 1, [error].EndColumn - _
         [error].StartColumn + 1)
      dlg.rchError.SelectionColor = Color.Red
      dlg.rchError.SelectionFont = _
         New Font(dlg.rchError.SelectionFont, _
            FontStyle.Bold)
      If dlg.ShowDialog() = DialogResult.OK Then
         Return True
      Else
         Return False
      End If
   End Function

文章来源于领测软件测试网 https://www.ltesting.net/