DOCUMENT:Q215397  26-FEB-2002  [vbwin]
TITLE   :BUG: Menu Cannot be Disabled By CommandBar Controls Collection
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER::1.0,2.0,2.11,3.0
OPER/SYS:
KEYWORDS:kbToolkit kbVBp600bug kbOSWinCEsearch kbGrpDSVB

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Windows CE Toolkit for Visual Basic 6.0, version 1.0 
 - Microsoft eMbedded Visual Basic, version 3.0, on platform(s):
    - Microsoft Windows CE versions 2.0, 2.11 for the Handheld PC 
    - Microsoft Windows CE version 2.11 for the Palm-size PC 
-------------------------------------------------------------------------------

SYMPTOMS
========

A Windows CE CommandBar menu is not disabled when accessing the object through
the Controls collection of the CommandBar.

RESOLUTION
==========

Enable and disable a CommandBar menu object by accessing the Enabled property of
the CommandBarMenuBar object.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

MORE INFORMATION
================

Steps by Step Example
---------------------

1. Start a new Windows CE H/PC Pro Project in Visual Basic. Form1 is created by
   default.

2. Add a CommandBar control, a ListBox and two CommandButtons to Form1.

3. Paste the following code in to the form's code window:

   Option Explicit
   Dim cbrMnuBar As CommandBarMenuBar

   Private Sub Form_Activate()
       Set cbrMnuBar = CommandBar1.Controls.Add(cbrMenuBar)
       cbrMnuBar.Items.Add , , "MenuBug"
       cbrMnuBar.Items(1).SubItems.Add , , "SubMenuBug"
       cbrMnuBar.Items.Add , , "MenuFix"
       cbrMnuBar.Items(2).SubItems.Add , , "SubMenuFix"
       Command1.Caption = "Disable MenuBug"
       Command2.Caption = "Disable MenuFix"
   End Sub

   Private Sub Command1_Click()
       CommandBar1.Controls(1).Enabled = Not CommandBar1.Controls(1).Enabled
       List1.AddItem "MenuBug Enabled = " & CommandBar1.Controls(1).Enabled
       If CommandBar1.Controls(1).Enabled Then
          Command1.Caption = "Disable MenuBug"
       Else
          Command1.Caption = "Enable MenuBug"
       End If
   End Sub

   Private Sub Command2_Click()
       cbrMnuBar.Items(2).Enabled = Not cbrMnuBar.Items(2).Enabled
       List1.AddItem "MenuFix Enabled = " & cbrMnuBar.Items(2).Enabled
       If cbrMnuBar.Items(2).Enabled Then
          Command2.Caption = "Disable MenuFix"
       Else
          Command2.Caption = "Enable MenuFix"
       End If
   End Sub

   Private Sub CommandBar1_MenuClick(ByVal Item As CommandbarLib.Item)
       MsgBox Item.Caption & " click fired"
   End Sub

4. Click Command1 to disable the first menu and notice that clicking the menu
   still fires the MenuClick event and the menu still appears enabled. The menu
   has not been disabled.

5. Click Command2 and notice that the second menu has been disabled and the
   MenuClick event does not fire.

Additional query words: vbce wce vbce6

======================================================================
Keywords          : kbToolkit kbVBp600bug kbOSWinCEsearch kbGrpDSVB 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword2 kbVBeMbSearch kbWinCETKVBSearch kbWinCESearch
Version           : :1.0,2.0,2.11,3.0
Issue type        : kbbug
Solution Type     : kbpending

=============================================================================

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 2002.