Revealing a hidden pop up calendar in Excel VBA

How do I unhide a calendar from a user form? I am trying to reveal a calendar after a combo box is selected using the  "Mouse Down" event.The calendar itslef has been inserted onto the user form. I have turned the visible properties of the calendar to "false" .The code in the"mouse down" event for the combo box is: Calendar1.Visible = True. After selecting the combo box nothing happens. Please help.
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    Calendar1.Visible = True
    
  
End Sub

Open in new window

jezza12Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ExcelGuideConsultantCommented:
could you try:
me.Calender1.Visible = True

or

UserForm1.Calender1.Visible = True
0
jezza12Author Commented:
Thank you for your response.
I tried both options but still get the same result - the calendar doesn't reveal itself.
0
Wayne Taylor (webtubbs)Commented:
Hi jezza12,

It works fine for me. Can you confirm the MouseDown event is being called? You can use a MsgBox, like this....

    Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    
        Calendar1.Visible = True      
        MsgBox "Mouse Down"
    End Sub

Regards,

Wayne
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

ExcelGuideConsultantCommented:
hi webtubbs,

I guess I start to understand this problem. Because I actually dont see anything as well BUT when I randomly click on the userform I start seeing the calendar partially...maybe this user has the same problem?

jezza, could you confirm?
0
jezza12Author Commented:
Hi Wetubbs and Psychotec,

Webtubbs, I tried your suggestion and the message box IS displayed on the mouse down event. So the actual event seems to be working.
In response to Psychotec, you seem to be experiencing exactly the same problem as me. No calendar is seen on the mouse down event. However, when I randomly click on the userform the calendar partially reveals itself.

Regards  Jezza
0
Wayne Taylor (webtubbs)Commented:
Jezza,

Try Repainting the form in the MouseDown event....

    Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    
        Calendar1.Visible = True      
        Me.Repaint
    End Sub

Wayne
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jezza12Author Commented:
Wayne

Thank you - that seems to have done the trick. Just out of curiosity - is this a bug?

Regards Jezza
0
Wayne Taylor (webtubbs)Commented:
Yes and No. There's generally no problem with the normal Forms control, but specialist controls, such as the Calendar, can sometimes have problems.

Wayne
0
jezza12Author Commented:
Thanks once again.
0
jezza12Author Commented:
Thank you for your prompt assistance.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming Languages-Other

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.