1. How do I remove the control's border
| Visual FoxPro |
|---|
with thisform.Calendar1 .Appearance = 0 endwith |
2. How do I change the control's border, using your EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith |
3. How can I change the control's font
| Visual FoxPro |
|---|
with thisform.Calendar1 .Font.Name = "Verdana" endwith |
4. How do I change the control's background color
| Visual FoxPro |
|---|
with thisform.Calendar1 .BackColor = 13158600 endwith |
5. How do I change the control's foreground color
| Visual FoxPro |
|---|
with thisform.Calendar1 .ForeColor = 255 endwith |
6. How do I change the visual appearance of the up and down buttons in the calendar's header, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(0) = 16777216 .Background(1) = 16777216 endwith |
7. How do I change the visual appearance of the left and right buttons in the calendar's header, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(2) = 16777216 .Background(3) = 16777216 endwith |
8. How can I change the visual appearance of the drop down button, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Background(4) = 16777216 .Background(5) = 33554432 endwith |
9. How can I change the visual appearance of header that displays days, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(6) = 16777216 endwith |
10. How can I change the visual appearance of header that week numbers, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(7) = 16777216 .HeaderForeColor = 255 .ShowWeeks = .T. endwith |
11. How can I change the visual appearance of header , using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(8) = 16777216 .HeaderForeColor = 255 endwith |
12. How can I change the visual appearance of 'Today' button, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Background(9) = 16777216 .Background(10) = 33554432 endwith |
13. How can I change the visual appearance of the scrolling bar for years, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Background(12) = 16777216 .Background(11) = 33554432 endwith |
14. How can I change the visual appearance of separator between calendar and 'Today' button , using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(13) = 16777216 endwith |
15. How can I change the visual appearance of Today date in the calendar, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\pushed.ebn") .Background(14) = 16777216 .SelForeColor = 0 .MarkToday = .T. endwith |
16. How can I change the visual appearance of the selected month, in the months selector, using EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(15) = 16777216 .Background(16) = 255 endwith |
17. Can I change the default border of the tooltip, using your EBN files
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(64) = 16777216 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
18. Can I change the background color for the tooltip
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Background(65) = 255 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
19. Can I change the forecolor for the tooltip
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Background(66) = 255 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
20. How do I disable or enable the control
| Visual FoxPro |
|---|
with thisform.Calendar1 .Enabled = .F. endwith |
21. How do I enable multiple selection
| Visual FoxPro |
|---|
with thisform.Calendar1 .SingleSel = .F. endwith |
22. How do I enable single selection
| Visual FoxPro |
|---|
with thisform.Calendar1 .SingleSel = .T. endwith |
23. How can I hide the control's selection when the control loses the focus
| Visual FoxPro |
|---|
with thisform.Calendar1 .HideSelection = .T. endwith |
24. How can I show the control's selection even if the control loses the focus
| Visual FoxPro |
|---|
with thisform.Calendar1 .HideSelection = .F. endwith |
25. How do I mark the Today date
| Visual FoxPro |
|---|
with thisform.Calendar1 .MarkToday = .T. endwith |
26. How can I change the visual appearance of Today date in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .MarkToday = .T. .Background(14) = 255 endwith |
27. How do I show or hide the weeks
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowWeeks = .T. endwith |
28. How can I show or hide the header that displays the week days
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowDays = .F. endwith |
29. How can I show or hide the header that displays the months
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowMonth = .F. endwith |
30. How can I show or hide the scroll bar that changes the year
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowYearScroll = .F. endwith |
31. How can I show or hide the 'Today' button
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowTodayButton = .F. endwith |
32. How do I change the background color for the week days and week numbers header
| Visual FoxPro |
|---|
with thisform.Calendar1 .HeaderBackColor = 255 .ShowWeeks = .T. endwith |
33. How do I change the foreground color for the week days and week numbers header
| Visual FoxPro |
|---|
with thisform.Calendar1 .HeaderForeColor = 255 .ShowWeeks = .T. endwith |
34. How do I draw the grid lines
| Visual FoxPro |
|---|
with thisform.Calendar1 .DrawGridLine = 1 endwith |
35. How do I specify the color for the grid lines
| Visual FoxPro |
|---|
with thisform.Calendar1 .DrawGridLine = 1 .GridLineColor = 255 endwith |
36. How do I change the appearance for dates in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .AppearanceDay = 1 .BackColor = -2147483633 endwith |
37. How can I specify the width and height for dates being displayed in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 32 .FixedCellHeight = 24 endwith |
38. How can I specify the width and height for dates being displayed in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 22 .FixedCellHeight = 16 endwith |
39. How do I change the name for each week day
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 24 .FixedCellHeight = 16 .WeekDayShortName(1) = "Sun" .WeekDayShortName(2) = "Mon" .WeekDayShortName(3) = "Tue" .WeekDayShortName(4) = "Wed" .WeekDayShortName(5) = "Thu" .WeekDayShortName(6) = "Fri" .WeekDayShortName(7) = "Sat" .HeaderForeColor = 255 .HeaderBackColor = 16777215 endwith |
40. How do I change the name for each week day
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 24 .FixedCellHeight = 16 .WeekDays = "Su Mo Tu We Th Fr Sa" .HeaderForeColor = 255 .HeaderBackColor = 16777215 endwith |
41. How do I change the name of the months
| Visual FoxPro |
|---|
with thisform.Calendar1 .MonthName(1) = "Jan" .MonthName(2) = "Feb" .MonthName(3) = "Mar" .MonthName(4) = "Apr" .MonthName(5) = "May" .MonthName(6) = "Jun" .MonthName(7) = "Jul" .MonthName(8) = "Aug" .MonthName(9) = "Sep" .MonthName(10) = "Oct" .MonthName(11) = "Nov" .MonthName(12) = "Dec" endwith |
42. How do I change the name of the months
| Visual FoxPro |
|---|
with thisform.Calendar1 .MonthNames = "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec" endwith |
43. How do I change the first day of the week
| Visual FoxPro |
|---|
with thisform.Calendar1 .FirstDay = 2 endwith |
44. How can I lock the control, so user can't select a new date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Locked = .T. endwith |
45. How can I specify the number of months being displayed
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowTodayButton = .F. .ShowYearScroll = .F. .MinMonthX = 2 .MaxMonthX = 2 .MinMonthY = 2 .MaxMonthY = 2 endwith |
46. How can I change the style of the line arround a month
| Visual FoxPro |
|---|
with thisform.Calendar1 .DrawBorderLine = 2 endwith |
47. How can I change the color of the line arround a month
| Visual FoxPro |
|---|
with thisform.Calendar1 .DrawBorderLine = 2 .BorderLineColor = 255 endwith |
48. How can I change the colors for selected dates
| Visual FoxPro |
|---|
with thisform.Calendar1 .SelBackColor = 0 .SelForeColor = 16777215 endwith |
49. How can I change the visual aspect of the selected date, using your EBN
| Visual FoxPro |
|---|
with thisform.Calendar1 .BackColor = 16777215 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .SelBackColor = 16777216 .SelForeColor = .BackColor endwith |
50. How can I disable changing the month in the months selector
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowMonthSelector = .F. endwith |
51. How can I show or hide the buttons that scrolls the years
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowYearSelector = .F. endwith |
52. How can I show or hide the buttons that in the header
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowYearSelector = .F. .ShowMonthSelector = .F. endwith |
53. How can I change the browsed date
| Visual FoxPro |
|---|
with thisform.Calendar1
.Date = {^2001-1-1}
endwith
|
54. How can I select a new date
| Visual FoxPro |
|---|
with thisform.Calendar1
.Date = {^2001-1-1}
.SelDate = {^2001-1-2}
endwith
|
55. How can I select a new date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Date = .DoDate(2001,1,1) .SelDate = .DoDate(2001,1,2) endwith |
56. How can I build a date expression
| Visual FoxPro |
|---|
with thisform.Calendar1 .Date = .DoDate(2001,1,1) endwith |
57. How do I get the selected date
| Visual FoxPro |
|---|
with thisform.Calendar1 .SelDate = .Date endwith |
58. How do I select multiple dates
| Visual FoxPro |
|---|
with thisform.Calendar1
.SingleSel = .F.
.Date = {^2001-1-1}
.SelDate = {^2001-1-2}
.SelDate = {^2001-1-3}
.SelDate = {^2001-1-4}
endwith
|
60. How do I unselect a date
| Visual FoxPro |
|---|
with thisform.Calendar1
.SingleSel = .F.
.Date = {^2001-1-1}
.SelDate = {^2001-1-2}
.SelDate = {^2001-1-3}
.SelDate = {^2001-1-4}
.UnSelDate({^2001-1-3})
endwith
|
62. How can I change the caption of the Today's button
| Visual FoxPro |
|---|
with thisform.Calendar1 .TodayCaption = "Azi" endwith |
63. Can I change the font for the tooltip
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
64. How do I call your x-script language
| Visual FoxPro |
|---|
with thisform.Calendar1 .Template = "BackColor = RGB(255,0,0)" endwith |
65. How do I call your x-script language
| Visual FoxPro |
|---|
with thisform.Calendar1
.ExecuteTemplate("BackColor = RGB(255,0,0)")
endwith
|
66. How do I show the tooltip quicker
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 1 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
67. How do I disable showing the tooltip for all control
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipDelay = 0 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
68. I've seen that the width of the tooltip is variable. Can I make it larger
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipWidth = 328 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
69. How can I select a new date
| Visual FoxPro |
|---|
with thisform.Calendar1
.Date = {^2001-1-1}
.Value = {^2001-1-2}
endwith
|
70. How can I change the date that gets the focus
| Visual FoxPro |
|---|
with thisform.Calendar1
.Date = {^2001-1-1}
.FocusDate = {^2001-1-2}
endwith
|
72. How do I let the tooltip being displayed longer
| Visual FoxPro |
|---|
with thisform.Calendar1 .ToolTipPopDelay = 10000 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
73. How can I specify the min and max years to scroll within
| Visual FoxPro |
|---|
with thisform.Calendar1 .MinScrollYear = 2001 .MaxScrollYear = 2010 endwith |
76. How can I specify the non working days
| Visual FoxPro |
|---|
with thisform.Calendar1 .NonworkingDays = 6 endwith |
77. How can I show or hide the non working days
| Visual FoxPro |
|---|
with thisform.Calendar1 .NonworkingDays = 0 endwith |
78. How can I change the pattern or the style to draw the non working days
| Visual FoxPro |
|---|
with thisform.Calendar1 .NonworkingDays = 6 .NonworkingDaysPattern = 10 endwith |
79. How can I change the color for non working days
| Visual FoxPro |
|---|
with thisform.Calendar1 .NonworkingDays = 6 .NonworkingDaysPattern = 10 .NonworkingDaysColor = 255 endwith |
80. How can I hide the days that are shown in gray, and doesn' belong to the month
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowNonMonthDays = .F. endwith |
81. How can I change the color to highlight the dates that have a comment or a tooltip assigned
| Visual FoxPro |
|---|
with thisform.Calendar1 .CommentBackColor = 0 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
82. How can I change the visual aspect of the dates that have a comment or a tooltip assigned
| Visual FoxPro |
|---|
with thisform.Calendar1 with .VisualAppearance .Add(11,"c:\exontrol\images\normal.ebn") .Add(1,"CP:11 4 2 -2 -2") endwith .CommentBackColor = 16777216 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
83. How can I change the visual aspect of the dates that have a comment or a tooltip assigned
| Visual FoxPro |
|---|
with thisform.Calendar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .CommentBackColor = 16777216 .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" .HideSelection = .T. endwith |
84. How can I hide the ticker that's shown for dates that have a tooltip or a comment
| Visual FoxPro |
|---|
with thisform.Calendar1 .CommentBackColor = .BackColor .Events.Add(thisform.Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date" endwith |
85. How can I get the first visible date being displayed in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowNonMonthDays = .F. .Events.Add(thisform.Calendar1.FirstVisibleDate).Comment = "This is the first visible date" endwith |
86. How can I get the last visible date being displayed in the calendar
| Visual FoxPro |
|---|
with thisform.Calendar1 .ShowNonMonthDays = .F. .Events.Add(thisform.Calendar1.LastVisibleDate).Comment = "This is the last visible date" endwith |
87. How can I bold a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).Bold = .T. endwith |
88. How can I make italic a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).Italic = .T. endwith |
89. How can I underline a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).Underline = .T. endwith |
90. How can I draw a date as strikeout
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).StrikeOut = .T. endwith |
91. How can I change the foreground color for a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).ForeColor = 255 endwith |
92. How can I change the background color for a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).BackColor = 255 endwith |
93. How can I assign any extra data to a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).UserData = "your data" endwith |
94. How can I assign a tooltip or a comment to a date
| Visual FoxPro |
|---|
with thisform.Calendar1 with .Events.Add(thisform.Calendar1.Date) .Comment = "This is a text that shows up when the cursor hovers the date" .CommentTitle = "T I T L E" endwith .HideSelection = .T. endwith |
95. How can I mark or highlight a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).Marker = .T. endwith |
96. How can I enable or disable a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .Events.Add(thisform.Calendar1.Date).Disabled = .T. endwith |
97. How can I assign an icon to a date
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 36 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Events.Add(thisform.Calendar1.Date).Image = 1 endwith |
99. How can I clear all events
| Visual FoxPro |
|---|
with thisform.Calendar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Events.Add(thisform.Calendar1.Date).Image = 1 .Events.Clear endwith |
100. How can I count the events
| Visual FoxPro |
|---|
with thisform.Calendar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Events.Add(thisform.Calendar1.Date).Image = 1 var_Count = .Events.Count endwith |
101. How can I remove an event
| Visual FoxPro |
|---|
with thisform.Calendar1 .AutoSize = .F. .FixedCellWidth = 36 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Events.Add(thisform.Calendar1.Date).Image = 1 .Events.Remove(thisform.Calendar1.Date) endwith |