0

mainForm といくつかの mdiForms がある複数のフォーム アプリケーションで問題に直面しています。これらの子フォームの 1 つ (frmDashboardManager) は、mainForm の外で新しい所有フォーム (frmDahboard) を開いています。ここに私が持っているものがあります:

  Dim fDash As New frmDashboard
  fDash = isDashboardOpen(tempDash) 
  If fDash IsNot Nothing Then
    fDash.Close() 'HERE I GET THE ERROR
  End If


   Private Function isDashboardOpen(ByVal dash As clsDashboard) As frmDashboard

    isDashboardOpen = Nothing
    Try
        'search if Dashboard is already open
        For Each fr As frmDashboard In Me.OwnedForms
            If fr.My_Dashboard.Id = dash.Id Then
                isDashboardOpen = fr
                Exit For
            End If
        Next

    Catch ex As Exception
        gError.GetAppEx(ex, FORM_NAME & ".isDashboardOpen")
    Finally

    End Try

End Function

私が得るエラーは次のとおりです。オブジェクト参照がオブジェクトのインスタンスに設定されていません。

クレイジーなことは、私がチェックしたところ、isDashboardOpen が実際に frmDashboard を返すことです (これが fDash.Close() が実行される理由でもあります)。何か案は？

ありがとう

4

1 に答える 1

0

エラーが見つかりました。

frmDashboard にあるユーザー コントロールを 2 回破棄しました。私はそれを修正し、すべてが正常に動作します。

お時間をいただきありがとうございます。

于 2012-10-03T12:12:17.543 に答える