有个api可以实现，但是貌似只能在IDE环境
34318
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t34318%22%2C%22tid%22%3A%2234318%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
怎么用VB动态添加代码
如题，我想在软件运行时底下有个文本框，上面有各种控件，在文本框中添加代码，即可让控件使用，求各位大虾帮助一下，O(∩_∩)O谢谢
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
If Text1.Text <> "" Then
Dim Result As Boolean
Result= ExecuteLine(Text1.Text)
End If
End Sub
在文本框中输入Msgbox "Hello"，看看有什么结果。
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
If Text1.Text <> "" Then
Dim Result As Boolean
Result= ExecuteLine(Text1.Text)
End If
End Sub
在文本框中输入Msgbox "Hello"，看看有什么结果。
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
回 楼主(13513459073) 的帖子
一个非常低级的方法是先把这些控件设置为隐藏，然后SetTimer()，OnTimer()里读取文本框里的内容作出判断，需要使用哪个控件时把它对应的属性变量改成不隐藏的，不管如何结束的时候再次SetTimer()。
注意中间稍微Sleep()，50ms左右吧以防悲剧。
某些情况下这种方法可能会导致界面错乱。
注意中间稍微Sleep()，50ms左右吧以防悲剧。
某些情况下这种方法可能会导致界面错乱。
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
添加“Microsoft Script Control”这个控件，并将你希望脚本能访问的对象添加到这个控件即可。
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
饿.....都有点难，有简单点的吗？顺便问一下，有没有人知道vb是怎么把代码转换成EXE程序的？
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。