|
325
|
Clear Undo/Redo queue (method 2)
Dim c
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
c = .UndoRedoQueueLength
.UndoRedoQueueLength = 0
.UndoRedoQueueLength = c
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
324
|
Clear Undo/Redo queue (method 1)
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.AllowUndoRedo = True
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
323
|
Removes Redo operations
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.Undo()
.RedoRemoveAction(13)
Debug.Print( .get_RedoListAction() )
.EndUpdate()
End With
|
|
322
|
Removes Undo operations
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.UndoRemoveAction(13)
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
321
|
Record the UI operations as a block of undo/redo operations
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
.StartBlockUndoRedo()
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.EndBlockUndoRedo()
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.GroupUndoRedoActions(2)
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
319
|
Limits the number of entries within the Undo/Redo queue
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
.UndoRedoQueueLength = 1
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
318
|
Lists the Redo actions that can be performed on the control
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.Undo()
Debug.Print( .get_RedoListAction() )
.EndUpdate()
End With
|
|
317
|
Lists the Undo actions that can be performed on the control
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
Debug.Print( .get_UndoListAction() )
.EndUpdate()
End With
|
|
316
|
Checks whether the Undo operation is possible
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.Undo()
Debug.Print( "CanRedo" )
Debug.Print( .CanRedo )
.EndUpdate()
End With
|
|
315
|
Call Redo by code
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.Undo()
.Redo()
.EndUpdate()
End With
|
|
314
|
Checks whether the Undo operation is possible
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
Debug.Print( "CanUndo" )
Debug.Print( .CanUndo )
.EndUpdate()
End With
|
|
313
|
Call Undo by code
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.Undo()
.EndUpdate()
End With
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
Dim h
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.StartBlockUndoRedo()
With .Events.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
h = .StartUpdateEvent
.BodyBackColor = Color.FromArgb(0,0,1)
.BodyForeColor = Color.FromArgb(255,255,255)
.StatusColor = Color.FromArgb(255,0,0)
.EndUpdateEvent(h)
End With
.EndBlockUndoRedo()
.EndUpdate()
End With
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
Dim h
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 11:30:00 AM#)
.StartBlockUndoRedo()
With .Events.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
h = .StartUpdateEvent
.BodyBackColor = Color.FromArgb(0,0,1)
.BodyForeColor = Color.FromArgb(255,255,255)
.StatusColor = Color.FromArgb(255,0,0)
.EndUpdateEvent(h)
End With
.EndBlockUndoRedo()
.EndUpdate()
End With
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
With Exschedule1
With .Events
With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyPattern
.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal
.Color = Color.FromArgb(224,224,224)
End With
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).EnsureVisible()
End With
End With
|
|
309
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
With Exschedule1
Debug.Print( "LayoutEndChanging" )
Debug.Print( Operation )
End With
End Sub
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.EndUpdate()
End With
|
|
308
|
Turn on the Undo/Redo feature
With Exschedule1
.BeginUpdate()
.AllowUndoRedo = True
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
End With
.EndUpdate()
End With
|
|
307
|
How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
With Exschedule1
Debug.Print( Operation )
.DayViewHeight = 2016
End With
End Sub
With Exschedule1
.BeginUpdate()
With .Calendar
.set_SelectDate(#5/20/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRowLockHeader
.DayViewHeight = 2016
.TimeScales.Item(0).MinorTimeRuler = "00:10"
.DayStartTime = "00:00"
.DayEndTime = "24:00"
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
.Calendar.Selection = #5/24/2012#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.ApplyGroupingColors = False
With .Groups
With .Add(1,"Group 1")
.Visible = True
.EventBackColor = Color.FromArgb(128,128,128)
.Title = "1'st Group"
End With
With .Add(2,"Group 2")
.Visible = True
.EventBackColor = Color.FromArgb(255,0,0)
.Title = "2'nd Group"
End With
End With
.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
.DefaultEventShortLabel = .DefaultEventLongLabel
With .Events
.Add(#5/24/2012 1:00:00 AM#,#5/24/2012 2:00:00 AM#).GroupID = 1
.Add(#5/24/2012 1:45:00 AM#,#5/24/2012 2:30:00 AM#).GroupID = 2
.Add(#5/24/2012 2:30:00 AM#,#5/24/2012 4:30:00 AM#).GroupID = 1
End With
.EndUpdate()
End With
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #1/10/2001#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
With .Groups
With .Add(1,"Group 1")
.Title = "First"
.Visible = True
End With
With .Add(2,"Group 2")
.Title = "Second"
.Visible = True
End With
With .Add(3,"Group 3")
.Title = "Third"
.Visible = True
End With
End With
.DayViewWidth = 144
.Groups.Item(1).Width = 48
.Groups.Item(2).Width = 48
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
End With
.EndUpdate()
End With
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
.ImageSize = 32
.Font.Size = 16
.EventsFont.Size = 16
.TimeScaleFont.Size = 16
.TimeScales.Item(0).Width = 128
.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
With .Events
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "1/2"
.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#).Pictures = "1,2"
End With
.EndUpdate()
End With
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
.ImageSize = 16
.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
With .Events
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "1/2"
.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#).Pictures = "1,2"
End With
.EndUpdate()
End With
|
|
303
|
Is it possible to show a different background color for alternate days
With Exschedule1
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleDayHeaderBackColor,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleDayHeaderForeColor,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleDayBackColorAlternate,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleDayForeColorAlternate,Color.FromArgb(128,128,128))
.Calendar.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
|
|
302
|
How can I select all events
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
End With
.SelectAll()
.EndUpdate()
End With
|
|
301
|
How can I unselect all events
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
End With
.SelectAll()
.Selection = ""
.EndUpdate()
End With
|
|
300
|
How do I immediately select a newly added event
' AddEvent event - Notifies your application once the a new event is added.
Private Sub Exschedule1_AddEvent(ByVal sender As System.Object,ByVal Ev As exontrol.EXSCHEDULELib.Event) Handles Exschedule1.AddEvent
' Ev.Selected = True
End Sub
|
|
299
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible. Also, the possibility to have a complete week of that 10 rooms.
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.BodyEventForeColor = Color.FromArgb(255,255,255)
.DayStartTime = "09:00"
.DayEndTime = "14:00"
With .Calendar
.set_SelectDate(#5/24/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
With .Groups
With .Add(1,"1")
.Visible = True
.EventBackColor = Color.FromArgb(255,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(2,"2")
.Visible = True
.EventBackColor = Color.FromArgb(204,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(3,"3")
.Visible = True
.EventBackColor = Color.FromArgb(153,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(4,"4")
.Visible = True
.EventBackColor = Color.FromArgb(102,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(5,"5")
.Visible = True
.EventBackColor = Color.FromArgb(51,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 3
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 4
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 5
End With
.EndUpdate()
End With
|
|
298
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.Calendar.Selection = #5/24/2012#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.BodyEventForeColor = Color.FromArgb(255,255,255)
.DayStartTime = "09:00"
.DayEndTime = "14:00"
With .Groups
With .Add(1,"Room1")
.Visible = True
.EventBackColor = Color.FromArgb(255,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(2,"Room2")
.Visible = True
.EventBackColor = Color.FromArgb(204,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(3,"Room3")
.Visible = True
.EventBackColor = Color.FromArgb(153,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(4,"Room4")
.Visible = True
.EventBackColor = Color.FromArgb(102,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
With .Add(5,"Room5")
.Visible = True
.EventBackColor = Color.FromArgb(51,0,0)
.HeaderBackColor = .EventBackColor
.HeaderForeColor = Color.FromArgb(255,255,255)
End With
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 3
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 4
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 5
End With
.EndUpdate()
End With
|
|
297
|
Please could you let me know if it is possible to change the increment when the user scrolls the mouse wheel as its to slow by default
With Exschedule1
.VerticalScrollWheel = 3
End With
|
|
296
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)
With Exschedule1
.BeginUpdate()
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
.DefaultEventLongLabel = "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (" & _
"`Group's ID:` + %4 + ` , ` + %256 ) replace `<br>` with `,` ) ) %>"
.DefaultEventShortLabel = "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( " & _
"(`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
.Calendar.Selection = #1/10/2001#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.HeaderGroupHeight = 1
.ShowAllDayHeader = True
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
With .Groups
With .Add(1,"Group 1")
.Title = "First"
.Visible = True
End With
With .Add(2,"Group 2")
.Title = "Second"
.Visible = True
End With
End With
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = 1
.AllDayEvent = True
End With
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = 2
.AllDayEvent = True
End With
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = 2
.AllDayEvent = True
End With
End With
.EndUpdate()
End With
|
|
295
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)
With Exschedule1
.BeginUpdate()
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.DefaultEventLongLabel = "<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's " & _
"Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>"
.DefaultEventShortLabel = "<%=%><%= %4 < 0 ? %256 : ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br" & _
">` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
.Calendar.Selection = #1/10/2001#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
.HeaderGroupHeight = 1
.ShowAllDayHeader = True
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
With .Groups
With .Add(1,"Group 1")
.Title = "First"
.Visible = True
End With
With .Add(2,"Group 2")
.Title = "Second"
.Visible = True
End With
End With
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = 1
.AllDayEvent = True
End With
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = -1
.AllDayEvent = True
End With
With .Add(#1/10/2001#,#1/10/2001#)
.GroupID = 2
.AllDayEvent = True
End With
End With
.EndUpdate()
End With
|
|
294
|
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
.DefaultEventLongLabel = "<%=%><%=%5%><br><%=%256%>"
With .Events
.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 10:00:00 AM#).Caption = "textzeile1<br>textzeile2<br>textzeile3"
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 11:00:00 AM#).Caption = "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
End With
.EndUpdate()
End With
|
|
293
|
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required
With Exschedule1
.BeginUpdate()
.TimeScales.Item(0).Visible = False
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
With .Calendar
.Selection = #5/24/2012#
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectMonth)
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).ShowStatus = False
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
End With
.EndUpdate()
End With
|
|
292
|
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #5/21/2012#
.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
End With
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMultiDaysEvent = False
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
.TimeScales.Item(0).MinorTimeRuler = "00:10"
.DayStartTime = "10:00"
.DayEndTime = "14:00"
.EndUpdate()
End With
|
|
291
|
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
290
|
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar
With Exschedule1
.BeginUpdate()
With .Calendar
.set_SelectDate(#5/20/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectFocusDay)
End With
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMultiDaysEvent = False
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
.EndUpdate()
End With
|
|
289
|
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
.Calendar.Selection = #6/27/2012#
With .MarkZones.Add("zoneA",#6/27/2012 9:00:00 AM#,#6/27/2012 11:00:00 AM#)
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty
.LongLabel = "Yellow"
.BackColor = Color.FromArgb(255,255,0)
End With
With .MarkZones.Add("zoneB",#6/27/2012 0:00:00 PM#,#6/27/2012 1:30:00 PM#)
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty
.LongLabel = "Green"
.BackColor = Color.FromArgb(0,255,0)
End With
.EndUpdate()
End With
|
|
288
|
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date
With Exschedule1
.BeginUpdate()
.Calendar.Selection = Exschedule1.ExecuteTemplate("#5/24/2012#")
With .MarkTimes
With .Add("timer",Exschedule1.ExecuteTemplate("#5/24/2012 11:35#"))
.Movable = True
.LineColor = Color.FromArgb(0,0,255)
.StatusEventBackColor = Color.FromArgb(0,0,255)
.TimeScaleLineColor = Color.FromArgb(0,0,255)
.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
End With
End With
.EndUpdate()
End With
|
|
287
|
How do I display a picture with transparency
' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub Exschedule1_PictureClick(ByVal sender As System.Object,ByVal Key As String) Handles Exschedule1.PictureClick
With Exschedule1
Debug.Print( Key )
End With
End Sub
With Exschedule1
.BeginUpdate()
.ShowSelectEvent = False
.Calendar.Selection = #5/24/2012#
With .Pictures
.Add("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChp" & _
"AkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZ" & _
"AghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8AS" & _
"g4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6Af" & _
"ApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3" & _
"gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAcho" & _
"hkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0Aa" & _
"BQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgj" & _
"hUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hH" & _
"B7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" & _
"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gn" & _
"gQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthA" & _
"hAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhI" & _
"B/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1" & _
"AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBP" & _
"hwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8" & _
"B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/U" & _
"gehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9" & _
"iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69" & _
"iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2" & _
"HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+R" & _
"YOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgN" & _
"ACNAAEkRROEQrhCGAgkBA")
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).Pictures = "pic1"
End With
.EndUpdate()
End With
|
|
286
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)
' AddEvent event - Notifies your application once the a new event is added.
Private Sub Exschedule1_AddEvent(ByVal sender As System.Object,ByVal Ev As exontrol.EXSCHEDULELib.Event) Handles Exschedule1.AddEvent
' Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
End Sub
With Exschedule1
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.Calendar.Selection = #1/10/2001#
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
.StatusEventSize = 0
.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,4)
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 1:00:00 PM#)
.Add(#1/10/2001 0:30:00 PM#,#1/10/2001 1:00:00 PM#)
End With
End With
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
With Exschedule1
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.Calendar.Selection = #1/10/2001#
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
.StatusEventSize = 0
.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,4)
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "[frame=RGB(128,128,128),framethick]"
.Add(#1/10/2001 0:30:00 PM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
End With
End With
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
With .Groups
With .Add(1,"Group A")
.Caption = "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
.Visible = True
.EventBackColor = Color.FromArgb(128,128,128)
End With
With .Add(2,"Group B")
.Caption = "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
.Visible = True
.EventBackColor = Color.FromArgb(255,0,0)
End With
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 1
End With
.EndUpdate()
End With
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
With Exschedule1
.BeginUpdate()
.set_HTMLPicture("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5" & _
"gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhh" & _
"AEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBY" & _
"AGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4" & _
"gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgs" & _
"BfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArAr" & _
"grh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9" & _
"h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1" & _
"gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5" & _
"hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" & _
"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7" & _
"B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAk" & _
"B6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChC" & _
"gCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh2" & _
"77ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hh" & _
"gygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0" & _
"A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAb" & _
"BmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAk" & _
"hhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5" & _
"EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=")
.set_HTMLPicture("pic2","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBn" & _
"gkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAm" & _
"hGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWr" & _
"gAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZ" & _
"hRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0" & _
"gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAy" & _
"A6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7" & _
"BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAq" & _
"gqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7" & _
"V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" & _
"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hH" & _
"APgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQ" & _
"gQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshy" & _
"gEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMAS" & _
"B/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgB" & _
"hjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhe" & _
"hcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhc" & _
"guBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0" & _
"hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc" & _
"40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQik" & _
"DlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC" & _
"+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQY" & _
"IE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHED" & _
"wRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ" & _
"0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGg" & _
"TBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=")
.Calendar.Selection = #5/24/2012#
.DisplayGroupingButton = True
.ShowGroupingEvents = True
With .Groups
With .Add(1,"<c><b>Group</b><br><c><img>pic1</img>")
.Visible = True
.EventBackColor = Color.FromArgb(128,128,128)
End With
With .Add(2,"<c><b>Group</b><br><c><img>pic2</img>")
.Visible = True
.EventBackColor = Color.FromArgb(255,0,0)
End With
End With
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 1
End With
.HeaderGroupHeight = -1
.EndUpdate()
End With
|
|
282
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
Dim s,var_CopyTo
With Exschedule1
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
With .Calendar
.Selection = "#1/1/2016#"
.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
End With
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
With .Events
.Add(#1/10/2016 8:30:00 AM#,#1/10/2016 2:30:00 PM#)
.Add(#1/11/2016 9:30:00 AM#,#1/11/2016 11:30:00 AM#)
.Add(#1/15/2016 10:30:00 AM#,#1/15/2016 11:30:00 AM#)
End With
s = .Calendar.Selection
.Calendar.Selection = "0"
var_CopyTo = .get_CopyTo("c:/temp/test.png")
Debug.Print( "Look for c:/temp/test.png file" )
.Calendar.Selection = s
End With
|
|
281
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
Dim var_CopyTo
With Exschedule1
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
With .Calendar
.Selection = #1/1/2012#
.set_SelectDate(#1/1/2012#,False)
End With
With .Events
.Add(#1/1/2012 8:30:00 AM#,#1/1/2012 9:30:00 AM#)
.Add(#1/1/2012 8:35:00 AM#,#1/1/2012 9:35:00 AM#)
.Add(#1/1/2012 10:30:00 AM#,#1/1/2012 0:30:00 PM#)
End With
var_CopyTo = .get_CopyTo("c:/temp/test.png")
Debug.Print( "Look for c:/temp/test.png file" )
End With
|
|
280
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
Dim var_CopyTo
With Exschedule1
With .Calendar
.Selection = #1/1/2012#
.set_SelectDate(#1/1/2012#,False)
End With
With .Events
.Add(#1/1/2012 8:30:00 AM#,#1/1/2012 9:30:00 AM#)
.Add(#1/1/2012 8:35:00 AM#,#1/1/2012 9:35:00 AM#)
.Add(#1/1/2012 10:30:00 AM#,#1/1/2012 0:30:00 PM#)
End With
var_CopyTo = .get_CopyTo("c:/temp/test.png")
Debug.Print( "Look for c:/temp/test.png file" )
End With
|
|
279
|
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value >= #5/20/2012# and value <= #5/26/2012#"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = &H23 Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventNoMax
.BodyEventBackColor = Color.FromArgb(128,128,128)
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,Color.FromArgb(220,220,220))
With .Events
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
With Exschedule1
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
End With
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
With Exschedule1
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exSelectCreateEvent
End With
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
With Exschedule1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHf" & _
"j2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==")
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,&H1000000)
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,Color.FromArgb(220,220,220))
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,Color.FromArgb(0,0,0))
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
272
|
Is it possible to specify the number of all-day events to be visible
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll Or exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
271
|
How do I disable scrolling the all-day header
With Exschedule1
.BeginUpdate()
.AllowSelectCreateEvent = exontrol.EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
.Calendar.Selection = #5/21/2012#
.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowAllDayEventScroll = exontrol.EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventNoMin
With .Events
.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
End With
.EndUpdate()
End With
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exDisableSplitter Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
With .Calendar
.OnSelectDate = exontrol.EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate
.Selection = #1/10/2001#
.SingleSel = True
End With
.Calendar.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderMonthColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderDateColor))
.TimeScales.Item(0).AllowResize = False
.DayViewWidth = 0
.EndUpdate()
End With
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
Dim var_CopyTo
With Exschedule1
With .Calendar
.Selection = #6/1/2001#
.Selection = "value in (#6/11/2001#,#6/12/2001#)"
End With
.DayViewWidth = 512
.DayViewHeight = 512
With .Events
.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
End With
var_CopyTo = .get_CopyTo("C:/Temp/test.pdf")
Debug.Print( "Look For: C:/Temp/test.pdf file" )
End With
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
With Exschedule1
With .Calendar
.Selection = #6/1/2001#
.Selection = "value in (#6/11/2001#,#6/12/2001#)"
End With
.DayViewWidth = 512
.DayViewHeight = 512
With .Events
.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
End With
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage=On"
.PrintExt = Exschedule1
.CopyTo("C:/Temp/test.pdf")
Debug.Print( "Look For: C:/Temp/test.pdf file" )
End With
End With
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
Dim var_CopyTo,var_CopyTo1
With Exschedule1
With .Calendar
.Selection = #6/1/2001#
.Selection = "value in (#6/11/2001#,#6/12/2001#)"
End With
.DayViewWidth = 512
.DayViewHeight = 512
With .Events
.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
End With
var_CopyTo = .get_CopyTo("C:/Temp/test.bmp")
var_CopyTo1 = .get_CopyTo("C:/Temp/test.jpg")
Debug.Print( "Look For: C:/Temp/test.* file" )
End With
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
With Exschedule1
With .Calendar
.Selection = #6/1/2001#
.Selection = "value in (#6/11/2001#,#6/12/2001#)"
End With
.DayViewWidth = 512
.DayViewHeight = 512
With .Events
.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
End With
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage=On"
.PrintExt = Exschedule1
.CopyTo("C:/Temp/test.bmp")
.CopyTo("C:/Temp/test.jpg")
Debug.Print( "Look For: C:/Temp/test.* file" )
End With
End With
|
|
265
|
Recurrence: The 2nd to last weekday of the month
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/29/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/29/1997 9:00:00 AM#,#9/29/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
End With
.EndUpdate()
End With
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/4/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/4/1997 9:00:00 AM#,#9/4/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
End With
.EndUpdate()
End With
|
|
263
|
Recurrence: The last work day of the month
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/30/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
End With
.EndUpdate()
End With
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #8/5/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
End With
.EndUpdate()
End With
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #8/5/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
End With
.EndUpdate()
End With
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #11/5/1996#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#11/5/1996 9:00:00 AM#,#11/5/1996 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
End With
.EndUpdate()
End With
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/13/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/13/1997 9:00:00 AM#,#9/13/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
End With
.EndUpdate()
End With
|
|
258
|
Recurrence: Every Friday the 13th, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #2/13/1998#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
End With
.EndUpdate()
End With
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #6/5/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#6/5/1997 9:00:00 AM#,#6/5/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
End With
.EndUpdate()
End With
|
|
256
|
Recurrence: Every Thursday in March, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #3/13/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#3/13/1997 9:00:00 AM#,#3/13/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
End With
.EndUpdate()
End With
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #5/12/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#5/12/1997 9:00:00 AM#,#5/12/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
End With
.EndUpdate()
End With
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #5/19/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#1/1/1997 9:00:00 AM#,#1/1/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYDAY=20MO"
End With
.EndUpdate()
End With
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #1/1/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#1/1/1997 9:00:00 AM#,#1/1/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
End With
.EndUpdate()
End With
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #3/10/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#3/10/1997 9:00:00 AM#,#3/10/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
End With
.EndUpdate()
End With
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #6/10/1997#
.ShowNonMonthDays = False
.MaxMonthX = 2
.MaxMonthY = 2
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#6/10/1997 9:00:00 AM#,#6/10/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
End With
.EndUpdate()
End With
|
|
250
|
Recurrence: Every Tuesday, every other month
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/2/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
End With
.EndUpdate()
End With
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/10/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/10/1997 9:00:00 AM#,#9/10/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
End With
.EndUpdate()
End With
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/30/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/3/1997 9:00:00 AM#,#9/3/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
End With
.EndUpdate()
End With
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/2/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
End With
.EndUpdate()
End With
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/28/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/28/1997 9:00:00 AM#,#9/28/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYMONTHDAY=-3"
End With
.EndUpdate()
End With
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/22/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/22/1997 9:00:00 AM#,#9/22/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
End With
.EndUpdate()
End With
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/7/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/7/1997 9:00:00 AM#,#9/7/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
End With
.EndUpdate()
End With
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/5/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/5/1997 9:00:00 AM#,#9/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
End With
.EndUpdate()
End With
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/5/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/5/1997 9:00:00 AM#,#9/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
End With
.EndUpdate()
End With
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/16/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
End With
.EndUpdate()
End With
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/17/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
End With
.EndUpdate()
End With
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/16/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
End With
.EndUpdate()
End With
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/16/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
End With
.EndUpdate()
End With
|
|
237
|
Recurrence: Every other day - forever
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/4/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;INTERVAL=2"
End With
.EndUpdate()
End With
|
|
236
|
Recurrence: Daily until December 24, 1997
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/17/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;UNTIL=19971224T000000Z"
End With
.EndUpdate()
End With
|
|
235
|
Recurrence: Daily for 10 occurrences
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #9/9/1997#
.ShowNonMonthDays = False
.MaxMonthY = 4
With .HighlightEvent
.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternFrame
.Bold = False
End With
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
End With
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
With .Events
.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;COUNT=10"
End With
.EndUpdate()
End With
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #1/1/2016#
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
.DisplayWeekNumberAs = exontrol.EXSCHEDULELib.WeekNumberAsEnum.exSimpleWeekNumber
End With
.EndUpdate()
End With
|
|
233
|
How do I display the week number according to ISO8601 standard
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #1/4/2016#
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
.DisplayWeekNumberAs = exontrol.EXSCHEDULELib.WeekNumberAsEnum.exISO8601WeekNumber
End With
.EndUpdate()
End With
|
|
232
|
How do I hide the week number
With Exschedule1
.BeginUpdate()
With .Calendar
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
.ShowWeeks = False
.ShowNonMonthDays = False
End With
.EndUpdate()
End With
|
|
231
|
How can I change the background color of the all day header
With Exschedule1
.BeginUpdate()
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
.ShowAllDayHeader = True
With .Calendar
.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
.set_SelectDate(#5/8/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
.set_SelectDate(#5/15/2012#,False)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayHeaderBackColor,Color.FromArgb(240,240,240))
.HeaderAllDayEventHeight = -20
.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
.EndUpdate()
End With
|
|
230
|
How can I display a single text on a specified date
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/26/2012#
.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
.NonworkingTimes.Add("value = #05/25/2012#","09:00","10:00",1234)
.EndUpdate()
End With
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
Dim rs
With Exschedule1
rs = New ADODB.Recordset()
With rs
.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
End With
.BeginUpdate()
.Calendar.Selection = #11/11/2013#
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,"Start")
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,"End")
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,"Extra")
.DataSource = rs
Debug.Print( .Events.Item(1).get_KnownProperty(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventID) )
.EndUpdate()
End With
|
|
228
|
Is it possible to display some text/image on the schedule's view background
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/25/2012#
.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
.NonworkingPatterns.Add(1235,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
.NonworkingTimes.Add("weekday(value) = 5","08:00","08:59:59",1234)
.NonworkingTimes.Add("weekday(value) = 5","09:00","09:59:59",1235)
.NonworkingTimes.Add("weekday(value) = 5","10:00","10:59:59",1234)
.EndUpdate()
End With
|
|
227
|
How can I display a text on the schedule's view background
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/25/2012#
.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
.NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234)
.EndUpdate()
End With
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
With Exschedule1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exContextMenuAppearance,&H1000000)
End With
|
|
225
|
How do I customize the edit's context menu
With Exschedule1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End With
|
|
224
|
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
With Exschedule1
Debug.Print( Operation )
.DayViewHeight = 2016
End With
End Sub
With Exschedule1
.BeginUpdate()
With .Calendar
.set_SelectDate(#5/20/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRowLockHeader
.DayViewHeight = 2016
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMultiDaysEvent = False
.TimeScales.Item(0).MinorTimeRuler = "00:10"
.DayStartTime = "00:00"
.DayEndTime = "24:00"
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
.EndUpdate()
End With
|
|
223
|
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed
With Exschedule1
.BeginUpdate()
With .Calendar
.set_SelectDate(#5/20/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
.DayViewHeight = 2016
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMultiDaysEvent = False
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
.TimeScales.Item(0).MinorTimeRuler = "00:10"
.DayStartTime = "00:00"
.DayEndTime = "24:00"
.EndUpdate()
End With
|
|
222
|
How can I show a single week, no calendar
With Exschedule1
.BeginUpdate()
With .Calendar
.set_SelectDate(#5/20/2012#,True)
.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowMultiDaysEvent = False
.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
.EndUpdate()
End With
|
|
221
|
How do I select the dates within a giving interval only
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #5/1/2012#
.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
End With
With .Events
.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
End With
.EndUpdate()
End With
|
|
220
|
How do I display the dates within a giving interval only
With Exschedule1
.BeginUpdate()
With .Calendar
.Selection = #5/24/2012#
.MinDate = #5/13/2012#
.MaxDate = #5/26/2012#
End With
With .Events
.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
End With
.EndUpdate()
End With
|
|
219
|
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM
With Exschedule1
.DayStartTime = "00:00"
.DayEndTime = "24:00"
With .TimeScales.Item(0)
.MajorTimeLabel = "<%hh%>:<%nn%>"
.Width = 32
End With
End With
|
|
218
|
How do I show a double frame
With Exschedule1
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.Calendar.Selection = #1/10/2001#
.DefaultEventLongLabel = ""
.DefaultEventShortLabel = ""
With .Events
With .Add(#1/10/2001 8:00:00 AM#,#1/10/2001 10:00:00 AM#)
.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=" & _
"RGB(0,0,0)]"
.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt,255)
.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt,"35%")
End With
With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 0:00:00 PM#)
.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt,"35%")
.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt2,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt,65535)
End With
With .Add(#1/10/2001 0:00:00 PM#,#1/10/2001 2:00:00 PM#)
.ShowStatus = False
.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame" & _
"=RGB(0,0,0)]"
End With
With .Add(#1/10/2001 2:00:00 PM#,#1/10/2001 4:00:00 PM#)
.ShowStatus = False
.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,fram" & _
"e=RGB(0,0,0)]"
End With
End With
End With
|
|
217
|
How can I add more colors on the event
With Exschedule1
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.Calendar.Selection = #1/10/2001#
With .Events
.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
.Add(#1/10/2001 11:00:00 AM#,#1/10/2001 2:00:00 PM#).BodyBackgroundExt = "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],clien" & _
"t[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client" & _
"[back=RGB(0,0,0)])"
End With
End With
|
|
216
|
When I have 3 month visible in the calendar section, it seems I can only move back and forth through the months 3 months at a time. Is it possible to move back and forth through the months 1 month at a time
With Exschedule1
With .Calendar
.AlignDate = False
.MinMonthY = 2
.MaxMonthY = 2
End With
End With
|
|
215
|
How can I bound the control to a data source
' Error event - Fired when an internal error occurs.
Private Sub Exschedule1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Exschedule1.Error
With Exschedule1
Debug.Print( Description )
End With
End Sub
Dim rs
With Exschedule1
rs = New ADODB.Recordset()
With rs
.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
End With
.BeginUpdate()
.Calendar.Selection = #11/11/2013#
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,"Start")
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,"End")
.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,"Extra")
.DataSource = rs
.EndUpdate()
End With
|
|
214
|
How can I start drag and drop an event
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
With Exschedule1
.BeginUpdate()
.OLEDropMode = exontrol.EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual
.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
.DefaultEventShortLabel = .DefaultEventLongLabel
.Calendar.Selection = #1/10/2001#
.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
.Events.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).ExtraLabel = "Click the event and wait to start dragging."
.EndUpdate()
End With
|
|
213
|
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done
With Exschedule1
.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarEllipticClip Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
.Calendar.Selection = #1/1/2001#
.set_HighlightDate(#1/9/2001#,65280)
.set_HighlightDate(#1/17/2001#,"65280,255")
.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
|
|
212
|
How can I arrange the colors to highlight the date vertically
With Exschedule1
.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateVertical Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
.Calendar.Selection = #1/1/2001#
.set_HighlightDate(#1/9/2001#,65280)
.set_HighlightDate(#1/17/2001#,"65280,255")
.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
|
|
211
|
Is it possible to highlight a date in gradient
With Exschedule1
.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
.Calendar.Selection = #1/1/2001#
.set_HighlightDate(#1/9/2001#,65280)
.set_HighlightDate(#1/17/2001#,"65280,255")
.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
|
|
210
|
Is it possible to highlight a date in the calendar panel only
With Exschedule1
.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
.Calendar.Selection = #1/1/2001#
.set_HighlightDate(#1/9/2001#,65280)
.set_HighlightDate(#1/17/2001#,"65280,255")
.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
|
|
209
|
Is it possible to highlight a date in the control
With Exschedule1
.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDate
.Calendar.Selection = #1/25/2001#
.set_HighlightDate(#1/9/2001#,65280)
.set_HighlightDate(#1/17/2001#,"65280,255")
.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
With Exschedule1
.BeginUpdate()
.BodyEventBackColor = Color.FromArgb(240,240,240)
.ShowGroupingEvents = True
.DisplayGroupingButton = True
.Groups.Add(1,"Group 1").Visible = True
.Groups.Add(2,"Group 2").Visible = True
.Calendar.Selection = #5/25/2012#
.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBrick)
With .NonworkingTimes
.Add("1","00:00","08:45",1234)
.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1
.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2
End With
.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#).GroupID = 1
.EndUpdate()
End With
|
|
207
|
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exschedule1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.DblClick
With Exschedule1
Debug.Print( "DblClick " )
Debug.Print( X )
Debug.Print( Y )
End With
End Sub
With Exschedule1
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).StatusColor = Color.FromArgb(255,0,0)
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
End With
.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
.EndUpdate()
End With
|
|
206
|
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale
With Exschedule1
.DayEndTime = "13:00"
With .TimeScales.Add("+3:00")
.AlignLeft = True
.Caption = "EST <b>+03"
End With
.BeginUpdate()
.Calendar.Selection = #5/24/2012#
.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
With .Events
.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
End With
.EndUpdate()
End With
|
|
205
|
Is there a way to add a hyperlink to the event that would run a report with parameters
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
With Exschedule1
Debug.Print( AnchorID )
Debug.Print( Options )
End With
End Sub
With Exschedule1
.Calendar.Selection = #6/20/2012#
With .Events
.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"
.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
End With
End With
|
|
204
|
Can I have multiple months in the calendar section
With Exschedule1
With .Calendar
.MinMonthY = 2
.MaxMonthY = 2
End With
End With
|
|
203
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
With Exschedule1
.Calendar.Selection = #6/20/2012#
With .Events
With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
.UserData = 1234
.ShortLabel = "<%=%256%><br>Order: <%=%6%>"
.LongLabel = .ShortLabel
End With
With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
.UserData = 1235
.ShortLabel = "<%=%256%>, Order: <%=%6%>"
.LongLabel = .ShortLabel
End With
End With
End With
|
|
202
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
With Exschedule1
.Calendar.Selection = #6/20/2012#
.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>"
.DefaultEventLongLabel = .DefaultEventShortLabel
With .Events
.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).UserData = 1234
.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).UserData = 1235
End With
End With
|
|
201
|
Can you add text with links in the event
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
With Exschedule1
Debug.Print( AnchorID )
Debug.Print( Options )
End With
End Sub
With Exschedule1
.Calendar.Selection = #6/20/2012#
With .Events
With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
.ShortLabel = "<a 1><%=%256%></a>"
.LongLabel = .ShortLabel
End With
With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
.ShortLabel = "<a 2><%=%256%></a>"
.LongLabel = .ShortLabel
End With
End With
End With
|