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

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

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

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

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.900 из 5


СОХРАНИТЬ ССЫЛКУ