defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.WebControls


Namespace Telerik.MenuExamplesVBNET.Menu.Examples.Design.ProgrammaticCreation
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected Menu1 As RadMenu
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim TopGroup As New MenuGroup()
         TopGroup.Flow = PresentationDirection.Horizontal
         Menu1.RootGroup = TopGroup
         
         Dim TimeHeadItem As New Telerik.WebControls.MenuItem()
         TimeHeadItem.Text = "Current Time"
         TimeHeadItem.CssClass = "MainItem"
         TimeHeadItem.CssClassOver = "MainItemOver"
         TopGroup.AddItem(TimeHeadItem)
         
         Dim TimeGroup As New MenuGroup()
         TimeGroup.Width = 130
         TimeGroup.LeftCellWidth = 10
         TimeHeadItem.ChildGroup = TimeGroup
         
         Dim HourItem As New Telerik.WebControls.MenuItem()
         HourItem.Text = "Hours : " + System.DateTime.Now.Hour.ToString()
         TimeGroup.AddItem(HourItem)
         
         Dim MinuteItem As New Telerik.WebControls.MenuItem()
         MinuteItem.Text = "Minutes : " + System.DateTime.Now.Minute.ToString()
         TimeGroup.AddItem(MinuteItem)
         
         Dim SecondItem As New Telerik.WebControls.MenuItem()
         SecondItem.Text = "Seconds : " + System.DateTime.Now.Second.ToString()
         TimeGroup.AddItem(SecondItem)
         
         Dim DateHeadItem As New Telerik.WebControls.MenuItem()
         DateHeadItem.Text = "Current Date"
         DateHeadItem.CssClass = "MainItem"
         DateHeadItem.CssClassOver = "MainItemOver"
         TopGroup.AddItem(DateHeadItem)
         
         Dim DateGroup As New MenuGroup()
         DateGroup.Width = 130
         DateGroup.LeftCellWidth = 10
         DateHeadItem.ChildGroup = DateGroup
         
         Dim YearItem As New Telerik.WebControls.MenuItem()
         YearItem.Text = "Year : " + System.DateTime.Now.Year.ToString()
         DateGroup.AddItem(YearItem)
         
         Dim MonthItem As New Telerik.WebControls.MenuItem()
         MonthItem.Text = "Month : " + System.DateTime.Now.Month.ToString()
         DateGroup.AddItem(MonthItem)
         
         Dim DayItem As New Telerik.WebControls.MenuItem()
         DayItem.Text = "Day : " + System.DateTime.Now.Day.ToString()
         DayItem.ID = "DayItem"
         DateGroup.AddItem(DayItem)
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
   End Class 'DefaultVB 
End Namespace 'Telerik.MenuExamplesVBNET.Menu.Examples.Design.ProgrammaticCreation