Exontrol.COM Software - HOW TO DO in Visual Basic 6

109. Can I change the visual appearance for the tooltip, using your EBN files

With Calendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &H1aa80f0
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

108. Can I change the color of the control's border (EBN files)

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1aabbc8 Or AppearanceEnum.Etched
End With

107. Is it possible to change the color for days that are not in the month

With Calendar1
	.FirstDay = Monday
	.ShowNonMonthDays = True
	.NonMonthDaysColor = RGB(255,0,0)
End With

106. How can I change the foreground color for non-working days

With Calendar1
	.FirstDay = Monday
	.NonworkingDaysForeColor = RGB(255,0,0)
End With

105. How do I change the appearance for the months

With Calendar1
	.Background(exDateHeader) = RGB(0,0,128)
	.Background(exDateHeaderForeColor) = RGB(255,255,255)
End With

104. How can I show the more months with its full size

With Calendar1
	.AutoSize = exFitClient
	.MaxMonthX = 2
	.MaxMonthY = 2
End With

103. How can I show the calendar with its full size

With Calendar1
	.AutoSize = exFitClient
	.MaxMonthX = 1
	.MaxMonthY = 1
End With

102. How can I hide the separator above the Today button

With Calendar1
	.Background(exDateSeparatorBar) = .BackColor
End With

101. How do I limit the dates being displayed or selected

With Calendar1
	.MaxMonthX = 1
	.MaxMonthY = 1
	.ShowYearScroll = False
	.MinDate = #1/1/2001#
	.MaxDate = #1/31/2001#
	.Date = #1/1/2001#
End With

100. How can I remove an event

With Calendar1
	.AutoSize = exFixedSize
	.FixedCellWidth = 36
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(Calendar1.Date).Image = 1
	.Events.Remove Calendar1.Date
End With

99. How can I count the events

With Calendar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(Calendar1.Date).Image = 1
	var_Count = .Events.Count
End With

98. How can I clear all events

With Calendar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(Calendar1.Date).Image = 1
	.Events.Clear 
End With

96. How can I assign an icon to a date

With Calendar1
	.AutoSize = exFixedSize
	.FixedCellWidth = 36
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(Calendar1.Date).Image = 1
End With

95. How can I enable or disable a date

With Calendar1
	.Events.Add(Calendar1.Date).Disabled = True
End With

94. How can I mark or highlight a date

With Calendar1
	.Events.Add(Calendar1.Date).Marker = True
End With

93. How can I assign a tooltip or a comment to a date

With Calendar1
	With .Events.Add(Calendar1.Date)
		.Comment = "This is a text that shows up when the cursor hovers the date"
		.CommentTitle = "T I T L E"
	End With
	.HideSelection = True
End With

92. How can I assign any extra data to a date

With Calendar1
	.Events.Add(Calendar1.Date).UserData = "your data"
End With

91. How can I change the background color for a date

With Calendar1
	.Events.Add(Calendar1.Date).BackColor = RGB(255,0,0)
End With

90. How can I change the foreground color for a date

With Calendar1
	.Events.Add(Calendar1.Date).ForeColor = RGB(255,0,0)
End With

89. How can I draw a date as strikeout

With Calendar1
	.Events.Add(Calendar1.Date).StrikeOut = True
End With

88. How can I underline a date

With Calendar1
	.Events.Add(Calendar1.Date).Underline = True
End With

87. How can I make italic a date

With Calendar1
	.Events.Add(Calendar1.Date).Italic = True
End With

86. How can I bold a date

With Calendar1
	.Events.Add(Calendar1.Date).Bold = True
End With

85. How can I get the last visible date being displayed in the calendar

With Calendar1
	.ShowNonMonthDays = False
	.Events.Add(Calendar1.LastVisibleDate).Comment = "This is the last visible date"
End With

84. How can I get the first visible date being displayed in the calendar

With Calendar1
	.ShowNonMonthDays = False
	.Events.Add(Calendar1.FirstVisibleDate).Comment = "This is the first visible date"
End With

83. How can I hide the ticker that's shown for dates that have a tooltip or a comment

With Calendar1
	.CommentBackColor = .BackColor
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
End With

82. How can I change the visual aspect of the dates that have a comment or a tooltip assigned

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.CommentBackColor = &H1000000
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

81. How can I change the visual aspect of the dates that have a comment or a tooltip assigned

With Calendar1
	With .VisualAppearance
		.Add 11,"c:\exontrol\images\normal.ebn"
		.Add 1,"CP:11 4 2 -2 -2"
	End With
	.CommentBackColor = &H1000000
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

80. How can I change the color to highlight the dates that have a comment or a tooltip assigned

With Calendar1
	.CommentBackColor = RGB(0,0,0)
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

79. How can I hide the days that are shown in gray, and doesn' belong to the month

With Calendar1
	.ShowNonMonthDays = False
End With

