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


Namespace Telerik.MenuExamplesVBNET.Menu.Examples.Design.LanguageSelect
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadMenu1 As Telerik.WebControls.RadMenu
      Protected WithEvents Language As System.Web.UI.WebControls.RadioButtonList
      
      
      Protected Sub SwitchLanguage(sender As Object, e As System.EventArgs) Handles Language.SelectedIndexChanged
         RadMenu1.LoadContentFile(Language.SelectedItem.Value)
      End Sub 'SwitchLanguage
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not IsPostBack Then
            Dim i As Integer
            For i = 0 To Language.Items.Count - 1
               Dim tmpText As String = [String].Empty
               tmpText = Language.Items(i).Text
               tmpText = tmpText + " (<a href=""#""  onclick=""window.open('@.xml','_blank','');"" >see " + tmpText + " Xml file</a>)"
               Select Case i
                  Case 0
                     tmpText = tmpText.Replace("@", "menu")
                  Case 1
                     tmpText = tmpText.Replace("@", "menu" + Language.Items(1).Text)
                  Case 2
                     tmpText = tmpText.Replace("@", "menu" + Language.Items(2).Text)
                  Case Else
                     tmpText = tmpText.Replace("@", "menu")
               End Select
               Language.Items(i).Text = tmpText
            Next i
         End If
      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.LanguageSelect