该功能在R5里面不能实现。在R6里面，可以实现。
Option Public
Uselsx "*javacon"

Dim jsession As JavaSession
Dim jclass As JavaClass
Dim myobject As JavaObject

Set jsession = New JavaSession
Set jclass = jsession.GetClass("$ClassName")
Set myobject = jclass.CreateObject

%REM

Call myobject.SubName()
TmpStr = myobject.Function()

%END REM
点此查看原贴