13. 面向对象的LotusScript（二）

上次提到使用面向对象的LotusScript的好处，这里再给出两个样例。

DialogBox是NotesUIWorkspace的一个方法，用于显示一个指定表单的对话框，在开发中很有用。不过对话框繁多的设置都通过方法的参数传递，难记难用。下面就用一个自定义类包装了DialogBox的功能，默认情况下只需要传入一个表单或者文档参数，就可以调用Show()方法显示一个对话框。对话框的显示可以通过设置属性调整。原有的参数按照其意义进行了分类，可以更方便地设置。比如Fit属性可以控制HorizonalFit和VerticalFit设置，AllowUpdate属性可以控制NoFieldUpdate和NoNewFields。如果必要，也可以通过公开的字段更精细地修改原有的参数。

%REM
	Class DialogBox
	Description: Wraps the ws.Dialogbox() method.
%END REM
Public Class DialogBox
	Public FormName As String 
	Public HorizonalFit As Boolean
	Public VerticalFit As Boolean
	Public NoCancel As Boolean
	Public NoNewFields As Boolean
	Public NoFieldUpdate As Boolean
	Public 	ReadOnly As Boolean
	Public Title As String
	Public Document As NotesDocument
	Public SizeToTable As Boolean
	Public NoOKCancel As Boolean
	Public OKCancelAtBottom As Boolean
	
	%REM
		Property Set Fit
		Description: Wraps the HorizonalFit and VerticalFit fields
	%END REM
	Property Set Fit As Boolean
		me.HorizonalFit=Fit
		me.VerticalFit=Fit
	End Property
	
	%REM
		Property Set AllowUpdate
		Description: Wraps the NoFieldUpdate and NoNewFields fields
	%END REM
	Property Set AllowUpdate As Boolean
		me.NoFieldUpdate=Not AllowUpdate
		me.NoNewFields=Not AllowUpdate
	End Property
	
	%REM
		Property Set DefaultButton
		Description: Wraps the NoCancel and NoOKCancel fields
	%END REM
	Property Set DefaultButton As Boolean
		me.NoCancel=Not DefaultButton
		me.NoOKCancel=Not DefaultButton
	End Property
	
	%REM
	Sub New
	Description: The argument info is either a string of a form name or a document to be shown
	%END REM
	Public Sub New(info As Variant)
		'stop
		'Default values
		me.HorizonalFit=False
		me.VerticalFit=False
		me.NoCancel=False
		me.NoFieldUpdate=False
		me.NoNewFields=False
		me.NoOKCancel=False
		me.OKCancelAtBottom=False
		me.ReadOnly=False
		me.SizeToTable=False
		me.Title="Lotus Notes"
		
		Select Case TypeName(info)
			Case "NOTESDOCUMENT"
				Set me.Document=info
				me.FormName=info.Form(0)
			Case "STRING"
				'info is the form name
				me.FormName=info
				Set me.Document=CreateDoc(me.FormName)
		End Select

	End Sub	
	
	%REM
	Function Show
	Description: Show the dialogbox.
	%END REM
	Public Function Show() As Boolean
		Dim ws As New NotesUIWorkspace
		Show = ws.Dialogbox(Me.FormName, Me.HorizonalFit, Me.VerticalFit, Me.NoCancel, Me.NoNewFields, Me.NoFieldUpdate, Me.ReadOnly, Me.Title, Me.Document, Me.SizeToTable, Me.NoOKCancel, Me.OKCancelAtBottom)
	End Function
End Class

下面这个自定义类对Picklistcollection也做了类似的包装。默认情况下打开当前数据库的某个视图，分别通过SelectDocs和SelectDoc进行多选和单选。

%REM
	Class PickBox
	Description: Wraps the ws.Picklistcollection() method.
%END REM
Public Class PickBox
	Private ws As NotesUIWorkspace
	Private s As NotesSession
	Private db As NotesDatabase
	
	Public MultiSelect As Boolean
	Public Server As String
	Public DBPath As String
	Public Title As String
	Public Prompt As String
	Public SingleCategory As String
	
	%REM
		Sub New
		Description: Comments for Sub
	%END REM
	Sub New()
		Set ws=New NotesUIWorkspace
		Set s=New NotesSession
		Set db=s.Currentdatabase
		'Default to open a view in the current db.
		Server=db.Server
		DBPath=db.Filepath
		Title="Lotus Notes"
		Prompt="Please select the document(s)."
	End Sub
	
	%REM
		Function SelectDocs
		Description: MultiSelect, return a NotesDocumentCollection
	%END REM
	Public Function SelectDocs(viewName As String) As NotesDocumentCollection
		Set SelectDocs = ws.Picklistcollection(PICKLIST_CUSTOM, MultiSelect, Server, DBPath, ViewName, Title, Prompt, Singlecategory)
	End Function
	
	%REM
		Function SelectDoc
		Description: Return a single NotesDocument.
	%END REM
	Public Function SelectDoc(viewName As String) As NotesDocument
		me.MultiSelect=False 
		Set SelectDoc=me.SelectDocs(viewName).Getfirstdocument()
	End Function
End Class

下面是使用上述两个类的简单样例：

	Dim dlgbox As New DialogBox("formName")
	With dlgbox
		.DefaultButton=True
		.AllowUpdate=False 
	End With
	Dim result As Boolean
	result=dlgbox.Show()
	
	Dim pb As New PickBox
	Dim doc As NotesDocument
	Set doc=pb.SelectDoc("viewName")