Owner's manual

DOKuStar Validation for Ascent Capture Page • 99
Display Multi-Line Status Texts
Sometimes it might be necessary to display more than one line of text in the Information Bar. Using the
StatusTextTransporter’s HTMLText Property, this is no problem, because you will format everything
yourself using the appropriate HTML tags.
When you are not familiar with HTML and prefer the
StatusTextTransporter’s Text Property, you can still
display more than one line of text. Simply insert a
\n between the lines:
Option Explicit
Dim WithEvents Field As FieldType
Dim st As New StatusTextTransporter
Private Sub Application_OnProjectLoaded(ByVal App As Application)
Set Field =
App.Project.DataSet.Schema.DocumentTypes("InvoiceTable").FieldTypes("InvoiceNumber")
End Sub
Private Function Field_OnFieldChanging(ByVal Field As Field, ByVal SubField As Field, _
ByVal VerifyEventArgs As VerifyEventArgs) As Boolean
Field_OnFieldChanging = True
st.Reset
If Len(Field.Value) <> 6 Then
'* two lines of text
st.Text = "Invalid value: " & Field.Value & "\nPlease enter exactly 6 digits"
Field_OnFieldChanging = False '* will restore old contents
End If
End Function