How to bring shown frame control to the top

[Magic Polygon]

I have a Calendar Frame containing some controls, and I have a ListBox. The Calendar is initially invisible, until a button that toggles its visibility is clicked. When the Calendar appears, it appears below the ListBox instead of above. I tried to fix this by selecting the Calendar, then selecting Bring to Front on the Format menu, and then selecting the ListBox, then selecting Send to Back. This only brought the Calendar to the front in the VBE before running the code.

 

[Bosquedeguate]

Please provide your VBA code User Form or worksheet that contains these controls.

 

[NoSparks]

maybe something along the lines of

    With Me.DatePickerFrame
        .ZOrder (0)
        .Visible = True
    End With

 

[Magic Polygon]

Please provide your VBA code User Form or worksheet that contains these controls.

Here is a link to the worksheet:

Userform Mr Excel.xlsm

Shared with Dropbox

www.dropbox.com

The relevant code/object can be found in Forms -> BrowseRecordsUserForm.

 

[Magic Polygon]

maybe something along the lines of

    With Me.DatePickerFrame
        .ZOrder (0)
        .Visible = True
    End With

This produces a weird overlap effect when toggling the Calendar Frame. This is when the Calendar Frame is toggled on:

and this is when the Calendar Frame is toggled off:

 

[Magic Polygon]

From a post I made on Stack Overflow, here are two solutions:

Excel VBA: Frame doesn't appear in front of ListBox

 

[Bosquedeguate]

Why don't you just toggle the .Visible property for both the DatePicker frame and the SearchResultsListBox.

Something like:

    DatePickerFrame.Visible = Not DatePickerFrame.Visible
    SearchResultsListBox.Visible = Not DatePickerFrame.Visible

 

[Magic Polygon]

Why don't you just toggle the .Visible property for both the DatePicker frame and the SearchResultsListBox.

Something like:

    DatePickerFrame.Visible = Not DatePickerFrame.Visible
    SearchResultsListBox.Visible = Not DatePickerFrame.Visible

Yep, that's much better than what I had at first.

 

[Bosquedeguate]

Yep, that's much better than what I had at first.

Here's my modified code toggle both.

Public Sub ToggleDatePicker(DateTextBox As Control)
    
    'check if its visible
    'toggle calendar
    DatePickerFrame.Visible = Not DatePickerFrame.Visible
    'toggle listbox
    SearchResultsListBox.Visible = Not DatePickerFrame.Visible
        
    If Me.Controls("DatePickerFrame").Visible Then
        
        'set the global control so when the calendar gets clicked
        'we know what textbox to update
        Set DateControl = DateTextBox
        
        'set the position of the calendar
        With Me.DatePickerFrame
          .Top = DateControl.Top + 40
          .Left = DateControl.Left + DateControl.Width - .Width
        
        End With
    End If

 

[Fluff]

@Magic Polygon

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.