The truth is, most of the "Setter" and "Getter" properties that you would write offer direct read/write access to those variables anyway -- and writing them out is such a pain! You could cheat and declare the class variables as public or you could have a Lotus Notes form generate them for you.
Here is the code for a button that will do just this:
private m_MyVar1 as string private m_MyVar2 as Variant private m_MyVar3 as Integer private m_MyVar4() as string
That will generate these:
Public Property Get MyVar1 as String MyVar1 = me.m_MyVar1 End Property Public Property Set MyVar1 as String me.m_MyVar1 = MyVar1 End Property Public Property Get MyVar2 as Variant MyVar2 = me.m_MyVar2 End Property Public Property Set MyVar2 as Variant me.m_MyVar2 = MyVar2 End Property ... and so on.
To further set this up, create a Lotus Notes form in any Lotus Notes database and put two text fields in it.
These text fields should be labeled as:
- Input: This is a multi-value Lotus Notes text field. Set the multi-value options tick boxes to use "NewLine" for both display and input.
- Output: This is a single value Lotus Notes text field.
Now follow these steps:
- Create a button on the form and paste the button code below into its LotusScript Click event.
- Create a new Lotus Notes document from the form and paste your class variable declarations into the Input field.
- Click the button.
The "Setter" and "Getter" properties will be created in the Output field. You can then copy and paste the LotusScript below into your class definition code:
Button code Dim session As New NotesSession Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim inputVar As Variant Set uidoc = ws.CurrentDocument Set doc = uidoc.document Call doc.ComputeWithForm (False, False) inputVar = doc.Input If inputVar(0) = "" Then Messagebox "No input found" Exit Sub End If %REM Assumptions are that class variables will declared thus private m_MyVar1 as string private m_MyVar2 as Variant private m_MyVar3 as Integer private m_MyVar4() as string and so on. We use the Split function to create a variant array (tempVar) of 4 members. These will be tempVar(0) = the word "Private". tempVar(1) = the variable's name tempVar(2) = the word "as" tempvar(3) = the variable's type. You need two text fields on a form: "Input" = multi-value Text field. Set the multi-value options tickboxes to use NewLine. "Output" = single value Text field %END REM Dim outputString As String Dim tempString As String Dim tempVar As Variant Dim variableName As String Dim setgetVariableName As String Dim variableType As String Dim NL As String outputString$ = "" Dim classVariablePrefix As String classVariablePrefix$ = "m_" NL$ = Chr$(13) & Chr$(10) ' True for Windoze only. Should change for Mac or Linux clients. Forall inputLine In inputVar tempVar = Split(inputLine, " ") variableName = Trim(tempVar(1)) variableType = Trim(tempVar(3)) If Instr(variableName, "(") > 0 Then ' must be an array, so need to declare the set and get as Variant variableName$ = Strleft(variableName$, "(") variableType$ = "Variant" End If If Instr(variableName$, classVariablePrefix$) > 0 Then setgetVariableName$ = Strrightback (variableName$, classVariablePrefix$) Else setgetVariableName$ = variableName$ End If outputString$ = outputString$ & "public property get " & setgetVariableName$ & " as " & variableType$ & NL$ outputString$ = outputString$ & Chr$(9) & setgetVariableName$ & " = me." & variableName$ & NL$ outputString$ = outputString$ & "End Property" & NL$ outputString$ = outputString$ & "public property set " & setgetVariableName$ & " as " & variableType$ & NL$ outputString$ = outputString$ & Chr$(9) & " me." & variableName$ & " = " & setgetVariableName$ & NL$ outputString$ = outputString$ & "End Property" & NL$ & NL$ End Forall doc.Output = outputString Call uidoc.reload
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Mike Brown. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
This was first published in October 2007