Преобразовать текстовые данные в код - VB
Формулировка задачи:
Имеется 6 форм (MAIN, Forma1, Forma2, Forma3, Forma4, Forma5).
На 5 формах имеется по 5 текстбоксов (Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text)
При условии, что MAIN.Text0.Text = какому либо из текстбоксов любой из пяти форм она Show?
Вот так не работает:
Хотя путь вот так отображает верно:
Решение задачи: «Преобразовать текстовые данные в код»
textual
Листинг программы
Dim sc, i, s: Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
sc.AddObject "Form5", Form5
i = "Text1.Text"
s = "Form5." & i
If Form0.Text1.Text = sc.eval(s) Then Form5.Show