Question

VB.net 显示 Shell 时 隐藏的程序

VB.net 显示 Shell 时 隐藏的程序例如 Shell("c:\abc.exe", AppWinStyle.Hide) 之后 如何显示 c:\abc.exe 的界面？

Answer 1

AppWinStyle.Hide 隐藏窗口并为隐藏的窗口提供焦点。
AppWinStyle.NormalFocus 为窗口提供焦点，并以最近的大小和位置显示窗口。
AppWinStyle.MinimizedFocus 为窗口提供焦点，并以图标的形式显示窗口。
AppWinStyle.MaximizedFocus 为窗口提供焦点，并以全屏方式显示窗口。
AppWinStyle.NormalNoFocus 将窗口设置为最近的大小和位置。当前活动窗口保持焦点。
AppWinStyle.MinimizedNoFocus 以图标的形式显示窗口。当前活动窗口保持焦点。 ***********************你上面用的是AppWinStyle.Hide ,当然看不见窗口,应该使用AppWinStyle.NormalFocus就可以切换到新打开的程序了

Answer 2

Public Class Form1
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal show As Integer) As Integer
Dim h As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = Shell("notepad.exe", AppWinStyle.NormalFocus) '创建的时候要先NormalFocus
Dim p As Process = Process.GetProcessById(i)
h = p.MainWindowHandle
End Sub
'点这个隐藏
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ShowWindow(h, vbHide)
End Sub
' 点这个显示
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ShowWindow(h, vbNormalFocus)
End Sub
End Class