VBA 用户窗体中的“（foreach”等效项？

ScottBolton · 发表于 2013-4-3 17:49:10

x 变量必须是可以保存 Control 对象的类型。尝试将其键入为“控件”而不是“选项按钮”。

ScottBolton · 发表于 2013-4-3 23:49:33

这一点奏效了。现在我得到了错误，
如果x.GroupName="按钮"，那么
-"对象不支持此属性或方法"。
S

Matt__W · 发表于 2013-4-4 03:02:39

好的，我试了一下: Private Sub size a2 _ Click()。
将x维度作为控件。
对于我身上的每一个x，控件。
如果x.Name = "Length06 "那么。
如果x.GroupName = "Buttons "那么。
x.Enabled = False。
结束If。
结束If。
下一个x。
继续，SetFocus。
在第4行打勾，确认我有正确的按钮。当然，我需要说如果x.Name = "Length01，Length02 ... "这在某种程度上打败了海豚。但是，这表明当代码遍历所有控件时，它会发现其中一个控件不支持GroupName属性。那么，如何(有效地)只选择OptionButtons呢？有“类型”属性吗？甚至是以“长度...”开头的控件？S。

ScottBolton · 发表于 2013-4-4 03:11:03

好吧，我会做一些改变。在你的Proceed_Click中，我会将IF-ElseIf s更改为Select Case

copy

Select Case True
Case SizeA0.Value
Print #FileNumber, "0"
Case SizeA1.Value
Print #FileNumber, "1"
Case SizeA2.Value
Print #FileNumber, "2"
Case SizeA3.Value
Print #FileNumber, "3"
Case SizeA4.Value
Print #FileNumber, "4"
End Select

这比嵌套的IF语句更容易理解。选择将评估每个“案例”，直到找到一个真实的案例。
我会对长度做同样的事情 ElseIfs
我所做的另一个更改是将所有“大小”按钮组合在一个 GroupName 中，并将 Lengths 分组到另一个名称下。（见图）。这将允许你必须工作的SizeA2_Click代码（我将其更改为新的组名称）
由于这被简化，我无法完全测试，但它应该让你继续前进

VBA 用户窗体中的“（foreach”等效项？

发表回复

精选推荐