Gravitybox Software | Schedule.NET Icons

Users process information much faster with graphical displays. An appointment that is just a square is boring. Gravitybox Schedule.NET allows you to add any number of icons to an appointment. Many times you will need to convey some sort of information to a user via icons. This is easily accomplished user the appointment's IconCollection.

In the screen shot above the appointment has a header with an icon defined for it. The header can display one icon if needed. More importantly, in an appointment's left margin multiple icons can be displayed. In the above image you see three icons that could be used to define information for your application. The appointment text is moved to the right and the icons are shown in the left margin. If there are numerous icons the left margin might create columns of icons if one column is not enough.

All of the icons above are distributed with the schedule. They were pulled from the schedule's DefaultIcons and ScheduleIcons collections. You may also use icons form disk, but be aware that there are a few icons compiled into the schedule itself. The following code snippet was used to create the screen shot above.

Dim a1 As Gravitybox.Objects.Appointment a1 = _
    Schedule1.AppointmentCollection.Add("", _
    #6/2/2004#, #9:00:00 AM#, 120)

a1.Subject = "This is a test appointment for you to see" a1.Appearance.IsRound = True
a1.Appearance.BackColor = Color.LightBlue
a1.Appearance.BackColor2 = Color.White
a1.Appearance.BackGradientStyle = _
     GradientStyleConstants.Horizontal

a1.IconCollection.Add("", Schedule1.ScheduleIcons.IconFlag)
a1.IconCollection.Add("", Schedule1.ScheduleIcons.IconInfo)
a1.IconCollection.Add("", Schedule1.DefaultIcons.IconClip)
a1.Header.HeaderType = _
     HeaderTypeConstants.Text

a1.Header.Text = "Test"
a1.Header.Icon = Schedule1.DefaultIcons.IconBell
a1.Header.Appearance.AllowBreak = False
a1.Header.Appearance.BackColor = Color.LightBlue
a1.Header.Appearance.BackColor2 = Color.White
a1.Header.Appearance.BackGradientStyle = _
     GradientStyleConstants.Horizontal

a1.Header.Appearance.FontBold = True