Microsoft KB Archive/148746

= FIX: Check Marks Work Only When Set in Top Level Menu Events =

Article ID: 148746

Article Last Modified on 6/28/2004

-

APPLIES TO


 * Microsoft Visual Basic 4.0 Standard Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 16-bit Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q148746



SYMPTOMS
A check mark only appears next to the previously selected item in a second level menu. The check mark appears next to the correct item only after the mouse passes over that item.



RESOLUTION
To work around this issue, set the Checked property of a second level menu item in the top level menu event rather than the second level menu event.



STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Basic 6.0.



Steps to Reproduce Behavior
 Start 16-bit or 32-bit Visual Basic 4.0, or if it is already running, click New Project on the File menu.  Use the Menu Editor to add the following menu items. Note that the Blue, Green, and Cyan should appear only if you click Color, and Color appears if you click Options. Click Menu Editor from the Tools menu.      Caption            Name                   Index ---                              -      Options          mnuOption Color         mnuOptionsColor Blue        mnuOptionsColorArray       0 Green       mnuOptionsColorArray       1 Cyan        mnuOptionsColorArray       2   Copy the following code to the Code window of the Form1 form: Option Explicit Dim ncol As Integer

Private Sub mnucol_Click(Index As Integer) ncol = Index BackColor = QBColor(Index + 1) End Sub

Private Sub mnuColor_Click Dim i As Integer For i = 0 To 2 If i = ncol Then mnuCol(i).Checked = True Else mnuCol(i).Checked = False End If        Next End Sub

Private Sub mnuOptions_Click 'Uncomment the following lines for workaround 'Dim i As Integer 'For i = 0 To 2 'mnucol(i).Checked = (i = ncol) 'Next End Sub  On the Run menu, click Start or press the F5 key to start the program. From the Options menu, click Color and note that a second level menu appears. Choose a color to change the background color of the form. Click Color again from the Options menu and choose another color. Click Color a third time and note that a check mark appears next to the original color you selected. Move the mouse over the previously selected color and note that a check mark appears on the correct choice.

Additional query words: kbVBp kbdsd kbDSupport kbVBp400bug kbVBp600fix kbControl

Keywords: kbbug kbfix KB148746

-

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

© Microsoft Corporation. All rights reserved.