循环以在用户窗体中创建选项按钮不起作用

Question

我需要在用户窗体中创建多个选项按钮（每个按钮对应一个数组元素）。

我是不是漏掉了什么？导致它 returns 一个错误..

DefaultTop = 60

For X = 0 To UBound(ArrPlants)

    Set Jonas(x) = SAPPlants.Controls.Add("Forms.optionbutton.1", Y, True)
      'Error on the above line ^^^

        With Jonas(x)
            .Top = DefaultTop + 20
            .Left = 12
            .Caption = ArrPlants(x)
        End With

 Next X

错误：

Error Expected Sub or Procedure

Answer 1

您需要将 X 传递给 OptionButton 的名称，而不是使用 Jonas(X)。试试下面的方法，看看它对你有何作用：

DefaultTop = 60

Dim Jonas as OptionButton

For X = 0 To UBound(ArrPlants)

    Set Jonas = SAPPlants.Controls.Add("Forms.optionbutton." & X + 1, Y, True)

        With Jonas
            .Top = DefaultTop + 20
            .Left = 12
            .Caption = ArrPlants(X)
        End With

 Next X

进一步说明found here：

循环以在用户窗体中创建选项按钮不起作用

Loop to Create Option buttons in a Userform not working

vba

userform

radio-button