HCL Notes / Domino / Diverses > Entwicklung

Statischer Code in LS Execute()

<< < (2/2)

Tode:
Ich verwende das in der N4Y Toolbar, um dynamisch eine globale Variable mit der richtigen Klasse zu initialisieren. Daruch kann ich immer weitere Funktionen hinzufügen und muss über den jeweiligen Symbolleisten- Button nur den Klassennamen mitgeben:


--- Code: --- actionClass = g_ctx.ses.Getenvironmentstring("N4Y_Toolbar_Action_Name")
Call g_ctx.ses.Setenvironmentvar("N4Y_Toolbar_Action_Name", "")

classBuilder = |
Use "N4Y.ToolbarActionLib"
Sub Initialize
Set g_toolbarAction = New TA_| & actionClass & |
End Sub
|
On Error Goto ErrorExecute
Execute classBuilder
On Error Goto ErrorRoutine
--- Ende Code ---

Und der ErrorHandler fängt gleich noch ab, wenn es die Klasse gar nicht gibt und gibt eine entsprechende Meldung aus

Navigation

[0] Themen-Index

[*] Vorherige Sete