Microsoft KB Archive/88476

= How to Hide a Non-Visual Basic Window or Icon =

Article ID: 88476

Article Last Modified on 2/23/2007

-

APPLIES TO


 * Microsoft Visual Basic 2.0 Standard Edition
 * Microsoft Visual Basic 3.0 Professional Edition
 * Microsoft Visual Basic 2.0 Professional Edition
 * Microsoft Visual Basic 3.0 Professional Edition
 * Microsoft Windows 2000 Readiness Analyzer

-



This article was previously published under Q88476



SUMMARY
Occasionally, it is desirable to hide a window from a Visual Basic application that is not owned by the Visual Basic application. For example, when using the GRAPH.VBX custom control provided with the Microsoft Professional Toolkit for Visual Basic version 1.0 for Windows and with the Professional Edition of Visual Basic version 2.0 for Windows, an icon appears at the bottom of the screen for the graphics server. This icon represents a program that is a support module for the graph control and so serves no direct purpose for the user. You can hide the icon by issuing two Windows API calls.



MORE INFORMATION
The FindWindow and ShowWindow Windows APIs can be used to hide a window. FindWindow uses the title on the top of the window to get a handle that can then be used by ShowWindow. ShowWindow can perform several different operations. In this case it makes a window invisible.

The following example hides the Graphics Server icon started by the Graph control. You can use this same technique to hide any window currently active in Windows.

Step-by-Step Example
 Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default. From the File menu, choose Add File. In the Files box, select the GRAPH.VBX custom control file. The GRAPH tool appears in the Toolbox. This starts the Graphics Server at the bottom of your screen. Add a command button (Command1) to Form1.  Enter the following code into the global module taking care to enter each Declare statement entirely on one, single line: Declare Function FindWindow Lib &quot;User&quot; (ByVal lpClassName As Any,     ByVal lpWindowName As Any) As Integer Declare Function ShowWindow Lib &quot;User&quot; (ByVal hWnd As Integer,     ByVal nCmdShow As Integer) As Integer

  Enter the following code into the Command1 click event procedure: Sub Command1_Click Dim Handle As Integer Dim WindowName As String

WindowName = &quot;Graphics Server&quot; Const SW_Hide = 0

Handle = FindWindow(0&, WindowName) X% = ShowWindow(Handle, SW_Hide) End Sub

 Press F5 to run the application.</ol>

When you choose the Command1 button, the Graphics Server icon becomes invisible.

Additional query words: 1.00 2.00 3.00

Keywords: KB88476

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.