Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_BOTTOM = 1
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
<DllImport("CoreDll", EntryPoint:="SetWindowPos")> _
Private Shared Function SetWindowPos(ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
End Function
<System.Runtime.InteropServices.DllImport("CoreDll")> _
Private Shared Function FindWindow(ByVal className As String, ByVal WindowsName As String) As IntPtr
End Function
'minimiert ein Fenster
'Fenster wird noch in Taskbar angezeigt (?)
Private Shared Function Minimize(ByVal strWindowText As String) As Integer
Dim hwnd As Integer
hwnd = FindWindow(Nothing, strWindowText).ToInt32
If hwnd = 0 Then 'fenster wurde nicht gefunden
Return 0
Else
Return SetWindowPos(hwnd, HWND_BOTTOM, 0, 0, 240, 320, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)
End If
End Function
''' <summary>
''' Zeigt das Fenster mit der übergebenen Caption an.
''' </summary>
''' <param name="strCaption"></param>
''' <remarks></remarks>
Public Shared Sub ShowWindowOnTop(ByVal strCaption As String)
Dim hwnd As IntPtr
hwnd = FindWindow(Nothing, strCaption)
Dim res As Integer = SetWindowPos(hwnd.ToInt32, HWND_NOTOPMOST, 0, 0, 240, 320, SWP_SHOWWINDOW)
End Sub