Created
January 31, 2013 17:42
-
-
Save Lokutus/4684702 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
%REM | |
User | |
NotesName container object | |
@author Jiri Krakora | |
@date 31.1.2013 | |
@extends CollectionItem | |
@revision 31.1.2013 1.0 Relesase | |
%END REM | |
Public Class User As CollectionItem | |
Private oName As NotesName | |
Public Property Get Name As NotesName | |
Set ~Name = Me.oName | |
End Property | |
Public Property Set Name As NotesName | |
Set Me.oName = ~Name | |
End Property | |
Public Property Set NameValue As String | |
Set Me.oName = New NotesName(NameValue) | |
End Property | |
Public Sub New | |
Set Me.oName = New NotesName("") | |
End Sub | |
%REM | |
Return NotesName.Abbreviated value as string | |
@return Abbreviated name | |
%END REM | |
Public Function ToString As String | |
Let ToString = Me.oName.Abbreviated | |
End Function | |
%REM | |
Return NotesName.Canonical value as string | |
@return Canonical name | |
%END REM | |
Public Function ToCanonical As String | |
Let ToCanonical = Me.oName.Canonical | |
End Function | |
End Class |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment