【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
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
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
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
如果文档的任何地方有一个附件,即使它不在所验证的域中,该代码也会工作。