78. How can I change the color for non working days

With Calendar1
	.NonworkingDays = 6
	.NonworkingDaysPattern = exPatternCross
	.NonworkingDaysColor = RGB(255,0,0)
End With

77. How can I change the pattern or the style to draw the non working days

With Calendar1
	.NonworkingDays = 6
	.NonworkingDaysPattern = exPatternCross
End With

76. How can I show or hide the non working days

With Calendar1
	.NonworkingDays = 0
End With

75. How can I specify the non working days

With Calendar1
	.NonworkingDays = 6
End With

72. How can I specify the min and max years to scroll within

With Calendar1
	.MinScrollYear = 2001
	.MaxScrollYear = 2010
End With

71. How do I let the tooltip being displayed longer

With Calendar1
	.ToolTipPopDelay = 10000
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

69. How can I change the date that gets the focus

With Calendar1
	.Date = #1/1/2001#
	.FocusDate = #1/2/2001#
End With

68. How can I select a new date

With Calendar1
	.Date = #1/1/2001#
	.Value = #1/2/2001#
End With

67. I've seen that the width of the tooltip is variable. Can I make it larger

With Calendar1
	.ToolTipWidth = 328
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

66. How do I disable showing the tooltip for all control

With Calendar1
	.ToolTipDelay = 0
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

65. How do I show the tooltip quicker

With Calendar1
	.ToolTipDelay = 1
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

64. How do I call your x-script language

With Calendar1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With

63. How do I call your x-script language

With Calendar1
	.Template = "BackColor = RGB(255,0,0)"
End With

62. Can I change the font for the tooltip

With Calendar1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

61. How can I change the caption of the Today's button

With Calendar1
	.TodayCaption = "Azi"
End With

59. How do I unselect a date

With Calendar1
	.SingleSel = False
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
	.SelDate = #1/3/2001#
	.SelDate = #1/4/2001#
	.UnSelDate #1/3/2001#
End With

57. How do I select multiple dates

With Calendar1
	.SingleSel = False
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
	.SelDate = #1/3/2001#
	.SelDate = #1/4/2001#
End With

56. How do I get the selected date

With Calendar1
	.SelDate = .Date
End With

55. How can I build a date expression

With Calendar1
	.Date = .DoDate(2001,1,1)
End With

54. How can I select a new date

With Calendar1
	.Date = .DoDate(2001,1,1)
	.SelDate = .DoDate(2001,1,2)
End With

53. How can I select a new date

With Calendar1
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
End With

52. How can I change the browsed date

With Calendar1
	.Date = #1/1/2001#
End With

51. How can I show or hide the buttons that in the header

With Calendar1
	.ShowYearSelector = False
	.ShowMonthSelector = False
End With

50. How can I show or hide the buttons that scrolls the years

With Calendar1
	.ShowYearSelector = False
End With

49. How can I disable changing the month in the months selector

With Calendar1
	.ShowMonthSelector = False
End With

48. How can I change the visual aspect of the selected date, using your EBN

With Calendar1
	.BackColor = RGB(255,255,255)
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = &H1000000
	.SelForeColor = .BackColor
End With

47. How can I change the colors for selected dates

With Calendar1
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
End With

46. How can I change the color of the line arround a month

With Calendar1
	.DrawBorderLine = LargeDots
	.BorderLineColor = RGB(255,0,0)
End With

45. How can I change the style of the line arround a month

With Calendar1
	.DrawBorderLine = LargeDots
End With

44. How can I specify the number of months being displayed

With Calendar1
	.ShowTodayButton = False
	.ShowYearScroll = False
	.MinMonthX = 2
	.MaxMonthX = 2
	.MinMonthY = 2
	.MaxMonthY = 2
End With

43. How can I lock the control, so user can't select a new date

With Calendar1
	.Locked = True
End With

42. How do I change the first day of the week

With Calendar1
	.FirstDay = Monday
End With

41. How do I change the name of the months

With Calendar1
	.MonthNames = "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
End With

40. How do I change the name of the months

With Calendar1
	.MonthName(January) = "Jan"
	.MonthName(February) = "Feb"
	.MonthName(March) = "Mar"
	.MonthName(April) = "Apr"
	.MonthName(May) = "May"
	.MonthName(June) = "Jun"
	.MonthName(July) = "Jul"
	.MonthName(August) = "Aug"
	.MonthName(September) = "Sep"
	.MonthName(October) = "Oct"
	.MonthName(November) = "Nov"
	.MonthName(December) = "Dec"
End With

39. How do I change the name for each week day

With Calendar1
	.AutoSize = exFixedSize
	.FixedCellWidth = 24
	.FixedCellHeight = 16
	.WeekDays = "Su Mo Tu We Th Fr Sa"
	.HeaderForeColor = RGB(255,0,0)
	.HeaderBackColor = RGB(255,255,255)
End With

38. How can I specify the width and height for dates being displayed in the calendar

