Конференция VBStreets

**Арсений** » 24.04.2006 (Пн) 18:09

Помню, что вроде в фокспре или клиппере была возможность запустить из программы текстовую строчку програмного кода, дабы она выполнилась. А есть ли такое в VB6?

например сформировать или считать из ini или БД строку типа:

sss="Mid(Data1.Recordset!MyDat, 2, 5)"

и выполнить ее???

Ищу уже давно, буду крайне признателен за любую помощь.

**Роман-вб** » 24.04.2006 (Пн) 18:14

Арсений
Вопрос интересный. Меня тоже это раньше интересовало, но ответа я так и не нашёл.

**Роман-вб** » 24.04.2006 (Пн) 18:19

Может как то Immediate можно исп.? :roll:

Но как?

**Viper** » 24.04.2006 (Пн) 18:32

В Immediate пожалуйста, но есть нюансы, соответственно стоит смотреть соответствующую справку

**Роман-вб** » 24.04.2006 (Пн) 18:38

!Viper! писал(а):В Immediate пожалуйста, но есть нюансы, соответственно стоит смотреть соответствующую справку

Не совсем в Immediate, а скорее через.
Если есть какая-то информация -- не откажи нам в любезности.

**Арсений** » 24.04.2006 (Пн) 19:20

Спасибо, не особо конкретно, но будем пробовать!

**Роман-вб** » 24.04.2006 (Пн) 19:29

Арсений
Если чё нароешь, -- пиши!

**keks-n** » 24.04.2006 (Пн) 19:31

В скомпилированном виде не сработает.
ScriptControl вам в помошь! Только ему надо среду создать, для доступа к данным приложения.

**Роман-вб** » 24.04.2006 (Пн) 19:33

keks-n
Если можно поподробнее.

**Арсений** » 24.04.2006 (Пн) 20:45

Роман-вб писал(а):keks-n
Если можно поподробнее.

Поддерживаю.

Любой пример работы с 'этим контролом, pls.

**keks-n** » 24.04.2006 (Пн) 21:36

Ловите то, что набросал минут за 10. А вообще http://msdn.microsoft.com/

**Роман-вб** » 24.04.2006 (Пн) 21:49

keks-n
спасибопосмотрим

**Арсений** » 25.04.2006 (Вт) 11:59

Горячо благодарю всех принявших участие!

Сейчас попробовал, вроде все пашет. (Script Control)

Будем творить, выдумывать, пробовать!

**Antonariy** » 25.04.2006 (Вт) 12:56

Есть еще недокументированная функция

Код: Выделить всё: Private Declare Function EbExecuteLine Lib "vba6.dll" ( _ ByVal StringToExec As Long, ByVal Any1 As Long, _ ByVal Any2 As Long, ByVal CheckOnly As Long) As Long Sub execute(s As String) EbExecuteLine StrPtr(s), 0&, 0&, 0& End Sub Sub button1_click() execute "MsgBox ""Hello world""" End Sub

**GSerg** » 25.04.2006 (Вт) 13:01

Antonariy, неужели ты решил присоединиться к стройным рядам тех, кто не знает, что она не работает в exe?

**Antonariy** » 25.04.2006 (Вт) 13:07

Я решил их возглавить :wink:

Действительно, под дебагом работает, в скомпилированном exe вызывает недопустимую в приличном обществе операцию.

**Kovu** » 25.04.2006 (Вт) 14:21

GSerg
А если не секрет, объясни пожалуйста почему в скомпилированном виде вызывает недопустимую операцию? :roll:

**GSerg** » 25.04.2006 (Вт) 14:48

Потому что это by design...

Конференция VBStreets

Метаподстановка, скрипт, макрос???

Метаподстановка, скрипт, макрос???

Кто сейчас на конференции