在每次迭代时引用不同的文本框

时间:2013-11-09 04:18:42

标签: vba

我正在制作一个Visual Basic程序。我有一个页面,我希望能够从1组两个文本框和一个标签一直扩展到30个。我真的想保持显示尽可能简单,所以我想做按钮添加批处理和删除批处理,让我调整从1到30显示的框。

我知道我可以使用case语句或if语句,甚至可以创建一个为我执行其中一个的函数,所以我不会混淆主代码,但这看起来很笨拙。有关我可以一次参考一套而另一套同时参考的方式的任何建议吗?

1 个答案:

答案 0 :(得分:0)

我最终创建了一个类,并将引用ByRef传递给了类。创建Show *(和Hide()方法,显示和隐藏传递给类的所有对象(只更改Visible属性)

为每个批处理集创建一个新类的对象。在其中创建了包含这些对象的数组,现在我可以调用BatchGroups(3).Show()并遍历我的批次。

我的FormLoad事件中仍有一些设置,但BatchGroup(txtBat1,txtBatQty1,lblBat1)并使用这些对象填充数组允许我遍历我的批次,无论我是添加,删除,一次添加5,删除除了一个......只需要你的选择。

可能很容易构建一个包含groupboxes的数组,可以立即引用整个组,但在这种情况下,groupbox看起来有点俗气,我更喜欢创建自己的面向对象的组。