Solved

How to maximize a window

Posted on 2009-04-13
1
880 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

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

Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…

707 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