Hi Pali
Thats a different issue.
WorkStartHour and WorkEndHour are defined as integer so you cant set real start hour and end hour
Even if you set Start and end hours it still displays 24 hours the difference being that white is used for working hours
Here is the code to test
Imports Gizmox.WebGUI.Common
Imports Gizmox.WebGUI.Forms
Imports Gizmox.WebGUI.Common.Resources
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ScheduleBox1.Events.Add("Sales Meeting", DateTime.Now.AddDays(1), DateTime.Now.AddDays(30))
Me.ScheduleBox1.Events.Add("Out of office", DateTime.Now, DateTime.Now.AddDays(2))
Me.ScheduleBox1.Events.Add("testttt4", DateTime.Now, DateTime.Now.AddDays(3))
Me.ScheduleBox1.Events.Add("Guy's the Guy", DateTime.Now.AddDays(3), DateTime.Now.AddDays(5))
Me.ScheduleBox1.Events.Add("testttt3", DateTime.Now, DateTime.Now.AddHours(2))
Dim objTest As New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, 11, 15, 0)
Me.ScheduleBox1.Events.Add("HappyFirst is Unhappy", objTest.AddDays(1), objTest.AddDays(1).AddHours(5))
Me.ScheduleBox1.Events.Add("Happy 2", objTest.AddDays(1).AddHours(3), objTest.AddDays(1).AddHours(8))
Me.ScheduleBox1.Events.Add("Happy 3", objTest.AddDays(1).AddHours(10), objTest.AddDays(1).AddHours(12))
Me.ScheduleBox1.FirstDate = DateTime.Now
End Sub
Private Sub rbWeek_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWeek.CheckedChanged, rbMonth.CheckedChanged
If rbMonth.Checked Then
ScheduleBox1.View = ScheduleBoxView.Month
Else
ScheduleBox1.View = ScheduleBoxView.Week
End If
End Sub
Your Form needs 2 Radio buttons and a schedule box
Have fun
Jay