我正在尝试编写一个Excel模块,它将代码动态地插入到在设计时创建的窗体中的新对象中。McAfee从VBA模块中删除代码
我正在使用此代码,其中“代码”包含一个字符串与应该进入DstrFiles对象的实际代码。
Dim DstrFiles As Object
Set DstrFiles = ThisWorkbook.VBProject.VBComponents("DistributeFiles")
With DstrFiles.CodeModule
.InsertLines .CountOfLines + 1, Code
End With
我的问题是,当我使用.InsertLines,迈克菲从我的模块去掉整个代码,是有办法解决此问题?
首先,我创建一个标签:
Form1.Controls.Add("Forms.Label.1", "Label1", True)
然后我用.InsertLines创建一些代码去与标签。
例如,我想让标签的背景颜色在有人点击时变成红色。用“.InsertLines”很容易完成。
解决这个问题的一种难看的方法是,预先在后台创建一堆代码,然后限制可以在运行中创建的标签数量。 - 我希望它不会那样。
我一直在兜兜转转,这似乎是McAfee的一个已知问题。
有谁知道创建动态用户表单的方法,该表单可以将代码添加到添加了Contrls.Add方法的新标签或按钮中?
这里有一个讨论可能有助于:http://www.vbforums.com/showthread.php?t=358444 – Fionnuala 2008-12-26 23:23:55