Выполнение команды из TextBox

[Jenizix]

Нужно чтобы при нажатии на кнопку происходила команда написанная в TextBox, например в текстбоксе написано MsgBox "Hello!!!" надо чтоб эта команда выполнялась при нажатии на кнопку.

[Ennor]

Уж сколько раз твердили миру, что VB, написаный на VB, будет работать медленнее, чем VB, написанный на С++
Попробуй поискать на форуме по словам MSVBVM60 и Declare.

[alibek]

Можно даже более конкретно, EbExecuteLine.
Только такая прога не будет работать после компиляции.

[RayShade]

А как насчет MS Script Control? Делаем так:

Код: Выделить всё

dim scc as new scriptcontrol
dim mdl as module
with scc
.language = "vbscript"
set mdl = .modules.add "dummy"
end with
with mdl
.addcode "sub mysub():" & text1.text &": end sub"
.run "mysub"
end with


[all]

if text1.text="msgBox("hello world")" then msgBox"hello world"

[ChelDm]

2all точно подметил - молодец

[Шурик]

if text1.text="msgBox("hello world")" then msgBox"hello world"

ххххааааааа!!!!!
А если вместо Hello world будет написанно Game Over, он все равно напишет Hello world

[_NeoN_]

Он вообще нчиего не напишет =)

[Tamahawk]

If left(Text1.text, 6)=Msgbox Then
Msgbox right(Ttext1.text, len(text1.text)-6)

лучше юзай EbExecuteLine эта штука работает и после компиляции (ументь надо)

[Ariman]

Сколько тут предложений различных.
А между тем, я бы человеку посоветовал другое.
Скорее всего ему нужен ЛА(тобиш Лексический Анализатор)
Это самый лучший выход, если он хочет, скажем, сделать скриптовый язык для своей игры.
Поэтому советую всем, кому это нужно, искать в интернете
"парсер", "parser" и "лексический анализатор".
Хороший пример есть на gameDev. Только он на с++.

[A.A.Z.]

Сказали же уже - VB на VB медленнее, чем VB на C++! (Возгласы из-за кадра - Да ну!? Ух ты! Не знал! )
Юзайте EbExecuteLine!

Код: Выделить всё

Option Compare Text

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Private Sub cmdRun_Click()
Dim Code As String
Code = "MsgBox ""Hello, World!!!"""
EbExecuteLine StrPtr(Code), 0&, 0&, False
End Sub

[A.A.Z.]

if text1.text="msgBox("hello world")" then msgBox"hello world"

Не будет пахать. Должно быть If Text1.Text = "MsgBox(""hello world"")" Then MsgBox "hello world".

[Jenizix]

а как сделать, чтоб EbExecuteLine после компиляции работало???
плиз!!!

[A.A.Z.]

Таскать с собой vba6.dll, я так думаю...

[Jenizix]

НЕТ!!!!
Если я положу рядом vba6.dll, то он выдает ошибку, что память по адресу <адрес> не может быть read

[A.A.Z.]

Кинь в system32...
Да, и зарегь её!

[alibek]

Дык это ж Native, ее регистрировать не надо.
Глюки компилированной проги вылазят от того, что EbExecuteLine не знает, в каком контексте эту команду выполнять.
Кто-то тут пускал слухи, что знает, как обмануть vba6.dll, но я вживую такого не видел.