乐筑天下

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

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

[复制链接]

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-8 18:42:29 | 显示全部楼层 |阅读模式
有没有办法保存私人潜水艇的名字
  1. 'global variables
  2. Dim strFileName As String
  3. Private Sub sldPLYWOOD_LButtonDown()  [color=red]i have a lot of privite sub's like this, ex: sldPLYWOOD2,sldPLYWOOD3[/color]
  4. strFileName = sldPLYWOOD.FileName
  5. [color=red]rather than say sldPLYWOOD i would like to same something
  6. like "[/color][color=purple]this sub[/color]"[color=red]. is there a way to do that?[/color]
  7. Change_sldPreview
  8. End Sub
  9. Public Sub Change_sldPreview()
  10. sldPreview.FileName = strFilename
  11. [color=red]
  12. that way i could do something like:
  13. strFileName = [/color][color=purple]this sub[/color][color=red].FileName[/color]
  14. End Sub


回复

使用道具 举报

2

主题

24

帖子

4

银币

初来乍到

Rank: 1

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

使用道具 举报

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-8 19:13:36 | 显示全部楼层
“是否可以”;“我”;有什么帮助吗
(是的,格雷格,这一切都是关于我的……如果你想知道的话)
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-3-8 19:27:35 | 显示全部楼层
“the”;it“;这就是我想要得到的。如何存储sub#039;s名称,但不在每个子项中执行以下操作:
  1. strFileName = sldPLYWOOD.FileName
  2. ...
  3. strFileName = sldPLYWOOD2.FileName
我想这样做:
  1. strFileName = (whatever the sub's name is).FileName
我试过了;“我”;但我可以让它工作。可能是因为我不理解
回复

使用道具 举报

61

主题

792

帖子

35

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

61

主题

792

帖子

35

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1015
发表于 2007-3-8 23:28:25 | 显示全部楼层
VBA是一种解释语言。我用一个``相似的#039' AutoLisp代码的概念。所以我说:击倒你自己
试试这个剪子。(看起来很粗鲁,这不完全是你要问的,但我认为它会起作用。)http://www.vba-programmer.com/Snippets/Code_Excel/Adding_VBA_Code_via_Program.html
回复

使用道具 举报

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-9 07:18:11 | 显示全部楼层
我能想到的做你想做的事情的唯一方法是制定一个处理和;添加#039;如果需要,可以自动将代码添加到项目中。有#039;没有任何对象可以给出您手头的例程名称,API进程计算器将获得解释器进程而不是实际代码
制作这样一个程序将是它的一个项目'它的功能有点像M-Z工具。
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

如果我们在这里谈论理论,那应该一点都不成问题(我一直在用autolisp)
  1. ( (lambda ( func )
  2.     ;; copy and paste this to the command line, you should
  3.     ;; then have an anon function: ``((LAMBDA nil (1+ 2)))''
  4.     (list (cons 'lambda (cons nil (list func)))))
  5. '(1+ 2)
  6. )
如果你看看我提供的链接,VBA代码的作者也在做同样的事情。
回复

使用道具 举报

7

主题

26

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2007-3-13 18:29:54 | 显示全部楼层
可能已经给出了答案。我对vb(a)的有限理解告诉我,我问的问题不对
附件是我试图做的一个例子……有点像当我点击图片1时,我想把名字保存为一个字符串,然后添加到列表框1中。现在它添加了一个文本:mulitpage1,这让我想到了一个问题,一个图像可以是activecontrol吗?我似乎朝着正确的方向前进了吗
我想去的地方是:点击任何一个图像,它将运行相同的单独子。这样我就不必在每个图像点击事件中复制和传递超过一行代码(单独子的名称)
我希望这能提供更多信息。
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-3-14 01:10:53 | 显示全部楼层
由于您需要图像的名称,您也可以将控件命名为希望放置在列表框中的内容。或私有子图像1_Click() 填充列表框(“This胶合板”)
结束子文件(strFileName作为字符串)私有子文件填充列表框 ListBox1.AddItem strFileName有时你最好键入内容而不是担心它,那's现在
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 14:05 , Processed in 1.724175 second(s), 73 queries .

© 2020-2025 乐筑天下

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