将私有子名称存储为字符串
有没有办法保存私人潜水艇的名字'global variables
Dim strFileName As String
Private Sub sldPLYWOOD_LButtonDown()i have a lot of privite sub's like this, ex: sldPLYWOOD2,sldPLYWOOD3
strFileName = sldPLYWOOD.FileName
rather than say sldPLYWOOD i would like to same something
like "this sub". is there a way to do that?
Change_sldPreview
End Sub
Public Sub Change_sldPreview()
sldPreview.FileName = strFilename
that way i could do something like:
strFileName = this sub.FileName
End Sub
如果Dim strFileName As String被定义为Public strFileName As String，那么您可以在整个项目中使用它。或者您可以使用call语句并将必要的参数传递给它
一旦你有了它，你想用它做什么
“是否可以”；“我”；有什么帮助吗
（是的，格雷格，这一切都是关于我的……如果你想知道的话） “the”；it“；这就是我想要得到的。如何存储sub#039；s名称，但不在每个子项中执行以下操作：
strFileName = sldPLYWOOD.FileName
...
strFileName = sldPLYWOOD2.FileName 我想这样做：
strFileName = (whatever the sub's name is).FileName 我试过了；“我”；但我可以让它工作。可能是因为我不理解 这里没有足够的信息来帮助您。 VBA是一种解释语言。我用一个``相似的#039' AutoLisp代码的概念。所以我说：击倒你自己
试试这个剪子。（看起来很粗鲁，这不完全是你要问的，但我认为它会起作用。）http://www.vba-programmer.com/Snippets/Code_Excel/Adding_VBA_Code_via_Program.html 我能想到的做你想做的事情的唯一方法是制定一个处理和；添加#039；如果需要，可以自动将代码添加到项目中。有#039；没有任何对象可以给出您手头的例程名称，API进程计算器将获得解释器进程而不是实际代码
制作这样一个程序将是它的一个项目'；它的功能有点像M-Z工具。
如果我们在这里谈论理论，那应该一点都不成问题（我一直在用autolisp）
( (lambda ( func )
;; copy and paste this to the command line, you should
;; then have an anon function: ``((LAMBDA nil (1+ 2)))''
(list (cons 'lambda (cons nil (list func)))))
'(1+ 2)
) 如果你看看我提供的链接，VBA代码的作者也在做同样的事情。 可能已经给出了答案。我对vb（a）的有限理解告诉我，我问的问题不对
附件是我试图做的一个例子……有点像当我点击图片1时，我想把名字保存为一个字符串，然后添加到列表框1中。现在它添加了一个文本：mulitpage1，这让我想到了一个问题，一个图像可以是activecontrol吗？我似乎朝着正确的方向前进了吗
我想去的地方是：点击任何一个图像，它将运行相同的单独子。这样我就不必在每个图像点击事件中复制和传递超过一行代码（单独子的名称）
我希望这能提供更多信息。 由于您需要图像的名称，您也可以将控件命名为希望放置在列表框中的内容。或私有子图像1_Click（） ；填充列表框（“This胶合板”）
结束子文件（strFileName作为字符串）私有子文件填充列表框 ；ListBox1.AddItem strFileName有时你最好键入内容而不是担心它，那'；s现在
页:
[1]
2