Использовать текст как исполняемый код (не EbExecuteLine) - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет! Поделитесь, может у кого-нибудь есть решение, как написать строку (например: "Text1.Visible=false: MsgBox Text1.Text") и выполнить её, как строку кода? Оговорюсь сразу, EbExecuteLine не подходит! Написал кучу кода с её использованием, а после компиляции программа начинает вываливаться, хотя в режиме разработки всё работает, и эта проблема не только у меня, а повсеместная. Был у меня примерчик - убей, не могу отыскать! В гуглях, практически ничего нет или везде пример с EbExecuteLine. Выручайте!

Решение задачи: «Использовать текст как исполняемый код (не EbExecuteLine)»

textual
Листинг программы
Function GoText(Cmnd As String, Ctrl As Object)
    Dim SC
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    SC.AddObject """" & Ctrl & """", Ctrl
    SC.ExecuteStatement Cmnd
End Function
 
Private Sub Command1_Click()
 r = GoText(Text1, Text1)
End Sub

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы