DirectCast任何窗口，不僅是主窗口？

Question

我一直在嘗試使用DirectCast在其他窗口（如VB.NET）中編輯變量。 當我使用時，這似乎在主窗口上運行得很好

Private Main As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)

但是，除了主窗口外，我無法找到一種在其他窗口上使用此方法的方法。 現在，我被困在這個

Dim WindowOne As New Window1
WindowOne.Show()

這行得通，但我不想每次希望打開窗口時都創建一個新實例。 我嘗試使用

Private WindowOne As Window1 = DirectCast(Application.Current.Windows.OfType(Of Window1).First(), Window1)

但是它總是給我一個錯誤，說“序列不包含任何元素”。

還有其他方法嗎？ 我究竟做錯了什么？

Answer 1

正確的語法如下。

Private WindowOne As Window1 = Application.Current.Windows.OfType(Of Window1)().FirstOrDefault()
If Not WindowOne Is Nothing Then
  'object is available here
End If