Timezone / Ruler VB2010 Code Behind

[jeff357]

Put this in the startup code (After the fill.database:
InitializeTimeZones()


Here is The VB coding.


  Private Sub InitalizeTimeZones()
        ddTimeZones.SortStyle = Telerik.WinControls.Enumerations.SortStyle.Ascending
        ddTimeZones.DataSource = Time.GetSchedulerTimeZones
        ddTimeZones.DisplayMember = "List"
    End Sub
    Private Sub RadButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton1.Click
        RadScheduler1.ActiveView.DefaultTimeZone = DirectCast(ddTimeZones.SelectedValue, SchedulerTimeZone)
    End Sub
    Private Sub RadButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton2.Click
        Dim view As SchedulerDayViewBase = TryCast(RadScheduler1.ActiveView, SchedulerDayViewBase)
        If view IsNot Nothing Then
            view.TimeZones.Add(DirectCast(ddTimeZones.SelectedValue, SchedulerTimeZone))
        End If
    End Sub

[Dobry Zranchev]

Hi jeff,

Thank you for writing.

I am not sure that I understand what exactly the code represents. Please state the exact question that you have about the timezones. This will allow me to provide you with a helpful response.

Regards,
Dobry Zranchev
the Telerik team

[jeff357]

    This is just a VB.NET Code Snipet to help the
VB People as it was hard to convert over. Not
a question , it was an answer.
                                     Jeff Link

[Dobry Zranchev]

Hello jeff,

Thank you for sharing this code snippet with the community.

Greetings,
Dobry Zranchev
the Telerik team