有个api可以实现，但是貌似只能在IDE环境
引用
评论
怎么用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"，看看有什么结果。
引用
评论
回 楼主(13513459073) 的帖子
一个非常低级的方法是先把这些控件设置为隐藏，然后SetTimer()，OnTimer()里读取文本框里的内容作出判断，需要使用哪个控件时把它对应的属性变量改成不隐藏的，不管如何结束的时候再次SetTimer()。
注意中间稍微Sleep()，50ms左右吧以防悲剧。
某些情况下这种方法可能会导致界面错乱。
注意中间稍微Sleep()，50ms左右吧以防悲剧。
某些情况下这种方法可能会导致界面错乱。
引用
评论
