将私有子名称存储为字符串

Oak3s · 发表于 2007-3-8 18:42:29

有没有办法保存私人潜水艇的名字

'global variables
Dim strFileName As String
Private Sub sldPLYWOOD_LButtonDown()  [color=red]i have a lot of privite sub's like this, ex: sldPLYWOOD2,sldPLYWOOD3[/color]
strFileName = sldPLYWOOD.FileName
[color=red]rather than say sldPLYWOOD i would like to same something
like "[/color][color=purple]this sub[/color]"[color=red]. is there a way to do that?[/color]
Change_sldPreview
End Sub
Public Sub Change_sldPreview()
sldPreview.FileName = strFilename
[color=red]
that way i could do something like:
strFileName = [/color][color=purple]this sub[/color][color=red].FileName[/color]
End Sub

uncoolperson · 发表于 2007-3-8 19:00:09

如果Dim strFileName As String被定义为Public strFileName As String，那么您可以在整个项目中使用它。或者您可以使用call语句并将必要的参数传递给它
一旦你有了它，你想用它做什么

Oak3s · 发表于 2007-3-8 19:13:36

“是否可以”；“我”；有什么帮助吗
（是的，格雷格，这一切都是关于我的……如果你想知道的话）

Bryco · 发表于 2007-3-8 19:27:35

“the”；it“；这就是我想要得到的。如何存储sub#039；s名称，但不在每个子项中执行以下操作：

copy

strFileName = sldPLYWOOD.FileName
...
strFileName = sldPLYWOOD2.FileName

我想这样做：

copy

strFileName = (whatever the sub's name is).FileName

我试过了；“我”；但我可以让它工作。可能是因为我不理解

JohnK · 发表于 2007-3-8 21:18:17

这里没有足够的信息来帮助您。

JohnK · 发表于 2007-3-8 23:28:25

VBA是一种解释语言。我用一个``相似的#039' AutoLisp代码的概念。所以我说：击倒你自己
试试这个剪子。（看起来很粗鲁，这不完全是你要问的，但我认为它会起作用。）http://www.vba-programmer.com/Snippets/Code_Excel/Adding_VBA_Code_via_Program.html

Oak3s · 发表于 2007-3-9 07:18:11

我能想到的做你想做的事情的唯一方法是制定一个处理和；添加#039；如果需要，可以自动将代码添加到项目中。有#039；没有任何对象可以给出您手头的例程名称，API进程计算器将获得解释器进程而不是实际代码
制作这样一个程序将是它的一个项目&#039；它的功能有点像M-Z工具。

Bryco · 发表于 2007-3-9 13:12:46

如果我们在这里谈论理论，那应该一点都不成问题（我一直在用autolisp）

copy

( (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代码的作者也在做同样的事情。

Oak3s · 发表于 2007-3-13 18:29:54

可能已经给出了答案。我对vb（a）的有限理解告诉我，我问的问题不对
附件是我试图做的一个例子……有点像当我点击图片1时，我想把名字保存为一个字符串，然后添加到列表框1中。现在它添加了一个文本：mulitpage1，这让我想到了一个问题，一个图像可以是activecontrol吗？我似乎朝着正确的方向前进了吗
我想去的地方是：点击任何一个图像，它将运行相同的单独子。这样我就不必在每个图像点击事件中复制和传递超过一行代码（单独子的名称）
我希望这能提供更多信息。

Bryco · 发表于 2007-3-14 01:10:53

由于您需要图像的名称，您也可以将控件命名为希望放置在列表框中的内容。或私有子图像1_Click（）&nbsp；填充列表框（“This胶合板”）
结束子文件（strFileName作为字符串）私有子文件填充列表框&nbsp；ListBox1.AddItem strFileName有时你最好键入内容而不是担心它，那&#039；s现在

将私有子名称存储为字符串

发表回复

精选推荐