Форум компьютерной помощи — Работа с классами в lotus script

Re: Работа с классами в lotus script

2014-08-19T12:45:21Z

Двумерный массив заполняем с помошью классов

Sub Initialize
Dim xxx As New myklass
Redim xxx.AA(1)
Redim xxx.BB(1)
xxx.AA(0) = "00"
xxx.AA(1) = "11"
xxx.BB(0) = "22"
xxx.BB(1)= "33"
Print xxx.AA(0)
End Sub

Class myklass
Public AA() As String
Public BB() As String
End Class

Re: Работа с классами в lotus script

2014-08-18T13:08:25Z

А это более простой пример выведет 1122:

Sub Initialize
Dim xxx As New myklass
Dim yyy As String
xxx.AA = "11"
xxx.BB= "22"
yyy = xxx.MySum(xxx)
Print yyy
End Sub

Class myklass
Public AA As String
Public BB As String

Public Function MySum( V As myklass) As String
MySum = V.AA + V.BB
End Function
End Class

Работа с классами в lotus script

2014-08-18T13:01:57Z

Вот простой пример по работе с классами в lotus script:
напечатает "1122 2211"
Sub Initialize
Dim xxx As New myklass ' создаст xxx.AA и xxx.BB
Dim yyy As New myklass
Dim session As NotesSession
Set session = New NotesSession

xxx.AA = "11"
xxx.BB= "22"
Set yyy = xxx.MySum(xxx) ' получит результат функции MySum
Print yyy.AA &" "& yyy.BB
End Sub

Class myklass
Public AA As String
Public BB As String

Public Function MySum( V As myklass) As myklass ' V будет из V.AA="11" и V.BB="22"
Set MySum = New myklass ' создастся экземпляр MySum класса myklass
MySum.AA = V.AA + V.BB
MySum.BB = V.BB + V.AA
End Function
End Class