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