FormCollection в VB.NET

Question

Я хочу определить, открыта ли форма окна, и если это так, то я хотел бы перенести ее вперед, а не открывать снова.

Я знаю, что для этого мне нужна коллекция форм, но я хочу знать, есть ли встроенная коллекция форм, которая содержит все формы в VB.NET, или мне нужно реализовать свою собственную.

Спасибо.

Answer 1

Вы можете попробовать:

'Pass the form object (you could also use string as the 
'parameter and replace the if condition to: "If form.Name.Equals(targetForm) Then")
Public Sub BringToFront(ByVal targetForm As Form)
    Dim form As Form
    For Each form In Application.OpenForms()
        If form Is targetForm Then
            form.BringToFront()
            Exit For
        End If
    Next
End Sub

Назовите этот сабвуфер, если вам нужно вывести определенную форму вперед (только если она уже загружена), например:

BringToFront(targetformobject)

Answer 2

У меня всегда P / Invoke код для вызова в user32 windows dll. Нечто подобное должно делать то, что вы хотите.

    <DllImport("user32.dll")> _
    Public Shared SetFocus(ByVal hwnd As IntPtr)

Private Sub SetFocusToExistingWindow()

    Dim procs As Process() = Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName)

    If procs.Length > 0 Then
      Dim hwnd As IntPtr = procs(0).MainWindowHandle
      SetFocus(hwnd)
    End If

End Sub

Answer 3

Используйте свойство Application.OpenForms.

Использование LINQ:

Dim existingForm = Application.OpenForms.OfType(Of YourFormType)().FirstOrDefault()