Executing a single line of VB Code

[Sastraxi]

I've seen it somewhere before;

You can execute a line of VB code from a string somehow...

Like: VBExecute("msgbox 'This is a user generated dialog'")

[theman32x]

yeah i've seen someone put that code on the forums ... i'm pretty sure it was a guru or someone with at least 2000 posts ... so u should do a search for guru people

[oetje]

Use the Microsoft Scripting Host. It comes with an activex control that you can use in vb. I don't remember how to use it, but it's something like controlname.execute.

Away with scipting.. Try this:

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

' = = = =  For VB5
'Declare Function EbExecuteLine Lib "vba5.dll"  (ByVal pStringToExec As Long, ByVal Foo1 As Long,  ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' = = = =  For Access 97/VBE.dll clients as Word 97 and Excel 97
'Declare Function EbExecuteLine Lib "vba332.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Function FExecuteCode(stCode As String, Optional fCheckOnly As Boolean) As Boolean
    FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Form_Load()
    Dim TheString As String
    
    TheString = "MsgBox ""This is a user generated dialog"""
    Debug.Print FExecuteCode(TheString, False)
End Sub

Enjoy!

[alexp]

here it is:
http://forums.vb-world.net/showthrea...threadid=40582