关于控制的愚蠢问题。名称

Bryco · 发表于 2006-6-29 19:09:17

嗨，时间到了
我有个小问题
我需要动态地引用一些控件，让我们看看这个例子
我有3个禁用的组合框（cb\u 1、cb\u 2和cb\u 3），我需要重新启用
当i=1到3时，将i作为整数&nbsp&nbsp；[cb_quo；i]。enabled=true下一步我知道在Flash中，你可以使用；[字符串]&引用；it#039；在VB和VBA中也可以做些什么
实际上，对于I=1到3，我使用：dim s作为字符串&nbsp；s=“”；cb:&amp；i&nbsp；对于me.控件中的每个ctr&nbsp&nbsp&nbsp；如果中心。名称=s，然后&nbsp&nbsp&nbsp&nbsp&nbsp；ctr。启用=真&nbsp&nbsp&nbsp；转到cont&nbsp&nbsp&nbsp；如果结束&nbsp；下一步：让我知道！！！！

Jeff_M · 发表于 2006-6-29 19:30:07

听起来不错，你有什么问题吗？

Kerry · 发表于 2006-6-29 19:35:40

嗨，Bryco，它工作得很好，但我需要使用12行代码，而不是4行
在许多其他情况下（我报告的例子只是一个简单的问题），我需要这个；函数“；大规模地！

Bryco · 发表于 2006-6-29 20:07:53

嗯，这里是#039；这是一个较短的版本

copy

Dim i As Integer
Dim ctl As ComboBox
For i = 1 To 3
    Set ctl = Me.Controls.Item("cb_" & i)
    ctl.Enabled = True
Next

Jeff_M · 发表于 2006-6-29 22:48:38

不够好，杰夫……那&#039；s 6行&nbsp&nbsp；

Jeff_M · 发表于 2006-6-29 23:03:19

4作为布尔值的函数控制（sName作为字符串）&nbsp；Me.Controls.Item（sName）。启用=真&nbsp；ControlOn=True结束函数

Jeff_M · 发表于 2006-6-30 03:25:29

杰夫，我已经测试了你的解决方案，但它没有&#039；t工作正常，可能它在.net中工作，而不是在VBA中
I&#039；我稍后再测试。

Bryco · 发表于 2006-6-30 03:26:59

你好，布莱科，太好了，很好！TNX很多！

Jeff_M · 发表于 2006-6-30 03:29:56

&nbsp&nbsp；

Jeff_M · 发表于 2006-6-30 10:38:06

蜂鸣器错误
它是一个函数，你需要一条线来调用它，所以它&#039；s 5不是4

关于控制的愚蠢问题。名称

发表回复

精选推荐