With Calendar1
	.AutoSize = exFixedSize
	.FixedCellWidth = 22
	.FixedCellHeight = 16
End With

37. How can I specify the width and height for dates being displayed in the calendar

With Calendar1
	.AutoSize = exFixedSize
	.FixedCellWidth = 32
	.FixedCellHeight = 24
End With

36. How do I change the appearance for dates in the calendar

With Calendar1
	.AppearanceDay = Day3D
	.BackColor = &H8000000f
End With

35. How do I specify the color for the grid lines

With Calendar1
	.DrawGridLine = SmallDots
	.GridLineColor = RGB(255,0,0)
End With

34. How do I draw the grid lines

With Calendar1
	.DrawGridLine = SmallDots
End With

33. How do I change the foreground color for the week days and week numbers header

With Calendar1
	.HeaderForeColor = RGB(255,0,0)
	.ShowWeeks = True
End With

32. How do I change the background color for the week days and week numbers header

With Calendar1
	.HeaderBackColor = RGB(255,0,0)
	.ShowWeeks = True
End With

31. How can I show or hide the 'Today' button

With Calendar1
	.ShowTodayButton = False
End With

30. How can I show or hide the scroll bar that changes the year

With Calendar1
	.ShowYearScroll = False
End With

29. How can I show or hide the header that displays the months

With Calendar1
	.ShowMonth = False
End With

28. How can I show or hide the header that displays the week days

With Calendar1
	.ShowDays = False
End With

27. How do I show or hide the weeks

With Calendar1
	.ShowWeeks = True
End With

26. How can I change the visual appearance of Today date in the calendar

With Calendar1
	.MarkToday = True
	.Background(exMarkToday) = RGB(255,0,0)
End With

25. How do I mark the Today date

With Calendar1
	.MarkToday = True
End With

24. How can I show the control's selection even if the control loses the focus

With Calendar1
	.HideSelection = False
End With

23. How can I hide the control's selection when the control loses the focus

With Calendar1
	.HideSelection = True
End With

22. How do I enable single selection

With Calendar1
	.SingleSel = True
End With

21. How do I enable multiple selection

With Calendar1
	.SingleSel = False
End With

20. How do I disable or enable the control

With Calendar1
	.Enabled = False
End With

19. Can I change the forecolor for the tooltip

With Calendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipForeColor) = RGB(255,0,0)
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

18. Can I change the background color for the tooltip

With Calendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipBackColor) = RGB(255,0,0)
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

17. Can I change the default border of the tooltip, using your EBN files

With Calendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &H1000000
	.Events.Add(Calendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

16. How can I change the visual appearance of the selected month, in the months selector, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exMonthSelect) = &H1000000
	.Background(exMonthSelectForeColor) = RGB(255,0,0)
End With

15. How can I change the visual appearance of Today date in the calendar, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\pushed.ebn"
	.Background(exMarkToday) = &H1000000
	.Background(exDropDownSelForeColor) = RGB(1,0,0)
	.SelForeColor = RGB(0,0,0)
	.MarkToday = True
End With

14. How can I change the visual appearance of separator between calendar and 'Today' button , using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exDateSeparatorBar) = &H1000000
End With

13. How can I change the visual appearance of the scrolling bar for years, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exDateScrollRange) = &H1000000
	.Background(exDateScrollThumb) = &H2000000
End With

12. How can I change the visual appearance of 'Today' button, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exDateTodayUp) = &H1000000
	.Background(exDateTodayDown) = &H2000000
End With

11. How can I change the visual appearance of header , using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exDateHeader) = &H1000000
	.HeaderForeColor = RGB(255,0,0)
End With

10. How can I change the visual appearance of header that week numbers, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exWeeksHeader) = &H1000000
	.HeaderForeColor = RGB(255,0,0)
	.ShowWeeks = True
End With

9. How can I change the visual appearance of header that displays days, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exDaysHeader) = &H1000000
End With

8. How can I change the visual appearance of the drop down button, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exDropDownButtonUp) = &H1000000
	.Background(exDropDownButtonDown) = &H2000000
End With

7. How do I change the visual appearance of the left and right buttons in the calendar's header, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exScrollLeft) = &H1000000
	.Background(exScrollRight) = &H1000000
End With

6. How do I change the visual appearance of the up and down buttons in the calendar's header, using EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exScrollUp) = &H1000000
	.Background(exScrollDown) = &H1000000
End With

5. How do I change the control's foreground color

With Calendar1
	.ForeColor = RGB(255,0,0)
End With

4. How do I change the control's background color

With Calendar1
	.BackColor = RGB(200,200,200)
End With

3. How can I change the control's font

With Calendar1
	.Font.Name = "Verdana"
End With

2. How do I change the control's border, using your EBN files

With Calendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
End With

1. How do I remove the control's border

With Calendar1
	.Appearance = None2
End With