Solved

Revealing a hidden pop up calendar in Excel VBA

Posted on 2008-10-31
10
958 Views
Last Modified: 2012-08-13
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

0
Comment
Question by:jezza12
  • 5
  • 3
  • 2
10 Comments
 
LVL 17

Expert Comment

by:ExcelGuide
Comment Utility
could you try:
me.Calender1.Visible = True

or

UserForm1.Calender1.Visible = True
0
 

Author Comment

by:jezza12
Comment Utility
Thank you for your response.
I tried both options but still get the same result - the calendar doesn't reveal itself.
0
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
Comment Utility
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
 
LVL 17

Expert Comment

by:ExcelGuide
Comment Utility
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
 

Author Comment

by:jezza12
Comment Utility
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
What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

 
LVL 47

Accepted Solution

by:
Wayne Taylor (webtubbs) earned 50 total points
Comment Utility
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
 

Author Comment

by:jezza12
Comment Utility
Wayne

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

Regards Jezza
0
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
Comment Utility
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
 

Author Comment

by:jezza12
Comment Utility
Thanks once again.
0
 

Author Closing Comment

by:jezza12
Comment Utility
Thank you for your prompt assistance.
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
using web browser with BING 40 84
Slight Modification to Macro 2 14
File size limit in SharePoint 2010 3 14
Problem to page 4 16
This article will show, step by step, how to integrate R code into a R Sweave document
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
The viewer will learn additional member functions of the vector class. Specifically, the capacity and swap member functions will be introduced.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now