BUG: Lines Drawn on Form Disappear After Menu Covers Them

View products that this article applies to.

This article was previously published under Q180496

SYMPTOMS

When a menu drops down and covers lines drawn directly on a form, the line that is covered will not be repainted correctly. This behavior also occurs with the CommandBar and MenuBar controls.

Back to the top

RESOLUTION

To avoid this problem, redraw the line in the Click event of the submenu. For example, if you have a File menu with a submenu named "New," add the following code for the "New" submenu Click event:

   Private Sub mnuNew_Click()
      'Normal New menu code here
      Drawline 0,0,1000,1000   'Redraw line.
   End Sub

Back to the top

STATUS

Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article.

Back to the top

MORE INFORMATION

Steps to Reproduce Behavior

Create a new Windows CE Handheld PC Pro Project in either eMbedded Visual Basic or Visual Basic. Form1 is created by default.
From the Project menu, choose Components and select the CommandBar control.
Add a CommandBar control and a Command Button to Form1.

Add the following code to Form1:

    Option Explicit

       Private Sub Command1_Click()
           DrawLine 0, 0, 1000, 1000
       End Sub

Private Sub Form_Load()
    Dim mnuMain As CommandbarLib.CommandBarMenuBar
    Dim mnuFile As CommandbarLib.Item
    
    Set mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "MainMenu")
    
    'add File menu items
    Set mnuFile = mnuMain.Items.Add(1, "File", "File")
        mnuFile.SubItems.Add , "Open", "Open"
        mnuFile.SubItems.Add , "Add", "Add"
        mnuFile.SubItems.Add , "Update", "Update"
        mnuFile.SubItems.Add , "Delete", "Delete"
End Sub

Press F5 to run the project.
Click on the CommandButton to draw a line.
Select an option on the submenu and note that either all or part of the line does not get repainted.

Back to the top