Solved

Getting information about active/open windows.

Posted on 1998-07-18
6
160 Views
Last Modified: 2010-05-03
Hi.
Is there a way of getting information about active/open windows.  Say, I have five windows open.   From which 3 are maximized or original size and 2 are minimized.  Is there a way of getting info about the windows which are maximized/original size either when active or not?  If so how would I find out the info.  Please send me code.  Thanks.
What I want is to be able to shake those open/maximized windows.  So, say from those 5 windows, 3 are open and are shaking.  If I close/minimize one window, well..shouldn't shake and if I maximize or restore or open a new program, the window should start shaking.
Send the code please.
Thanks
0
Comment
Question by:kermit007
[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
6 Comments
 
LVL 8

Expert Comment

by:MikeP090797
ID: 1466161
What exactly do you mean by 'Shake'?
0
 
LVL 1

Author Comment

by:kermit007
ID: 1466162
make them move around.  sort of like in a shaking pattern only random.
0
 

Expert Comment

by:dwagner
ID: 1466163
Do you mean windows only in your VB application, or windows in all applications currently running?

0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:kermit007
ID: 1466164
I mean all the application windows.  I know there is a way to do it.  I have seen it done, just don't know how to do it.
0
 
LVL 9

Accepted Solution

by:
Dalin earned 200 total points
ID: 1466165
kermit007,
Try the follow function. Let me know if you have problems.
Regards.
Dalin


Declare Function GetActiveWindow Lib "user32" () As Long

Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long

Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal
       nCmdShow As Long) As Long

Declare Function IsIconic Lib "user32" (ByVal Hwnd As Long) As Long

Declare Function IsZoomed Lib "user32" (ByVal Hwnd As Long) As Long

Declare Function MoveWindow Lib "user32" (ByVal Hwnd As Long, ByVal X As
       Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
       ByVal bRepaint As Long) As Long
       Public Const SW_MAXIMIZE = 3
       Public Const SW_SHOWNORMAL = 1
       Public Const SW_SHOWMINIMIZED = 2


Function AccessMaximize()
       AccessMaximize = ShowWindow(GetAccesshWnd(), SW_MAXIMIZE)
End Function


Function AccessMinimize()      
       AccessMinimize = ShowWindow(GetAccesshWnd(), SW_SHOWMINIMIZED)
End Function


Function AccessMoveSize(iX As Long, iY As Long, iWidth As Long, iHeight
       As Long)
       MoveWindow GetAccesshWnd(), iX, iY, iWidth, iHeight, True
End Function


Function AccessRestore()
       AccessRestore = ShowWindow(GetAccesshWnd(), SW_SHOWNORMAL)
End Function


Function GetAccesshWnd()
       
       Dim Hwnd As Long
       Dim hWndAccess As Long
       
       Hwnd = GetActiveWindow()' Get the handle to the currently active window.
       hWndAccess = Hwnd
       

              While Hwnd <> 0 ' Find the top window
                     without a parent window.
                     hWndAccess = Hwnd
                     Hwnd = GetParent(Hwnd)
              Wend

       
       GetAccesshWnd = hWndAccess
       
End Function


Function IsAccessMaximized()


              If IsZoomed(GetAccesshWnd()) = 0 Then
                     IsAccessMaximized = False
              Else
                     IsAccessMaximized = True
              End If

End Function


Function IsAccessMinimized()


              If IsIconic(GetAccesshWnd()) = 0 Then
                     IsAccessMinimized = False
              Else
                     IsAccessMinimized = True
              End If

End Function


Function IsAccessRestored()


              If IsAccessMaximized() = False And IsAccessMinimized() = False Then
                     IsAccessRestored = True
              Else
                     IsAccessRestored = False
              End If

End Function

0
 
LVL 1

Author Comment

by:kermit007
ID: 1466166
Thanks Dalin. :)
If I have any problems, I'll come back.  Thanks
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Suggested Solutions

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

733 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