乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 226|回复: 11

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

[复制链接]

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-8 18:42:29 | 显示全部楼层 |阅读模式

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2007-3-8 19:00:09 | 显示全部楼层
如果Dim strFileName As String被定义为Public strFileName As String,那么您可以在整个项目中使用它。或者您可以使用调用语句并将必要的参数传递给它?
一旦您拥有它,您打算如何处理它?
回复

使用道具 举报

2

主题

24

帖子

4

银币

初来乍到

Rank: 1

铜币
32
发表于 2007-3-8 19:13:36 | 显示全部楼层
“我”这个关键词能帮上忙吗?
(是的,greg,一切都是为了我...以防你想知道)
回复

使用道具 举报

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-8 19:27:35 | 显示全部楼层
“它”是我想得到的。如何存储sub的名称,而不在每个sub中执行以下操作:
  1. strFileName = sldPLYWOOD.FileName
  2. ...
  3. strFileName = sldPLYWOOD2.FileName

我愿意这样做:
  1. strFileName = (whatever the sub's name is).FileName

非合作者,我尝试了“我”,但我无法让它工作。可能我缺乏理解是一个障碍
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-3-8 21:18:17 | 显示全部楼层
这里没有足够的信息来帮助你。
回复

使用道具 举报

61

主题

792

帖子

35

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1015
发表于 2007-3-8 23:28:25 | 显示全部楼层
VBA是一种解释性语言。我在AutoLisp代码中使用了“相似”的概念。所以我说:请自便。
试试这个剪刀。(看起来很粗糙,这不是你要问的问题,但我认为它会起作用。)
http://www . VBA-programmer . com/Snippets/Code _ Excel/Adding _ VBA _ Code _ via _ program . html
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2007-3-9 07:18:11 | 显示全部楼层
我能想到的唯一方法是制作一个例程,如果需要,可以自动处理并将代码添加到您的项目中。没有对象可以提供您手头的例程名称,API进程calss将获得解释器进程而不是实际代码。
要使这样一个程序成为一个独立的项目,并且其功能有点像M-Z工具。
回复

使用道具 举报

61

主题

792

帖子

35

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1015
发表于 2007-3-9 13:12:46 | 显示全部楼层

如果我们在这里谈论理论,那根本不是问题(我一直在autolisp中这样做。)。
如果您查看我提供的链接,该VBA代码的作者也在做同样的事情。
回复

使用道具 举报

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-13 18:29:54 | 显示全部楼层
可能答案已经给出了。我对vb(a)非常有限的了解告诉我,我没有问对问题。
附件是我正在尝试做的一个例子...有点
当我单击image1时,我希望将名称保存为字符串
,然后添加到列表框1中。
现在它添加了文本:mulitpage1
,这使我想到一个问题,图像可以是活动控件吗?我看起来走的方向对吗?
我想去的地方是:
单击任何图像,它将运行相同的单独子。这样,我就不必在每个图像点击事件中复制和粘贴一行以上的代码(单独sub的名称)。
我希望这能提供更多信息。
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-3-14 01:10:53 | 显示全部楼层
因为你想要图像的名字,你也可以给你想要放在列表框中的控件命名。或者
Private Sub image 1 _ Click()
FillThatListbox(" This胶合板")
End Sub
Private Sub FillThatListbox(strFileName As String)
listbox 1。有时候,你最好把东西打出来,而不是担心它,现在就是这样
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 14:23 , Processed in 2.493244 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表