Solved

How to maximize a window

Posted on 2009-04-13
1
877 Views
Last Modified: 2012-08-13
I have an application that runs in the background. I need to call it, maximize it. Then capture it and finally minimize it.

I have tried several methods.......
like
SetWindowPos(mHandel, 0, 0, 0, 0, 0, SWP_NOSIZE)
and
BringWindowToTop(mHandel)
and
For Each p As Process In Process.GetProcessesByName("FXTSpp")
            ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_MAXIMIZE)
Next p


BUT non of them is reliable, that is if I click on any other window and start interacting with it
the desired window will not get maximized.

Help is greatly appreciated, thank you for your time.
Private Sub Details_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        mHandel = FindWindow(vbNullString, "Marketscope 2.0")
        Dim dt1 As DateTime
        dt1 = DateTime.UtcNow
        mCurrentDateTime = CDate(DateTime.UtcNow.ToString("MM/dd/yyyy HH:mm:ss"))
        Timer3.Enabled = True
        'Call UpdateDataBaseWithPicture()
    End Sub  
 
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'MaximizeFXCMGraph()
        SetWindowPos(mHandel, 0, 0, 0, 0, 0, SWP_NOSIZE)
        'MoveWindow(mHandel, 0, 0, 1200, 768, False)
        'BringWindowToTop(mHandel)
        Application.DoEvents()
        Application.DoEvents()
        'Application.DoEvents()
        'Dim MyRect As Rectangle = New Rectangle(0, Screen.PrimaryScreen.Bounds.Top - 0, 1000, 700)
        'Dim MyPic As Bitmap = BlitterChip.ScreenGrab(MyRect)
        'SendKeys.Send("%{PRTSC}")          '<alt + printscreen>
        'PictureBox2.Image = MyPic 'Clipboard.GetImage
        'Clipboard.SetDataObject(0)      'save memory by removing the image from the clipboard
        'MoveWindow(mHandel, -10000, -10000, 1000, 600, True)
        'BringWindowToTop(Me.Handle)
    End Sub
 
 
 <Flags()> _
    Private Enum SHOW_WINDOW As Integer
        SW_HIDE = 0
        SW_SHOWNORMAL = 1
        SW_NORMAL = 1
        SW_SHOWMINIMIZED = 2
        SW_SHOWMAXIMIZED = 3
        SW_MAXIMIZE = 3
        SW_SHOWNOACTIVATE = 4
        SW_SHOW = 5
        SW_MINIMIZE = 6
        SW_SHOWMINNOACTIVE = 7
        SW_SHOWNA = 8
        SW_RESTORE = 9
        SW_SHOWDEFAULT = 10
        SW_FORCEMINIMIZE = 11
        SW_MAX = 11
    End Enum
 
    Private Sub MaximizeFXCMGraph()
        For Each p As Process In Process.GetProcessesByName("FXTSpp")
            ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_MAXIMIZE)
        Next p
    End Sub
 
    Private Sub MinimizeFXCMGraph()
        For Each p As Process In Process.GetProcessesByName("FXTSpp")
            ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_MINIMIZE)
        Next p
    End Sub

Open in new window

0
Comment
Question by:tamu111981
1 Comment
 
LVL 15

Accepted Solution

by:
oobayly earned 500 total points
ID: 24130062
Try this code, it's modified from what I use for a singleton application instance.
Private Sub GetScreenShot(ByVal ps As Process)
    Dim hWnd As IntPtr = ps.MainWindowHandle
    
    ' Restores a minimized (iconic) window to its previous size and position; it then activates the window. 
    ' http://msdn.microsoft.com/en-us/library/ms633535(VS.85).aspx
    OpenIcon(hWnd)
    
    ' Puts the thread that created the specified window into the foreground and activates the window.
    ' http://msdn.microsoft.com/en-us/library/ms633539(VS.85).aspx
    SetForegroundWindow(hWnd)
    
    ' Sets the specified window's show state. 
    ' http://msdn.microsoft.com/en-us/library/ms633548(VS.85).aspx
    ShowWindow(hWnd, ShowWindowCommand.SW_SHOWMAXIMIZED)
    
    ' Wait 2 seconds to allow for the window to redraw
    System.Threading.Thread.Sleep(2000)
    
    ' PrintScreen & grab the image
    SendKeys.Send("{PRTSC}")
    Dim img As Image = Clipboard.GetImage()
    
    ' Close the app's window
    ShowWindow(hWnd, ShowWindowCommand.SW_MINIMIZE)
End Sub
 
<DllImport("user32.dll")> _
Public Shared Function OpenIcon(ByVal hWnd As IntPtr) As Boolean
End Function
 
<DllImport("user32.dll")> _
Public Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
End Function
 
<DllImport("user32.dll")> _
Public Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal cmd As ShowWindowCommand) As Boolean
End Function
 
Public Enum ShowWindowCommand As Integer
    SW_HIDE = 0
    SW_SHOWNORMAL = 1
    SW_NORMAL = 1
    SW_SHOWMINIMIZED = 2
    SW_SHOWMAXIMIZED = 3
    SW_MAXIMIZE = 3
    SW_SHOWNOACTIVATE = 4
    SW_SHOW = 5
    SW_MINIMIZE = 6
    SW_SHOWMINNOACTIVE = 7
    SW_SHOWNA = 8
    SW_RESTORE = 9
    SW_SHOWDEFAULT = 10
    SW_FORCEMINIMIZE = 11
    SW_MAX = 11
End Enum

Open in new window

0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question