每次我尝试运行运行此代码的表单时,我正在制作的程序遇到问题:
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)<< 这是引发异常的行。我的主表单上有完全相同的代码,它在其他任何地方都可以完美运行,只有在应该运行的表单中我才会遇到异常。
注意数组是公共的,我可以从其他任何地方正常访问它,并且自定义类哔声工作正常。任何帮助将不胜感激。