如何通过 vb.net 让其他应用程序（计算器）在 winforms 中脱颖而出？

Question

这可能是一个非常常见的问题，但我找不到正确的答案。
如果发现任何内容，请使用原始链接标记此副本。

比如说，我有一个带按钮的 winform。
我想打开另一个应用程序，例如 Windows 计算器。
等等按钮点击，我添加了这个。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim MyApp As System.Diagnostics.Process = New System.Diagnostics.Process
            MyApp.StartInfo.FileName = "C:\Windows\system32\calc.exe"
            MyApp.Start()


            Dim p() As Process = Process.GetProcessesByName("Calculator")
            If p.Count > 0 Then
                 /*Something like bring that calc to front*/
            Else
                MyApp.Start()
            End If
        End If
End Sub

现在，如果 calc 在 winform 后面，我想要将 calc 放在前面。

如果没有打开计算，那么它将打开新的，否则它将把前一个放在前面。

Answer 1

计算器专用：

Public Declare Function BringWindowToTop Lib "user32" (ByVal HWnd As IntPtr) As Boolean

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim calc As Process = Process.GetProcesses.FirstOrDefault(Function(p) p.MainWindowTitle = "Calculator")
    If Not IsNothing(calc) Then
        BringWindowToTop(calc.MainWindowHandle)
    Else
        Process.Start("C:\Windows\system32\calc.exe")
    End If
End Sub