DirectCast有什么窗口，是不是只有主窗口？

Question

我一直试图在其他窗口(如VB.NET中)使用DirectCast编辑变量。这在主窗口中似乎运行得很好，正如我使用的

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