1

我有许多动态创建的按钮(在运行时生成的按钮),还有一些动态创建的面板。我想做一些类似于下面的代码的事情,尽管我知道这段代码不起作用。

For i = 1 to NumberOfButtons
    button(i).top = panel(i).top
next

按钮命名为 button1、button2 等。面板也命名为 panel1、panel2 等。这些都是用 VB Express 2008 编写的。

4

3 回答 3

0
For i As Integer = 1 To theTopNumber
  Me.Controls("button" & i.ToString).Top = Me.Controls("panel" & i.ToString).Top
Next
于 2013-03-21T19:33:40.920 回答
0

生成按钮和面板时,需要将它们存储到数组中。然后,您可以像在代码示例中那样通过索引访问它。另一种选择是通过Me.Controls("button1")类似的方法来完成,但我会考虑这种糟糕的编码。

于 2013-03-21T19:34:05.250 回答
0

这不行吗?

For Each btn As Button In Me.Controls
    For Each pnl In Me.Controls
        btn.Top = pnl.Top
     Next
Next

请(如果您满意)投票或标记为答案,因为我的神秘无缘无故被禁止。重新启用它可能会有所帮助:/

;)

于 2013-03-26T02:41:22.177 回答