If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Calendar Control in a Form
I have a headscratcher...
I have used the "how to add a pop up calendar" from MS...and for two of the calendars it works perfectly. Then I added a third calendar and it returns the serial date and not Gregorian... This is the code that I used to open the calendar and insert that value into a text box... Anyone have a clue why this all of a sudden happened? Private Sub Calendar3_Click() ' Set BackgroundStart to the selected date and hide the calendar. BackgroundStart.Value = Calendar3.Value BackgroundStart.SetFocus Calendar3.Visible = False End Sub Private Sub BackgroundStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Show Calendar and set its date. Calendar3.Visible = True Calendar3.SetFocus ' Set to today if Background has no value. Calendar3.Value = IIf(IsNull(BackgroundStart), Date, BackgroundStart.Value) End Sub Thanks!!! Hans |
#2
|
|||
|
|||
Calendar Control in a Form
|
Thread Tools | |
Display Modes | |
|
|