VBScript: вызов VBScript-функций из области LangMF

null@example.com (The gray Cardinal) — Tue, 10 Jun 2008 16:42:56 +0000

При работе с COM-сервером LangMF "Atomix.LangMF" можно вызывать функции, описанные на VBScript, из области кода LangMF. Для этого можно передать в область LangMF ссылки на VBScript-функции, полученные с помощью вызова GetRef. Демонстрация:

Set LMActiveX = CreateObject("Atomix.LangMF")
LMFCode = _
"<#Module=callfromVB>" & VbCrLf & _
"Sub Load(cmdstr)" & VbCrLf  & _
"SampleCall(""Hello, script-coding!"")" & VbCrLf  & _
"End Sub" & VbCrLf  & _
"<#Module>"
'Получение объекта функции и добавление в область LangMf
Set SampleObj = GetRef("Sample")
LMActiveX.AddObject SampleObj, "SampleCall"
'Инициализация кода LangMF
LMActiveX.Command LMFCode 
LMActiveX.Reset
'----------------------------------------------------------
Function Sample(data)
    MsgBox data
End Function

Идею предложил Poltergeyst.

Серый форум — VBScript: вызов VBScript-функций из области LangMF

VBScript: вызов VBScript-функций из области LangMF