Question

真正基本的问题。

我有一个表单，想要创建一个对象（我认为）并为其赋值。

Dim Devs as Object

    For i = 0 To 3
        If (Devices And 2 ^ i) Then
            Devs(i) = True ' breaks here
        Else
            Devs(i) = False 'or here (depends on the if obviously)
        End If
    Next i

有了这个，我得到一个错误：对象变量或With block变量未设置

我以为我可以制作一个数组或对象并指定一个值，但我想我错了。

这样做的正确方法是什么？

Answer 1

看起来你想要一个布尔数组

Dim Devs(0 To 3) As Boolean

您当前的代码有一个不指向任何对象的Object变量。

Answer 2

您的Devs变量似乎是布尔类型的数组。正确的吗？

Dim Devs(0 To 3) As Boolean()

或

Dim Devs() As Boolean()

此外，2 ^ i的目的是什么？您是否打算验证其值以输入第一个代码括号。

Dim myCondition As Integer
myCondition = 2

If (Devices = True And 2 ^ i = myCondition)
  ...

制作和分配为数组/对象（非常基本）

2 个答案: