0

ねえ、私はこのコードでこのエラーを受け取ります:


Private Sub Request_Stuff_button_Click()
    Call Main.createObjects
    Call My_Control.requestStuff
End Sub

「Call My_Control.requestStuff」行で。「メイン」モジュールは次のようになります。


Public My_Control As ControlObject

Public Sub createObjects()
    If My_Control Is Nothing Then
        Set My_Control = New ControlObject
    End If
End Sub

最も奇妙なことは、私が追加するときです

Dim x As Integer
x = My_Control.dummyInt

エラーが発生する行の直前に、 x はエラーが発生する直前に正しい値を取得します。これは、 My_Control が間違いなくオブジェクトであり、間違いなく何もないことを意味します。

このエラーは私を殺しています、事前に感謝します。

4

1 に答える 1

0

ありがとうございますが、それは問題ではありませんでした。問題は実際には requestStuff メソッドにありましたが、デバッガーはメソッドではなくその行でフリーズしていました。愚かなことに、それを確認するのを忘れていました。

于 2010-06-05T19:17:33.157 に答える