DOCUMENT:Q224181 26-JUL-2001 [vbwin] TITLE :FIX: GDI Resouce Leak Using Checkboxes in ListVew Control PRODUCT :Microsoft Visual Basic for Windows PROD/VER::6.0 OPER/SYS: KEYWORDS:kbCtrl kbListView kbResource kbVBp600bug kbVBp600fix kbGrpDSVB kbVS600sp4fix kbVS600sp5 ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual Basic Learning Edition for Windows, version 6.0 - Microsoft Visual Basic Professional Edition for Windows, version 6.0 - Microsoft Visual Basic Enterprise Edition for Windows, version 6.0 ------------------------------------------------------------------------------- SYMPTOMS ======== While loading and unloading forms that contain ListView controls using Checkboxes, a large memory and GDI resource leak occurs. CAUSE ===== The image list for the ListView control's Checkboxes is not being destroyed when the form is unloaded. RESOLUTION ========== This problem can be worked around by setting the Checkboxes property at run-time rather than in the design environment. The Checkboxes property must be set to True in the form's Activate event and then to False in the form's QueryUnload event: 1. Open a new Standard EXE project. Form1 is generated by default. 2. From the Project menu, choose Components, select "Microsoft Windows Common Controls 6.0" and click OK. 3. Add a second form (Form2) to the project. 4. Add a ListView control (ListView1) to Form2. Leave the Checkboxes property for the control set to the default of False. 5. Add the following code to Form2's Activate Event: Private Sub Form_Activate() ' Set the ListView's checkboxes property to True. ListView1.Checkboxes = True ' Do any initialization of the ListView here. With ListView1 .ListItems.Add , , "Item 1" .ListItems.Add , , "Item 2" End With End Sub 6. Add the following code to Form2's QueryUnload event: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' Set the checkboxes property ' of the listview to False. ListView1.Checkboxes = False End Sub 7. Add a CommandButton (Command1) to Form1. Add the following code to Form1's code window: Private Sub Command1_Click() Dim f As Form2 Dim i As Long For i = 0 To 100 Set f = New Form2 f.Show Unload f DoEvents Set f = Nothing Next i End Sub 8. Start a program to monitor system resources as follows: - Windows NT: Enter CTRL+ALT+DEL, and click Task Manager. Select the Performance tab. - Windows 95/98/Me: Start the System Monitor tool, which is located in the System Tools folder in the Accessories folder. If the System Monitor tool is not available, it can be installed from the Control Panel using the Add/Remove Programs option. On the Edit menu, click Add Item. Click the Memory Manager Category, click the Allocated Memory Item, and click OK. 9. Run the project and click on the Command1 button on Form1. Notice the resource usage. Result: Excessive resource use doesn't occur. STATUS ====== Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug was corrected in the next service pack for Visual Studio 6.0. For additional information about Visual Studio service packs, click the article numbers below to view the articles in the Microsoft Knowledge Base: Q194022 INFO: Visual Studio 6.0 Service Packs, What, Where, Why Q194295 HOWTO: Tell That a Visual Studio Service Pack Is Installed You can download the latest Visual Studio service pack from the following Microsoft Web site: Visual Studio Product Updates (http://msdn.microsoft.com/vstudio/downloads/updates.asp) MORE INFORMATION ================ Steps to Reproduce Behavior --------------------------- 1. Open a new Standard EXE project. Form1 is generated by default. 2. From the Project menu, choose Components, check "Microsoft Windows Common Controls 6.0," and click OK. 3. Add a second form (Form2) to the project. 4. Add a ListView control (ListView1) to Form2 and set its Checkboxes property to True. 5. Add a CommandButton control (Command1) to Form1 and paste the following code into Form1's code window: Private Sub Command1_Click() Dim f As Form2 Dim i As Long For i = 0 To 100 Set f = New Form2 f.Show Unload f DoEvents Set f = Nothing Next i End Sub 6. Start a program to monitor system resources as follows: - Windows NT: Enter CTRL+ALT+DEL and click Task Manager. Select the Performance tab. - Windows 95/98/Me: Start the System Monitor tool, which is located in the System Tools folder in the Accessories folder. If the System Monitor tool is not available, it can be installed from the Control Panel using the Add/Remove Programs option. On the Edit menu, click Add Item. Click the Memory Manager Category, click the Allocated Memory Item, and click OK. 7. Run the project. Click on the Command1 button on Form1. On NT, you should watch as the memory used by the process climbs continuously while running the program, and is only cleaned up when exiting Visual Basic or the compiled program. Result: Excessive resource use. Additional query words: sp4 ====================================================================== Keywords : kbCtrl kbListView kbResource kbVBp600bug kbVBp600fix kbGrpDSVB kbVS600sp4fix kbVS600sp5fix Technology : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB600Search kbVB600 Version : :6.0 Issue type : kbbug Solution Type : kbfix ============================================================================= THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY. Copyright Microsoft Corporation 2001.