Question

我正在制作一个程序时出现问题，每当我尝试运行运行此代码的表单时：

Private Sub customDuffer_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles customDuffer.DoWork
    While (Me.Visible = True)
        For Each tone In trackWriter.noteArray
            If switch = True Then
                Beep.tone(1000, note, 240)
            End If
        Next tone
    End While

Beep.tone（1000，note，240）＆lt;＆lt;这是抛出异常的行。我在我的主窗体上有完全相同的代码，并且它在其他任何地方都运行得很好，只有在它应该运行的形式才能获得异常。

注意数组是公共的，我可以从其他地方访问它，并且自定义类蜂鸣声工作正常。任何帮助将不胜感激。

Answer 1

Beep或note变量必须未初始化。添加一些调试代码：

If switch = True Then
  If Beep is Nothing then MsgBox ("Beep is nothing!")
  If note is Nothing then MsgBox ("note is nothing!")
  Beep.tone(1000, note, 240)
End If

运行它，查看弹出的消息。然后找出应该初始化的地方。

如果两个消息都没有弹出，则Beep.tone（）方法中存在未初始化的变量错误。

你调用的对象是空的。不知道为什么我得到这个错误

1 个答案: