技术开发 频道

Lotus Notes中验证富文本域的三种技巧

【IT168 技术】  该技巧描述了三种在Lotus Notes中验证富文本输入域的快速方法。第一种方法验证的文本域中,任何文本(包括单个空格字符)都是可接受的输入。第二种方法验证的域中,要求至少有一个非空格文本。第三种方法验证的域中,可以不包含文本,但是可能包含附件、嵌入式对象或者链接。本文假设您具有使用 Domino Designer 和 LotusScript 开发应用程序的经验。

  方法 1

  在第一种方法中,只要域中包含有输入(哪怕是单个空格字符),就会通过验证。该验证使用包含域的表单的 Querysave 事件。下面的 LotusScript 示例代码执行这一验证:

1 Sub Querysave(Source As Notesuidocument, Continue As Variant)
2       If ( Source.FieldGetText( "rtfield" ) = "" ) Then
3     Messagebox( "Please enter some text." )
4     Call Source.GotoField( "rtfield" )
5     Continue = False
6   End If
7 End Sub

  代码检查域 rtfield 中的任何字符。只要域中包含输入(哪怕它只是包含一个或多个空格字符),验证就会成功。如果域为空,则代码返回错误消息,并且不保存文档(通过将 Continue 设置为 False)。

  方法 2

  在第二种方法中,富文本域必须至少包含一个非空格字符(换句话说,只包含一个或多个空格的输入是不允许的)。该检查也使用表单的 Querysave 事件:

1 Sub Querysave(Source As Notesuidocument, Continue As Variant)
2   
3   Dim rtitem As NotesRichTextItem
4   Set doc = Source.Document
5   Set rtitem = doc.GetFirstItem( "rtfield" )
6   Dim text As String
7   
8   text$ = Source.FieldGetText("rtfield")
9   trimmed$ = Trim(text)
10       
11       if ( trimmed$ = "") Then
12     Msgbox "Please enter some text."
13     Continue = False
14     source.GotoField("rtfield")
15     source.Refresh(True)
16   Else
17     Continue = True
18     
19   End If
20 End Sub

  方法 3

  第三种方法验证的富文本中,只包含一个附件、嵌入式对象或者链接的输入是允许的,即使它不包含相应的文本。同样,还是使用包含域的表单的 Querysave 事件:

1 Sub Querysave(Source As Notesuidocument, Continue As Variant)
2   
3   Dim rtitem As NotesRichTextItem
4   Set doc = Source.Document
5   Set rtitem = doc.GetFirstItem( "rtfield" )
6   Dim text As String
7   
8   text$ = Source.FieldGetText("rtfield")
9   trimmed$ = Trim(text)
10   
11   If(doc.Hasembedded) Then
12     Continue = True
13         
14   Elseif ( trimmed$ = "") Then
15     Msgbox "Please enter some text."
16     Continue = False
17     source.GotoField("rtfield")
18     source.Refresh(True)
19   Else
20     Continue = True
21   
22       End If
23 End Sub
24

  如果文档的任何地方有一个附件,即使它不在所验证的域中,该代码也会工作。
 

0
相关文章