1

Тема: VBScript: создание и отображение форм LangMF

Пример отобразит форму, сгенерированную LangMF, с EditBox'ом и кнопкой. После закрытия формы с помощью кнопки "О'кей!" данные, введённые пользователем в EditBox, будут переданы в VBScript.

code = ""
code = code & "<#Module=mdlMain>" & vbCrLf
code = code & "Sub Load(cmdLine)" & vbCrLf
code = code & "    form.width = 2000" & vbCrLf
code = code & "    form.height = 2000" & vbCrLf
code = code & "    form.caption = ""Форма""" & vbCrLf
code = code & "    form.add ""text"", 1" & vbCrLf
code = code & "    form.text(1).move 15, 20, 100, 25" & vbCrLf
code = code & "    form.add ""command"", 1" & vbCrLf
code = code & "    form.command(1).move 15, 65, 100, 25" & vbCrLf
code = code & "    form.command(1).caption = ""О'кей!""" & vbCrLf
code = code & "    form.show vbModal" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Module>" & vbCrLf
code = code & "<#Form=form>" & vbCrLf
code = code & "Sub Command1_Click()" & vbCrLf
code = code & "    dict.Add ""text1"", form.text(1).Text" & vbCrLf
code = code & "    endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "Sub Form_Unload()" & vbCrLf
code = code & "    endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Form>" & vbCrLf

Set LMF = CreateObject("Atomix.LangMF")
Set res = CreateObject("Scripting.Dictionary")
LMF.AddObject res, "dict"
LMF.Command code
WScript.Echo res.Item("text1")

Для работы потребуется установить LangMF.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.