0

本当に基本的な質問です。

私は単一のフォームを持っており、オブジェクトを作成し (私は思う)、それに値を割り当てたいと考えています。

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

これでエラーが発生します：オブジェクト変数またはブロック変数が設定されていません

配列またはオブジェクトを作成して値を割り当てることができると思っていましたが、間違っていると思います。

これを行う適切な方法は何ですか？

4

2 に答える 2

3

ブール値の配列が必要なようです

Dim Devs(0 To 3) As Boolean

現在のコードには、オブジェクトを指していない Object 変数があります。

于 2013-10-02T21:04:12.133 に答える
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)
  ...
于 2013-10-02T20:06:29.013 に答える